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