MODFLOW 6  version 6.9.0.dev0
USGS Modular Hydrologic Model
prt-ocidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module prtocinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public prt_oc_param_definitions
8  public prt_oc_aggregate_definitions
9  public prt_oc_block_definitions
10  public prtocparamfoundtype
11  public prt_oc_multi_package
12  public prt_oc_is_advanced
13  public prt_oc_subpackages
14 
15  type prtocparamfoundtype
16  logical :: budfilerec = .false.
17  logical :: budget = .false.
18  logical :: fileout = .false.
19  logical :: budgetfile = .false.
20  logical :: budcsvfilerec = .false.
21  logical :: budgetcsv = .false.
22  logical :: budgetcsvfile = .false.
23  logical :: trackfilerec = .false.
24  logical :: track = .false.
25  logical :: trackfile = .false.
26  logical :: trackcsvfilerec = .false.
27  logical :: trackcsv = .false.
28  logical :: trackcsvfile = .false.
29  logical :: track_release = .false.
30  logical :: track_exit = .false.
31  logical :: track_subf_exit = .false.
32  logical :: track_timestep = .false.
33  logical :: track_terminate = .false.
34  logical :: track_weaksink = .false.
35  logical :: track_usertime = .false.
36  logical :: track_dropped = .false.
37  logical :: ttimesrec = .false.
38  logical :: track_times = .false.
39  logical :: times = .false.
40  logical :: ttimesfilerec = .false.
41  logical :: track_timesfile = .false.
42  logical :: timesfile = .false.
43  logical :: dev_dump_evtrace = .false.
44  logical :: scratch_buffer = .false.
45  logical :: ntracktimes = .false.
46  logical :: time = .false.
47  logical :: saverecord = .false.
48  logical :: save = .false.
49  logical :: printrecord = .false.
50  logical :: print = .false.
51  logical :: rtype = .false.
52  logical :: all = .false.
53  logical :: first = .false.
54  logical :: last = .false.
55  logical :: frequency = .false.
56  logical :: steps = .false.
57  end type prtocparamfoundtype
58 
59  logical :: prt_oc_multi_package = .false.
60  logical :: prt_oc_is_advanced = .false.
61 
62  character(len=16), parameter :: &
63  prt_oc_subpackages(*) = &
64  [ &
65  ' ' &
66  ]
67 
68  type(inputparamdefinitiontype), parameter :: &
69  prtoc_budfilerec = inputparamdefinitiontype &
70  ( &
71  'PRT', & ! component
72  'OC', & ! subcomponent
73  'OPTIONS', & ! block
74  'BUDGET_FILERECORD', & ! tag name
75  'BUDFILEREC', & ! fortran variable
76  'RECORD BUDGET FILEOUT BUDGETFILE', & ! type
77  '', & ! shape
78  '', & ! longname
79  .false., & ! required
80  .false., & ! developmode
81  .false., & ! multi-record
82  .false., & ! preserve case
83  .false., & ! layered
84  .false. & ! timeseries
85  )
86 
87  type(inputparamdefinitiontype), parameter :: &
88  prtoc_budget = inputparamdefinitiontype &
89  ( &
90  'PRT', & ! component
91  'OC', & ! subcomponent
92  'OPTIONS', & ! block
93  'BUDGET', & ! tag name
94  'BUDGET', & ! fortran variable
95  'KEYWORD', & ! type
96  '', & ! shape
97  'budget keyword', & ! longname
98  .true., & ! required
99  .false., & ! developmode
100  .true., & ! multi-record
101  .false., & ! preserve case
102  .false., & ! layered
103  .false. & ! timeseries
104  )
105 
106  type(inputparamdefinitiontype), parameter :: &
107  prtoc_fileout = inputparamdefinitiontype &
108  ( &
109  'PRT', & ! component
110  'OC', & ! subcomponent
111  'OPTIONS', & ! block
112  'FILEOUT', & ! tag name
113  'FILEOUT', & ! fortran variable
114  'KEYWORD', & ! type
115  '', & ! shape
116  'file keyword', & ! longname
117  .true., & ! required
118  .false., & ! developmode
119  .true., & ! multi-record
120  .false., & ! preserve case
121  .false., & ! layered
122  .false. & ! timeseries
123  )
124 
125  type(inputparamdefinitiontype), parameter :: &
126  prtoc_budgetfile = inputparamdefinitiontype &
127  ( &
128  'PRT', & ! component
129  'OC', & ! subcomponent
130  'OPTIONS', & ! block
131  'BUDGETFILE', & ! tag name
132  'BUDGETFILE', & ! fortran variable
133  'STRING', & ! type
134  '', & ! shape
135  'file keyword', & ! longname
136  .true., & ! required
137  .false., & ! developmode
138  .true., & ! multi-record
139  .true., & ! preserve case
140  .false., & ! layered
141  .false. & ! timeseries
142  )
143 
144  type(inputparamdefinitiontype), parameter :: &
145  prtoc_budcsvfilerec = inputparamdefinitiontype &
146  ( &
147  'PRT', & ! component
148  'OC', & ! subcomponent
149  'OPTIONS', & ! block
150  'BUDGETCSV_FILERECORD', & ! tag name
151  'BUDCSVFILEREC', & ! fortran variable
152  'RECORD BUDGETCSV FILEOUT BUDGETCSVFILE', & ! type
153  '', & ! shape
154  '', & ! longname
155  .false., & ! required
156  .false., & ! developmode
157  .false., & ! multi-record
158  .false., & ! preserve case
159  .false., & ! layered
160  .false. & ! timeseries
161  )
162 
163  type(inputparamdefinitiontype), parameter :: &
164  prtoc_budgetcsv = inputparamdefinitiontype &
165  ( &
166  'PRT', & ! component
167  'OC', & ! subcomponent
168  'OPTIONS', & ! block
169  'BUDGETCSV', & ! tag name
170  'BUDGETCSV', & ! fortran variable
171  'KEYWORD', & ! type
172  '', & ! shape
173  'budget keyword', & ! longname
174  .true., & ! required
175  .false., & ! developmode
176  .true., & ! multi-record
177  .false., & ! preserve case
178  .false., & ! layered
179  .false. & ! timeseries
180  )
181 
182  type(inputparamdefinitiontype), parameter :: &
183  prtoc_budgetcsvfile = inputparamdefinitiontype &
184  ( &
185  'PRT', & ! component
186  'OC', & ! subcomponent
187  'OPTIONS', & ! block
188  'BUDGETCSVFILE', & ! tag name
189  'BUDGETCSVFILE', & ! fortran variable
190  'STRING', & ! type
191  '', & ! shape
192  'file keyword', & ! longname
193  .true., & ! required
194  .false., & ! developmode
195  .true., & ! multi-record
196  .true., & ! preserve case
197  .false., & ! layered
198  .false. & ! timeseries
199  )
200 
201  type(inputparamdefinitiontype), parameter :: &
202  prtoc_trackfilerec = inputparamdefinitiontype &
203  ( &
204  'PRT', & ! component
205  'OC', & ! subcomponent
206  'OPTIONS', & ! block
207  'TRACK_FILERECORD', & ! tag name
208  'TRACKFILEREC', & ! fortran variable
209  'RECORD TRACK FILEOUT TRACKFILE', & ! type
210  '', & ! shape
211  '', & ! longname
212  .false., & ! required
213  .false., & ! developmode
214  .false., & ! multi-record
215  .false., & ! preserve case
216  .false., & ! layered
217  .false. & ! timeseries
218  )
219 
220  type(inputparamdefinitiontype), parameter :: &
221  prtoc_track = inputparamdefinitiontype &
222  ( &
223  'PRT', & ! component
224  'OC', & ! subcomponent
225  'OPTIONS', & ! block
226  'TRACK', & ! tag name
227  'TRACK', & ! fortran variable
228  'KEYWORD', & ! type
229  '', & ! shape
230  'track keyword', & ! longname
231  .true., & ! required
232  .false., & ! developmode
233  .true., & ! multi-record
234  .false., & ! preserve case
235  .false., & ! layered
236  .false. & ! timeseries
237  )
238 
239  type(inputparamdefinitiontype), parameter :: &
240  prtoc_trackfile = inputparamdefinitiontype &
241  ( &
242  'PRT', & ! component
243  'OC', & ! subcomponent
244  'OPTIONS', & ! block
245  'TRACKFILE', & ! tag name
246  'TRACKFILE', & ! fortran variable
247  'STRING', & ! type
248  '', & ! shape
249  'file keyword', & ! longname
250  .true., & ! required
251  .false., & ! developmode
252  .true., & ! multi-record
253  .true., & ! preserve case
254  .false., & ! layered
255  .false. & ! timeseries
256  )
257 
258  type(inputparamdefinitiontype), parameter :: &
259  prtoc_trackcsvfilerec = inputparamdefinitiontype &
260  ( &
261  'PRT', & ! component
262  'OC', & ! subcomponent
263  'OPTIONS', & ! block
264  'TRACKCSV_FILERECORD', & ! tag name
265  'TRACKCSVFILEREC', & ! fortran variable
266  'RECORD TRACKCSV FILEOUT TRACKCSVFILE', & ! type
267  '', & ! shape
268  '', & ! longname
269  .false., & ! required
270  .false., & ! developmode
271  .false., & ! multi-record
272  .false., & ! preserve case
273  .false., & ! layered
274  .false. & ! timeseries
275  )
276 
277  type(inputparamdefinitiontype), parameter :: &
278  prtoc_trackcsv = inputparamdefinitiontype &
279  ( &
280  'PRT', & ! component
281  'OC', & ! subcomponent
282  'OPTIONS', & ! block
283  'TRACKCSV', & ! tag name
284  'TRACKCSV', & ! fortran variable
285  'KEYWORD', & ! type
286  '', & ! shape
287  'track keyword', & ! longname
288  .true., & ! required
289  .false., & ! developmode
290  .true., & ! multi-record
291  .false., & ! preserve case
292  .false., & ! layered
293  .false. & ! timeseries
294  )
295 
296  type(inputparamdefinitiontype), parameter :: &
297  prtoc_trackcsvfile = inputparamdefinitiontype &
298  ( &
299  'PRT', & ! component
300  'OC', & ! subcomponent
301  'OPTIONS', & ! block
302  'TRACKCSVFILE', & ! tag name
303  'TRACKCSVFILE', & ! fortran variable
304  'STRING', & ! type
305  '', & ! shape
306  'file keyword', & ! longname
307  .true., & ! required
308  .false., & ! developmode
309  .true., & ! multi-record
310  .true., & ! preserve case
311  .false., & ! layered
312  .false. & ! timeseries
313  )
314 
315  type(inputparamdefinitiontype), parameter :: &
316  prtoc_track_release = inputparamdefinitiontype &
317  ( &
318  'PRT', & ! component
319  'OC', & ! subcomponent
320  'OPTIONS', & ! block
321  'TRACK_RELEASE', & ! tag name
322  'TRACK_RELEASE', & ! fortran variable
323  'KEYWORD', & ! type
324  '', & ! shape
325  'track release', & ! longname
326  .false., & ! required
327  .false., & ! developmode
328  .false., & ! multi-record
329  .false., & ! preserve case
330  .false., & ! layered
331  .false. & ! timeseries
332  )
333 
334  type(inputparamdefinitiontype), parameter :: &
335  prtoc_track_exit = inputparamdefinitiontype &
336  ( &
337  'PRT', & ! component
338  'OC', & ! subcomponent
339  'OPTIONS', & ! block
340  'TRACK_EXIT', & ! tag name
341  'TRACK_EXIT', & ! fortran variable
342  'KEYWORD', & ! type
343  '', & ! shape
344  'track domain exits', & ! longname
345  .false., & ! required
346  .false., & ! developmode
347  .false., & ! multi-record
348  .false., & ! preserve case
349  .false., & ! layered
350  .false. & ! timeseries
351  )
352 
353  type(inputparamdefinitiontype), parameter :: &
354  prtoc_track_subf_exit = inputparamdefinitiontype &
355  ( &
356  'PRT', & ! component
357  'OC', & ! subcomponent
358  'OPTIONS', & ! block
359  'TRACK_SUBFEATURE_EXIT', & ! tag name
360  'TRACK_SUBF_EXIT', & ! fortran variable
361  'KEYWORD', & ! type
362  '', & ! shape
363  'track cell exits', & ! longname
364  .false., & ! required
365  .false., & ! developmode
366  .false., & ! multi-record
367  .false., & ! preserve case
368  .false., & ! layered
369  .false. & ! timeseries
370  )
371 
372  type(inputparamdefinitiontype), parameter :: &
373  prtoc_track_timestep = inputparamdefinitiontype &
374  ( &
375  'PRT', & ! component
376  'OC', & ! subcomponent
377  'OPTIONS', & ! block
378  'TRACK_TIMESTEP', & ! tag name
379  'TRACK_TIMESTEP', & ! fortran variable
380  'KEYWORD', & ! type
381  '', & ! shape
382  'track timestep ends', & ! longname
383  .false., & ! required
384  .false., & ! developmode
385  .false., & ! multi-record
386  .false., & ! preserve case
387  .false., & ! layered
388  .false. & ! timeseries
389  )
390 
391  type(inputparamdefinitiontype), parameter :: &
392  prtoc_track_terminate = inputparamdefinitiontype &
393  ( &
394  'PRT', & ! component
395  'OC', & ! subcomponent
396  'OPTIONS', & ! block
397  'TRACK_TERMINATE', & ! tag name
398  'TRACK_TERMINATE', & ! fortran variable
399  'KEYWORD', & ! type
400  '', & ! shape
401  'track termination', & ! longname
402  .false., & ! required
403  .false., & ! developmode
404  .false., & ! multi-record
405  .false., & ! preserve case
406  .false., & ! layered
407  .false. & ! timeseries
408  )
409 
410  type(inputparamdefinitiontype), parameter :: &
411  prtoc_track_weaksink = inputparamdefinitiontype &
412  ( &
413  'PRT', & ! component
414  'OC', & ! subcomponent
415  'OPTIONS', & ! block
416  'TRACK_WEAKSINK', & ! tag name
417  'TRACK_WEAKSINK', & ! fortran variable
418  'KEYWORD', & ! type
419  '', & ! shape
420  'track weaksink exits', & ! longname
421  .false., & ! required
422  .false., & ! developmode
423  .false., & ! multi-record
424  .false., & ! preserve case
425  .false., & ! layered
426  .false. & ! timeseries
427  )
428 
429  type(inputparamdefinitiontype), parameter :: &
430  prtoc_track_usertime = inputparamdefinitiontype &
431  ( &
432  'PRT', & ! component
433  'OC', & ! subcomponent
434  'OPTIONS', & ! block
435  'TRACK_USERTIME', & ! tag name
436  'TRACK_USERTIME', & ! fortran variable
437  'KEYWORD', & ! type
438  '', & ! shape
439  'track user-specified times', & ! longname
440  .false., & ! required
441  .false., & ! developmode
442  .false., & ! multi-record
443  .false., & ! preserve case
444  .false., & ! layered
445  .false. & ! timeseries
446  )
447 
448  type(inputparamdefinitiontype), parameter :: &
449  prtoc_track_dropped = inputparamdefinitiontype &
450  ( &
451  'PRT', & ! component
452  'OC', & ! subcomponent
453  'OPTIONS', & ! block
454  'TRACK_DROPPED', & ! tag name
455  'TRACK_DROPPED', & ! fortran variable
456  'KEYWORD', & ! type
457  '', & ! shape
458  'track drops to water table', & ! longname
459  .false., & ! required
460  .false., & ! developmode
461  .false., & ! multi-record
462  .false., & ! preserve case
463  .false., & ! layered
464  .false. & ! timeseries
465  )
466 
467  type(inputparamdefinitiontype), parameter :: &
468  prtoc_ttimesrec = inputparamdefinitiontype &
469  ( &
470  'PRT', & ! component
471  'OC', & ! subcomponent
472  'OPTIONS', & ! block
473  'TRACK_TIMESRECORD', & ! tag name
474  'TTIMESREC', & ! fortran variable
475  'RECORD TRACK_TIMES TIMES', & ! type
476  '', & ! shape
477  '', & ! longname
478  .false., & ! required
479  .false., & ! developmode
480  .false., & ! multi-record
481  .false., & ! preserve case
482  .false., & ! layered
483  .false. & ! timeseries
484  )
485 
486  type(inputparamdefinitiontype), parameter :: &
487  prtoc_track_times = inputparamdefinitiontype &
488  ( &
489  'PRT', & ! component
490  'OC', & ! subcomponent
491  'OPTIONS', & ! block
492  'TRACK_TIMES', & ! tag name
493  'TRACK_TIMES', & ! fortran variable
494  'KEYWORD', & ! type
495  '', & ! shape
496  '', & ! longname
497  .true., & ! required
498  .false., & ! developmode
499  .true., & ! multi-record
500  .false., & ! preserve case
501  .false., & ! layered
502  .false. & ! timeseries
503  )
504 
505  type(inputparamdefinitiontype), parameter :: &
506  prtoc_times = inputparamdefinitiontype &
507  ( &
508  'PRT', & ! component
509  'OC', & ! subcomponent
510  'OPTIONS', & ! block
511  'TIMES', & ! tag name
512  'TIMES', & ! fortran variable
513  'DOUBLE1D', & ! type
514  'ANY1D', & ! shape
515  'tracking times', & ! longname
516  .true., & ! required
517  .false., & ! developmode
518  .true., & ! multi-record
519  .false., & ! preserve case
520  .false., & ! layered
521  .false. & ! timeseries
522  )
523 
524  type(inputparamdefinitiontype), parameter :: &
525  prtoc_ttimesfilerec = inputparamdefinitiontype &
526  ( &
527  'PRT', & ! component
528  'OC', & ! subcomponent
529  'OPTIONS', & ! block
530  'TRACK_TIMESFILERECORD', & ! tag name
531  'TTIMESFILEREC', & ! fortran variable
532  'RECORD TRACK_TIMESFILE TIMESFILE', & ! type
533  '', & ! shape
534  '', & ! longname
535  .false., & ! required
536  .false., & ! developmode
537  .false., & ! multi-record
538  .false., & ! preserve case
539  .false., & ! layered
540  .false. & ! timeseries
541  )
542 
543  type(inputparamdefinitiontype), parameter :: &
544  prtoc_track_timesfile = inputparamdefinitiontype &
545  ( &
546  'PRT', & ! component
547  'OC', & ! subcomponent
548  'OPTIONS', & ! block
549  'TRACK_TIMESFILE', & ! tag name
550  'TRACK_TIMESFILE', & ! fortran variable
551  'KEYWORD', & ! type
552  '', & ! shape
553  '', & ! longname
554  .true., & ! required
555  .false., & ! developmode
556  .true., & ! multi-record
557  .false., & ! preserve case
558  .false., & ! layered
559  .false. & ! timeseries
560  )
561 
562  type(inputparamdefinitiontype), parameter :: &
563  prtoc_timesfile = inputparamdefinitiontype &
564  ( &
565  'PRT', & ! component
566  'OC', & ! subcomponent
567  'OPTIONS', & ! block
568  'TIMESFILE', & ! tag name
569  'TIMESFILE', & ! fortran variable
570  'STRING', & ! type
571  '', & ! shape
572  'file keyword', & ! longname
573  .true., & ! required
574  .false., & ! developmode
575  .true., & ! multi-record
576  .true., & ! preserve case
577  .false., & ! layered
578  .false. & ! timeseries
579  )
580 
581  type(inputparamdefinitiontype), parameter :: &
582  prtoc_dev_dump_evtrace = inputparamdefinitiontype &
583  ( &
584  'PRT', & ! component
585  'OC', & ! subcomponent
586  'OPTIONS', & ! block
587  'DEV_DUMP_EVENT_TRACE', & ! tag name
588  'DEV_DUMP_EVTRACE', & ! fortran variable
589  'KEYWORD', & ! type
590  '', & ! shape
591  'print particle tracking events', & ! longname
592  .false., & ! required
593  .false., & ! developmode
594  .false., & ! multi-record
595  .false., & ! preserve case
596  .false., & ! layered
597  .false. & ! timeseries
598  )
599 
600  type(inputparamdefinitiontype), parameter :: &
601  prtoc_scratch_buffer = inputparamdefinitiontype &
602  ( &
603  'PRT', & ! component
604  'OC', & ! subcomponent
605  'OPTIONS', & ! block
606  'SCRATCH_BUFFER', & ! tag name
607  'SCRATCH_BUFFER', & ! fortran variable
608  'KEYWORD', & ! type
609  '', & ! shape
610  'buffer track events in scratch file instead of memory', & ! longname
611  .false., & ! required
612  .false., & ! developmode
613  .false., & ! multi-record
614  .false., & ! preserve case
615  .false., & ! layered
616  .false. & ! timeseries
617  )
618 
619  type(inputparamdefinitiontype), parameter :: &
620  prtoc_ntracktimes = inputparamdefinitiontype &
621  ( &
622  'PRT', & ! component
623  'OC', & ! subcomponent
624  'DIMENSIONS', & ! block
625  'NTRACKTIMES', & ! tag name
626  'NTRACKTIMES', & ! fortran variable
627  'INTEGER', & ! type
628  '', & ! shape
629  'number of particle tracking times', & ! longname
630  .false., & ! required
631  .false., & ! developmode
632  .false., & ! multi-record
633  .false., & ! preserve case
634  .false., & ! layered
635  .false. & ! timeseries
636  )
637 
638  type(inputparamdefinitiontype), parameter :: &
639  prtoc_time = inputparamdefinitiontype &
640  ( &
641  'PRT', & ! component
642  'OC', & ! subcomponent
643  'TRACKTIMES', & ! block
644  'TIME', & ! tag name
645  'TIME', & ! fortran variable
646  'DOUBLE', & ! type
647  '', & ! shape
648  'release time', & ! longname
649  .true., & ! required
650  .false., & ! developmode
651  .true., & ! multi-record
652  .false., & ! preserve case
653  .false., & ! layered
654  .false. & ! timeseries
655  )
656 
657  type(inputparamdefinitiontype), parameter :: &
658  prtoc_saverecord = inputparamdefinitiontype &
659  ( &
660  'PRT', & ! component
661  'OC', & ! subcomponent
662  'PERIOD', & ! block
663  'SAVERECORD', & ! tag name
664  'SAVERECORD', & ! fortran variable
665  'RECORD SAVE RTYPE OCSETTING', & ! type
666  '', & ! shape
667  '', & ! longname
668  .false., & ! required
669  .false., & ! developmode
670  .false., & ! multi-record
671  .false., & ! preserve case
672  .false., & ! layered
673  .false. & ! timeseries
674  )
675 
676  type(inputparamdefinitiontype), parameter :: &
677  prtoc_save = inputparamdefinitiontype &
678  ( &
679  'PRT', & ! component
680  'OC', & ! subcomponent
681  'PERIOD', & ! block
682  'SAVE', & ! tag name
683  'SAVE', & ! fortran variable
684  'KEYWORD', & ! type
685  '', & ! shape
686  'keyword to save', & ! longname
687  .true., & ! required
688  .false., & ! developmode
689  .true., & ! multi-record
690  .false., & ! preserve case
691  .false., & ! layered
692  .false. & ! timeseries
693  )
694 
695  type(inputparamdefinitiontype), parameter :: &
696  prtoc_printrecord = inputparamdefinitiontype &
697  ( &
698  'PRT', & ! component
699  'OC', & ! subcomponent
700  'PERIOD', & ! block
701  'PRINTRECORD', & ! tag name
702  'PRINTRECORD', & ! fortran variable
703  'RECORD PRINT RTYPE OCSETTING', & ! type
704  '', & ! shape
705  '', & ! longname
706  .false., & ! required
707  .false., & ! developmode
708  .false., & ! multi-record
709  .false., & ! preserve case
710  .false., & ! layered
711  .false. & ! timeseries
712  )
713 
714  type(inputparamdefinitiontype), parameter :: &
715  prtoc_print = inputparamdefinitiontype &
716  ( &
717  'PRT', & ! component
718  'OC', & ! subcomponent
719  'PERIOD', & ! block
720  'PRINT', & ! tag name
721  'PRINT', & ! fortran variable
722  'KEYWORD', & ! type
723  '', & ! shape
724  'keyword to save', & ! longname
725  .true., & ! required
726  .false., & ! developmode
727  .true., & ! multi-record
728  .false., & ! preserve case
729  .false., & ! layered
730  .false. & ! timeseries
731  )
732 
733  type(inputparamdefinitiontype), parameter :: &
734  prtoc_rtype = inputparamdefinitiontype &
735  ( &
736  'PRT', & ! component
737  'OC', & ! subcomponent
738  'PERIOD', & ! block
739  'RTYPE', & ! tag name
740  'RTYPE', & ! fortran variable
741  'STRING', & ! type
742  '', & ! shape
743  'record type', & ! longname
744  .true., & ! required
745  .false., & ! developmode
746  .true., & ! multi-record
747  .false., & ! preserve case
748  .false., & ! layered
749  .false. & ! timeseries
750  )
751 
752  type(inputparamdefinitiontype), parameter :: &
753  prtoc_all = inputparamdefinitiontype &
754  ( &
755  'PRT', & ! component
756  'OC', & ! subcomponent
757  'PERIOD', & ! block
758  'ALL', & ! tag name
759  'ALL', & ! fortran variable
760  'KEYWORD', & ! type
761  '', & ! shape
762  '', & ! longname
763  .true., & ! required
764  .false., & ! developmode
765  .true., & ! multi-record
766  .false., & ! preserve case
767  .false., & ! layered
768  .false. & ! timeseries
769  )
770 
771  type(inputparamdefinitiontype), parameter :: &
772  prtoc_first = inputparamdefinitiontype &
773  ( &
774  'PRT', & ! component
775  'OC', & ! subcomponent
776  'PERIOD', & ! block
777  'FIRST', & ! tag name
778  'FIRST', & ! fortran variable
779  'KEYWORD', & ! type
780  '', & ! shape
781  '', & ! longname
782  .true., & ! required
783  .false., & ! developmode
784  .true., & ! multi-record
785  .false., & ! preserve case
786  .false., & ! layered
787  .false. & ! timeseries
788  )
789 
790  type(inputparamdefinitiontype), parameter :: &
791  prtoc_last = inputparamdefinitiontype &
792  ( &
793  'PRT', & ! component
794  'OC', & ! subcomponent
795  'PERIOD', & ! block
796  'LAST', & ! tag name
797  'LAST', & ! fortran variable
798  'KEYWORD', & ! type
799  '', & ! shape
800  '', & ! longname
801  .true., & ! required
802  .false., & ! developmode
803  .true., & ! multi-record
804  .false., & ! preserve case
805  .false., & ! layered
806  .false. & ! timeseries
807  )
808 
809  type(inputparamdefinitiontype), parameter :: &
810  prtoc_frequency = inputparamdefinitiontype &
811  ( &
812  'PRT', & ! component
813  'OC', & ! subcomponent
814  'PERIOD', & ! block
815  'FREQUENCY', & ! tag name
816  'FREQUENCY', & ! fortran variable
817  'INTEGER', & ! type
818  '', & ! shape
819  '', & ! longname
820  .true., & ! required
821  .false., & ! developmode
822  .true., & ! multi-record
823  .false., & ! preserve case
824  .false., & ! layered
825  .false. & ! timeseries
826  )
827 
828  type(inputparamdefinitiontype), parameter :: &
829  prtoc_steps = inputparamdefinitiontype &
830  ( &
831  'PRT', & ! component
832  'OC', & ! subcomponent
833  'PERIOD', & ! block
834  'STEPS', & ! tag name
835  'STEPS', & ! fortran variable
836  'INTEGER1D', & ! type
837  '<NSTP', & ! shape
838  '', & ! longname
839  .true., & ! required
840  .false., & ! developmode
841  .true., & ! multi-record
842  .false., & ! preserve case
843  .false., & ! layered
844  .false. & ! timeseries
845  )
846 
847  type(inputparamdefinitiontype), parameter :: &
848  prt_oc_param_definitions(*) = &
849  [ &
850  prtoc_budfilerec, &
851  prtoc_budget, &
852  prtoc_fileout, &
853  prtoc_budgetfile, &
854  prtoc_budcsvfilerec, &
855  prtoc_budgetcsv, &
856  prtoc_budgetcsvfile, &
857  prtoc_trackfilerec, &
858  prtoc_track, &
859  prtoc_trackfile, &
860  prtoc_trackcsvfilerec, &
861  prtoc_trackcsv, &
862  prtoc_trackcsvfile, &
863  prtoc_track_release, &
864  prtoc_track_exit, &
865  prtoc_track_subf_exit, &
866  prtoc_track_timestep, &
867  prtoc_track_terminate, &
868  prtoc_track_weaksink, &
869  prtoc_track_usertime, &
870  prtoc_track_dropped, &
871  prtoc_ttimesrec, &
872  prtoc_track_times, &
873  prtoc_times, &
874  prtoc_ttimesfilerec, &
875  prtoc_track_timesfile, &
876  prtoc_timesfile, &
877  prtoc_dev_dump_evtrace, &
878  prtoc_scratch_buffer, &
879  prtoc_ntracktimes, &
880  prtoc_time, &
881  prtoc_saverecord, &
882  prtoc_save, &
883  prtoc_printrecord, &
884  prtoc_print, &
885  prtoc_rtype, &
886  prtoc_all, &
887  prtoc_first, &
888  prtoc_last, &
889  prtoc_frequency, &
890  prtoc_steps &
891  ]
892 
893  type(inputparamdefinitiontype), parameter :: &
894  prtoc_tracktimes = inputparamdefinitiontype &
895  ( &
896  'PRT', & ! component
897  'OC', & ! subcomponent
898  'TRACKTIMES', & ! block
899  'TRACKTIMES', & ! tag name
900  'TRACKTIMES', & ! fortran variable
901  'RECARRAY TIME', & ! type
902  'NTRACKTIMES', & ! shape
903  '', & ! longname
904  .false., & ! required
905  .false., & ! developmode
906  .false., & ! multi-record
907  .false., & ! preserve case
908  .false., & ! layered
909  .false. & ! timeseries
910  )
911 
912  type(inputparamdefinitiontype), parameter :: &
913  prtoc_ocsetting = inputparamdefinitiontype &
914  ( &
915  'PRT', & ! component
916  'OC', & ! subcomponent
917  'PERIOD', & ! block
918  'OCSETTING', & ! tag name
919  'OCSETTING', & ! fortran variable
920  'KEYSTRING ALL FIRST LAST FREQUENCY STEPS', & ! type
921  '', & ! shape
922  '', & ! longname
923  .true., & ! required
924  .false., & ! developmode
925  .true., & ! multi-record
926  .false., & ! preserve case
927  .false., & ! layered
928  .false. & ! timeseries
929  )
930 
931  type(inputparamdefinitiontype), parameter :: &
932  prt_oc_aggregate_definitions(*) = &
933  [ &
934  prtoc_tracktimes, &
935  prtoc_ocsetting &
936  ]
937 
938  type(inputblockdefinitiontype), parameter :: &
939  prt_oc_block_definitions(*) = &
940  [ &
941  inputblockdefinitiontype( &
942  'OPTIONS', & ! blockname
943  .false., & ! required
944  .false., & ! aggregate
945  .false. & ! block_variable
946  ), &
947  inputblockdefinitiontype( &
948  'DIMENSIONS', & ! blockname
949  .false., & ! required
950  .false., & ! aggregate
951  .false. & ! block_variable
952  ), &
953  inputblockdefinitiontype( &
954  'TRACKTIMES', & ! blockname
955  .false., & ! required
956  .true., & ! aggregate
957  .false. & ! block_variable
958  ), &
959  inputblockdefinitiontype( &
960  'PERIOD', & ! blockname
961  .true., & ! required
962  .true., & ! aggregate
963  .true. & ! block_variable
964  ) &
965  ]
966 
967 end module prtocinputmodule
constantsmodule
This module contains simulation constants.
Definition: Constants.f90:9
constantsmodule::lenvarname
integer(i4b), parameter lenvarname
maximum length of a variable name
Definition: Constants.f90:17
inputdefinitionmodule
Input definition module.
Definition: InputDefinition.f90:7
prtocinputmodule::prtoc_track_exit
type(inputparamdefinitiontype), parameter prtoc_track_exit
Definition: prt-ocidm.f90:334
prtocinputmodule::prtoc_trackfile
type(inputparamdefinitiontype), parameter prtoc_trackfile
Definition: prt-ocidm.f90:239
prtocinputmodule::prtoc_rtype
type(inputparamdefinitiontype), parameter prtoc_rtype
Definition: prt-ocidm.f90:733
prtocinputmodule::prtoc_print
type(inputparamdefinitiontype), parameter prtoc_print
Definition: prt-ocidm.f90:714
prtocinputmodule::prtoc_budcsvfilerec
type(inputparamdefinitiontype), parameter prtoc_budcsvfilerec
Definition: prt-ocidm.f90:144
prtocinputmodule::prtoc_first
type(inputparamdefinitiontype), parameter prtoc_first
Definition: prt-ocidm.f90:771
prtocinputmodule::prtoc_ntracktimes
type(inputparamdefinitiontype), parameter prtoc_ntracktimes
Definition: prt-ocidm.f90:619
prtocinputmodule::prtoc_track_weaksink
type(inputparamdefinitiontype), parameter prtoc_track_weaksink
Definition: prt-ocidm.f90:410
prtocinputmodule::prtoc_trackcsv
type(inputparamdefinitiontype), parameter prtoc_trackcsv
Definition: prt-ocidm.f90:277
prtocinputmodule::prtoc_time
type(inputparamdefinitiontype), parameter prtoc_time
Definition: prt-ocidm.f90:638
prtocinputmodule::prt_oc_multi_package
logical, public prt_oc_multi_package
Definition: prt-ocidm.f90:59
prtocinputmodule::prtoc_all
type(inputparamdefinitiontype), parameter prtoc_all
Definition: prt-ocidm.f90:752
prtocinputmodule::prtoc_last
type(inputparamdefinitiontype), parameter prtoc_last
Definition: prt-ocidm.f90:790
prtocinputmodule::prtoc_scratch_buffer
type(inputparamdefinitiontype), parameter prtoc_scratch_buffer
Definition: prt-ocidm.f90:600
prtocinputmodule::prtoc_track_terminate
type(inputparamdefinitiontype), parameter prtoc_track_terminate
Definition: prt-ocidm.f90:391
prtocinputmodule::prtoc_steps
type(inputparamdefinitiontype), parameter prtoc_steps
Definition: prt-ocidm.f90:828
prtocinputmodule::prtoc_saverecord
type(inputparamdefinitiontype), parameter prtoc_saverecord
Definition: prt-ocidm.f90:657
prtocinputmodule::prtoc_track_dropped
type(inputparamdefinitiontype), parameter prtoc_track_dropped
Definition: prt-ocidm.f90:448
prtocinputmodule::prtoc_ocsetting
type(inputparamdefinitiontype), parameter prtoc_ocsetting
Definition: prt-ocidm.f90:912
prtocinputmodule::prt_oc_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public prt_oc_param_definitions
Definition: prt-ocidm.f90:847
prtocinputmodule::prtoc_frequency
type(inputparamdefinitiontype), parameter prtoc_frequency
Definition: prt-ocidm.f90:809
prtocinputmodule::prtoc_save
type(inputparamdefinitiontype), parameter prtoc_save
Definition: prt-ocidm.f90:676
prtocinputmodule::prtoc_dev_dump_evtrace
type(inputparamdefinitiontype), parameter prtoc_dev_dump_evtrace
Definition: prt-ocidm.f90:581
prtocinputmodule::prtoc_fileout
type(inputparamdefinitiontype), parameter prtoc_fileout
Definition: prt-ocidm.f90:106
prtocinputmodule::prt_oc_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public prt_oc_aggregate_definitions
Definition: prt-ocidm.f90:931
prtocinputmodule::prtoc_budgetfile
type(inputparamdefinitiontype), parameter prtoc_budgetfile
Definition: prt-ocidm.f90:125
prtocinputmodule::prtoc_budfilerec
type(inputparamdefinitiontype), parameter prtoc_budfilerec
Definition: prt-ocidm.f90:68
prtocinputmodule::prtoc_track_subf_exit
type(inputparamdefinitiontype), parameter prtoc_track_subf_exit
Definition: prt-ocidm.f90:353
prtocinputmodule::prtoc_times
type(inputparamdefinitiontype), parameter prtoc_times
Definition: prt-ocidm.f90:505
prtocinputmodule::prtoc_budgetcsv
type(inputparamdefinitiontype), parameter prtoc_budgetcsv
Definition: prt-ocidm.f90:163
prtocinputmodule::prtoc_budget
type(inputparamdefinitiontype), parameter prtoc_budget
Definition: prt-ocidm.f90:87
prtocinputmodule::prt_oc_is_advanced
logical, public prt_oc_is_advanced
Definition: prt-ocidm.f90:60
prtocinputmodule::prtoc_trackfilerec
type(inputparamdefinitiontype), parameter prtoc_trackfilerec
Definition: prt-ocidm.f90:201
prtocinputmodule::prt_oc_subpackages
character(len=16), dimension(*), parameter, public prt_oc_subpackages
Definition: prt-ocidm.f90:62
prtocinputmodule::prtoc_budgetcsvfile
type(inputparamdefinitiontype), parameter prtoc_budgetcsvfile
Definition: prt-ocidm.f90:182
prtocinputmodule::prtoc_ttimesfilerec
type(inputparamdefinitiontype), parameter prtoc_ttimesfilerec
Definition: prt-ocidm.f90:524
prtocinputmodule::prtoc_track_timestep
type(inputparamdefinitiontype), parameter prtoc_track_timestep
Definition: prt-ocidm.f90:372
prtocinputmodule::prtoc_ttimesrec
type(inputparamdefinitiontype), parameter prtoc_ttimesrec
Definition: prt-ocidm.f90:467
prtocinputmodule::prtoc_track_usertime
type(inputparamdefinitiontype), parameter prtoc_track_usertime
Definition: prt-ocidm.f90:429
prtocinputmodule::prtoc_track_times
type(inputparamdefinitiontype), parameter prtoc_track_times
Definition: prt-ocidm.f90:486
prtocinputmodule::prtoc_trackcsvfile
type(inputparamdefinitiontype), parameter prtoc_trackcsvfile
Definition: prt-ocidm.f90:296
prtocinputmodule::prtoc_track
type(inputparamdefinitiontype), parameter prtoc_track
Definition: prt-ocidm.f90:220
prtocinputmodule::prtoc_track_timesfile
type(inputparamdefinitiontype), parameter prtoc_track_timesfile
Definition: prt-ocidm.f90:543
prtocinputmodule::prtoc_tracktimes
type(inputparamdefinitiontype), parameter prtoc_tracktimes
Definition: prt-ocidm.f90:893
prtocinputmodule::prtoc_track_release
type(inputparamdefinitiontype), parameter prtoc_track_release
Definition: prt-ocidm.f90:315
prtocinputmodule::prt_oc_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public prt_oc_block_definitions
Definition: prt-ocidm.f90:938
prtocinputmodule::prtoc_trackcsvfilerec
type(inputparamdefinitiontype), parameter prtoc_trackcsvfilerec
Definition: prt-ocidm.f90:258
prtocinputmodule::prtoc_timesfile
type(inputparamdefinitiontype), parameter prtoc_timesfile
Definition: prt-ocidm.f90:562
prtocinputmodule::prtoc_printrecord
type(inputparamdefinitiontype), parameter prtoc_printrecord
Definition: prt-ocidm.f90:695
inputdefinitionmodule::inputblockdefinitiontype
Input block definition. Describes an input block.
Definition: InputDefinition.f90:36
inputdefinitionmodule::inputparamdefinitiontype
Input parameter definition. Describes an input parameter.
Definition: InputDefinition.f90:18