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