MODFLOW 6  version 6.9.0.dev0
USGS Modular Hydrologic Model
prt-disidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module prtdisinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public prt_dis_param_definitions
8  public prt_dis_aggregate_definitions
9  public prt_dis_block_definitions
10  public prtdisparamfoundtype
11  public prt_dis_multi_package
12  public prt_dis_is_advanced
13  public prt_dis_subpackages
14 
15  type prtdisparamfoundtype
16  logical :: length_units = .false.
17  logical :: nogrb = .false.
18  logical :: grb_filerecord = .false.
19  logical :: grb6 = .false.
20  logical :: fileout = .false.
21  logical :: grb6_filename = .false.
22  logical :: xorigin = .false.
23  logical :: yorigin = .false.
24  logical :: angrot = .false.
25  logical :: export_ascii = .false.
26  logical :: export_nc = .false.
27  logical :: crs = .false.
28  logical :: ncf_filerecord = .false.
29  logical :: ncf6 = .false.
30  logical :: filein = .false.
31  logical :: ncf6_filename = .false.
32  logical :: nlay = .false.
33  logical :: nrow = .false.
34  logical :: ncol = .false.
35  logical :: delr = .false.
36  logical :: delc = .false.
37  logical :: top = .false.
38  logical :: botm = .false.
39  logical :: idomain = .false.
40  end type prtdisparamfoundtype
41 
42  logical :: prt_dis_multi_package = .false.
43  logical :: prt_dis_is_advanced = .false.
44 
45  character(len=16), parameter :: &
46  prt_dis_subpackages(*) = &
47  [ &
48  ' ' &
49  ]
50 
51  type(inputparamdefinitiontype), parameter :: &
52  prtdis_length_units = inputparamdefinitiontype &
53  ( &
54  'PRT', & ! component
55  'DIS', & ! subcomponent
56  'OPTIONS', & ! block
57  'LENGTH_UNITS', & ! tag name
58  'LENGTH_UNITS', & ! fortran variable
59  'STRING', & ! type
60  '', & ! shape
61  'model length units', & ! longname
62  .false., & ! required
63  .false., & ! developmode
64  .false., & ! multi-record
65  .false., & ! preserve case
66  .false., & ! layered
67  .false. & ! timeseries
68  )
69 
70  type(inputparamdefinitiontype), parameter :: &
71  prtdis_nogrb = inputparamdefinitiontype &
72  ( &
73  'PRT', & ! component
74  'DIS', & ! subcomponent
75  'OPTIONS', & ! block
76  'NOGRB', & ! tag name
77  'NOGRB', & ! fortran variable
78  'KEYWORD', & ! type
79  '', & ! shape
80  'do not write binary grid file', & ! longname
81  .false., & ! required
82  .false., & ! developmode
83  .false., & ! multi-record
84  .false., & ! preserve case
85  .false., & ! layered
86  .false. & ! timeseries
87  )
88 
89  type(inputparamdefinitiontype), parameter :: &
90  prtdis_grb_filerecord = inputparamdefinitiontype &
91  ( &
92  'PRT', & ! component
93  'DIS', & ! subcomponent
94  'OPTIONS', & ! block
95  'GRB_FILERECORD', & ! tag name
96  'GRB_FILERECORD', & ! fortran variable
97  'RECORD GRB6 FILEOUT GRB6_FILENAME', & ! type
98  '', & ! shape
99  '', & ! longname
100  .false., & ! required
101  .false., & ! developmode
102  .false., & ! multi-record
103  .false., & ! preserve case
104  .false., & ! layered
105  .false. & ! timeseries
106  )
107 
108  type(inputparamdefinitiontype), parameter :: &
109  prtdis_grb6 = inputparamdefinitiontype &
110  ( &
111  'PRT', & ! component
112  'DIS', & ! subcomponent
113  'OPTIONS', & ! block
114  'GRB6', & ! tag name
115  'GRB6', & ! fortran variable
116  'KEYWORD', & ! type
117  '', & ! shape
118  'grb keyword', & ! longname
119  .true., & ! required
120  .false., & ! developmode
121  .true., & ! multi-record
122  .false., & ! preserve case
123  .false., & ! layered
124  .false. & ! timeseries
125  )
126 
127  type(inputparamdefinitiontype), parameter :: &
128  prtdis_fileout = inputparamdefinitiontype &
129  ( &
130  'PRT', & ! component
131  'DIS', & ! subcomponent
132  'OPTIONS', & ! block
133  'FILEOUT', & ! tag name
134  'FILEOUT', & ! fortran variable
135  'KEYWORD', & ! type
136  '', & ! shape
137  'file keyword', & ! longname
138  .true., & ! required
139  .false., & ! developmode
140  .true., & ! multi-record
141  .false., & ! preserve case
142  .false., & ! layered
143  .false. & ! timeseries
144  )
145 
146  type(inputparamdefinitiontype), parameter :: &
147  prtdis_grb6_filename = inputparamdefinitiontype &
148  ( &
149  'PRT', & ! component
150  'DIS', & ! subcomponent
151  'OPTIONS', & ! block
152  'GRB6_FILENAME', & ! tag name
153  'GRB6_FILENAME', & ! fortran variable
154  'STRING', & ! type
155  '', & ! shape
156  'file name of GRB information', & ! longname
157  .true., & ! required
158  .false., & ! developmode
159  .true., & ! multi-record
160  .true., & ! preserve case
161  .false., & ! layered
162  .false. & ! timeseries
163  )
164 
165  type(inputparamdefinitiontype), parameter :: &
166  prtdis_xorigin = inputparamdefinitiontype &
167  ( &
168  'PRT', & ! component
169  'DIS', & ! subcomponent
170  'OPTIONS', & ! block
171  'XORIGIN', & ! tag name
172  'XORIGIN', & ! fortran variable
173  'DOUBLE', & ! type
174  '', & ! shape
175  'x-position of the model grid origin', & ! longname
176  .false., & ! required
177  .false., & ! developmode
178  .false., & ! multi-record
179  .false., & ! preserve case
180  .false., & ! layered
181  .false. & ! timeseries
182  )
183 
184  type(inputparamdefinitiontype), parameter :: &
185  prtdis_yorigin = inputparamdefinitiontype &
186  ( &
187  'PRT', & ! component
188  'DIS', & ! subcomponent
189  'OPTIONS', & ! block
190  'YORIGIN', & ! tag name
191  'YORIGIN', & ! fortran variable
192  'DOUBLE', & ! type
193  '', & ! shape
194  'y-position of the model grid origin', & ! longname
195  .false., & ! required
196  .false., & ! developmode
197  .false., & ! multi-record
198  .false., & ! preserve case
199  .false., & ! layered
200  .false. & ! timeseries
201  )
202 
203  type(inputparamdefinitiontype), parameter :: &
204  prtdis_angrot = inputparamdefinitiontype &
205  ( &
206  'PRT', & ! component
207  'DIS', & ! subcomponent
208  'OPTIONS', & ! block
209  'ANGROT', & ! tag name
210  'ANGROT', & ! fortran variable
211  'DOUBLE', & ! type
212  '', & ! shape
213  'rotation angle', & ! longname
214  .false., & ! required
215  .false., & ! developmode
216  .false., & ! multi-record
217  .false., & ! preserve case
218  .false., & ! layered
219  .false. & ! timeseries
220  )
221 
222  type(inputparamdefinitiontype), parameter :: &
223  prtdis_export_ascii = inputparamdefinitiontype &
224  ( &
225  'PRT', & ! component
226  'DIS', & ! subcomponent
227  'OPTIONS', & ! block
228  'EXPORT_ARRAY_ASCII', & ! tag name
229  'EXPORT_ASCII', & ! fortran variable
230  'KEYWORD', & ! type
231  '', & ! shape
232  'export array variables to layered ascii files.', & ! longname
233  .false., & ! required
234  .false., & ! developmode
235  .false., & ! multi-record
236  .false., & ! preserve case
237  .false., & ! layered
238  .false. & ! timeseries
239  )
240 
241  type(inputparamdefinitiontype), parameter :: &
242  prtdis_export_nc = inputparamdefinitiontype &
243  ( &
244  'PRT', & ! component
245  'DIS', & ! subcomponent
246  'OPTIONS', & ! block
247  'EXPORT_ARRAY_NETCDF', & ! tag name
248  'EXPORT_NC', & ! fortran variable
249  'KEYWORD', & ! type
250  '', & ! shape
251  'export array variables to netcdf output files.', & ! longname
252  .false., & ! required
253  .false., & ! developmode
254  .false., & ! multi-record
255  .false., & ! preserve case
256  .false., & ! layered
257  .false. & ! timeseries
258  )
259 
260  type(inputparamdefinitiontype), parameter :: &
261  prtdis_crs = inputparamdefinitiontype &
262  ( &
263  'PRT', & ! component
264  'DIS', & ! subcomponent
265  'OPTIONS', & ! block
266  'CRS', & ! tag name
267  'CRS', & ! fortran variable
268  'STRING', & ! type
269  'LENBIGLINE', & ! shape
270  'CRS user input string', & ! longname
271  .false., & ! required
272  .false., & ! developmode
273  .false., & ! multi-record
274  .true., & ! preserve case
275  .false., & ! layered
276  .false. & ! timeseries
277  )
278 
279  type(inputparamdefinitiontype), parameter :: &
280  prtdis_ncf_filerecord = inputparamdefinitiontype &
281  ( &
282  'PRT', & ! component
283  'DIS', & ! subcomponent
284  'OPTIONS', & ! block
285  'NCF_FILERECORD', & ! tag name
286  'NCF_FILERECORD', & ! fortran variable
287  'RECORD NCF6 FILEIN NCF6_FILENAME', & ! type
288  '', & ! shape
289  '', & ! longname
290  .false., & ! required
291  .false., & ! developmode
292  .false., & ! multi-record
293  .false., & ! preserve case
294  .false., & ! layered
295  .false. & ! timeseries
296  )
297 
298  type(inputparamdefinitiontype), parameter :: &
299  prtdis_ncf6 = inputparamdefinitiontype &
300  ( &
301  'PRT', & ! component
302  'DIS', & ! subcomponent
303  'OPTIONS', & ! block
304  'NCF6', & ! tag name
305  'NCF6', & ! fortran variable
306  'KEYWORD', & ! type
307  '', & ! shape
308  'ncf keyword', & ! longname
309  .true., & ! required
310  .false., & ! developmode
311  .true., & ! multi-record
312  .false., & ! preserve case
313  .false., & ! layered
314  .false. & ! timeseries
315  )
316 
317  type(inputparamdefinitiontype), parameter :: &
318  prtdis_filein = inputparamdefinitiontype &
319  ( &
320  'PRT', & ! component
321  'DIS', & ! subcomponent
322  'OPTIONS', & ! block
323  'FILEIN', & ! tag name
324  'FILEIN', & ! fortran variable
325  'KEYWORD', & ! type
326  '', & ! shape
327  'file keyword', & ! longname
328  .true., & ! required
329  .false., & ! developmode
330  .true., & ! multi-record
331  .false., & ! preserve case
332  .false., & ! layered
333  .false. & ! timeseries
334  )
335 
336  type(inputparamdefinitiontype), parameter :: &
337  prtdis_ncf6_filename = inputparamdefinitiontype &
338  ( &
339  'PRT', & ! component
340  'DIS', & ! subcomponent
341  'OPTIONS', & ! block
342  'NCF6_FILENAME', & ! tag name
343  'NCF6_FILENAME', & ! fortran variable
344  'STRING', & ! type
345  '', & ! shape
346  'file name of NCF information', & ! longname
347  .true., & ! required
348  .false., & ! developmode
349  .true., & ! multi-record
350  .true., & ! preserve case
351  .false., & ! layered
352  .false. & ! timeseries
353  )
354 
355  type(inputparamdefinitiontype), parameter :: &
356  prtdis_nlay = inputparamdefinitiontype &
357  ( &
358  'PRT', & ! component
359  'DIS', & ! subcomponent
360  'DIMENSIONS', & ! block
361  'NLAY', & ! tag name
362  'NLAY', & ! fortran variable
363  'INTEGER', & ! type
364  '', & ! shape
365  'number of layers', & ! longname
366  .true., & ! required
367  .false., & ! developmode
368  .false., & ! multi-record
369  .false., & ! preserve case
370  .false., & ! layered
371  .false. & ! timeseries
372  )
373 
374  type(inputparamdefinitiontype), parameter :: &
375  prtdis_nrow = inputparamdefinitiontype &
376  ( &
377  'PRT', & ! component
378  'DIS', & ! subcomponent
379  'DIMENSIONS', & ! block
380  'NROW', & ! tag name
381  'NROW', & ! fortran variable
382  'INTEGER', & ! type
383  '', & ! shape
384  'number of rows', & ! longname
385  .true., & ! required
386  .false., & ! developmode
387  .false., & ! multi-record
388  .false., & ! preserve case
389  .false., & ! layered
390  .false. & ! timeseries
391  )
392 
393  type(inputparamdefinitiontype), parameter :: &
394  prtdis_ncol = inputparamdefinitiontype &
395  ( &
396  'PRT', & ! component
397  'DIS', & ! subcomponent
398  'DIMENSIONS', & ! block
399  'NCOL', & ! tag name
400  'NCOL', & ! fortran variable
401  'INTEGER', & ! type
402  '', & ! shape
403  'number of columns', & ! longname
404  .true., & ! required
405  .false., & ! developmode
406  .false., & ! multi-record
407  .false., & ! preserve case
408  .false., & ! layered
409  .false. & ! timeseries
410  )
411 
412  type(inputparamdefinitiontype), parameter :: &
413  prtdis_delr = inputparamdefinitiontype &
414  ( &
415  'PRT', & ! component
416  'DIS', & ! subcomponent
417  'GRIDDATA', & ! block
418  'DELR', & ! tag name
419  'DELR', & ! fortran variable
420  'DOUBLE1D', & ! type
421  'NCOL', & ! shape
422  'spacing along a row', & ! longname
423  .true., & ! required
424  .false., & ! developmode
425  .false., & ! multi-record
426  .false., & ! preserve case
427  .false., & ! layered
428  .false. & ! timeseries
429  )
430 
431  type(inputparamdefinitiontype), parameter :: &
432  prtdis_delc = inputparamdefinitiontype &
433  ( &
434  'PRT', & ! component
435  'DIS', & ! subcomponent
436  'GRIDDATA', & ! block
437  'DELC', & ! tag name
438  'DELC', & ! fortran variable
439  'DOUBLE1D', & ! type
440  'NROW', & ! shape
441  'spacing along a column', & ! longname
442  .true., & ! required
443  .false., & ! developmode
444  .false., & ! multi-record
445  .false., & ! preserve case
446  .false., & ! layered
447  .false. & ! timeseries
448  )
449 
450  type(inputparamdefinitiontype), parameter :: &
451  prtdis_top = inputparamdefinitiontype &
452  ( &
453  'PRT', & ! component
454  'DIS', & ! subcomponent
455  'GRIDDATA', & ! block
456  'TOP', & ! tag name
457  'TOP', & ! fortran variable
458  'DOUBLE2D', & ! type
459  'NCOL NROW', & ! shape
460  'cell top elevation', & ! longname
461  .true., & ! required
462  .false., & ! developmode
463  .false., & ! multi-record
464  .false., & ! preserve case
465  .false., & ! layered
466  .false. & ! timeseries
467  )
468 
469  type(inputparamdefinitiontype), parameter :: &
470  prtdis_botm = inputparamdefinitiontype &
471  ( &
472  'PRT', & ! component
473  'DIS', & ! subcomponent
474  'GRIDDATA', & ! block
475  'BOTM', & ! tag name
476  'BOTM', & ! fortran variable
477  'DOUBLE3D', & ! type
478  'NCOL NROW NLAY', & ! shape
479  'cell bottom elevation', & ! longname
480  .true., & ! required
481  .false., & ! developmode
482  .false., & ! multi-record
483  .false., & ! preserve case
484  .true., & ! layered
485  .false. & ! timeseries
486  )
487 
488  type(inputparamdefinitiontype), parameter :: &
489  prtdis_idomain = inputparamdefinitiontype &
490  ( &
491  'PRT', & ! component
492  'DIS', & ! subcomponent
493  'GRIDDATA', & ! block
494  'IDOMAIN', & ! tag name
495  'IDOMAIN', & ! fortran variable
496  'INTEGER3D', & ! type
497  'NCOL NROW NLAY', & ! shape
498  'idomain existence array', & ! longname
499  .false., & ! required
500  .false., & ! developmode
501  .false., & ! multi-record
502  .false., & ! preserve case
503  .true., & ! layered
504  .false. & ! timeseries
505  )
506 
507  type(inputparamdefinitiontype), parameter :: &
508  prt_dis_param_definitions(*) = &
509  [ &
510  prtdis_length_units, &
511  prtdis_nogrb, &
512  prtdis_grb_filerecord, &
513  prtdis_grb6, &
514  prtdis_fileout, &
515  prtdis_grb6_filename, &
516  prtdis_xorigin, &
517  prtdis_yorigin, &
518  prtdis_angrot, &
519  prtdis_export_ascii, &
520  prtdis_export_nc, &
521  prtdis_crs, &
522  prtdis_ncf_filerecord, &
523  prtdis_ncf6, &
524  prtdis_filein, &
525  prtdis_ncf6_filename, &
526  prtdis_nlay, &
527  prtdis_nrow, &
528  prtdis_ncol, &
529  prtdis_delr, &
530  prtdis_delc, &
531  prtdis_top, &
532  prtdis_botm, &
533  prtdis_idomain &
534  ]
535 
536  type(inputparamdefinitiontype), parameter :: &
537  prt_dis_aggregate_definitions(*) = &
538  [ &
539  inputparamdefinitiontype &
540  ( &
541  '', & ! component
542  '', & ! subcomponent
543  '', & ! block
544  '', & ! tag name
545  '', & ! fortran variable
546  '', & ! type
547  '', & ! shape
548  '', & ! longname
549  .false., & ! required
550  .false., & ! developmode
551  .false., & ! multi-record
552  .false., & ! preserve case
553  .false., & ! layered
554  .false. & ! timeseries
555  ) &
556  ]
557 
558  type(inputblockdefinitiontype), parameter :: &
559  prt_dis_block_definitions(*) = &
560  [ &
561  inputblockdefinitiontype( &
562  'OPTIONS', & ! blockname
563  .false., & ! required
564  .false., & ! aggregate
565  .false. & ! block_variable
566  ), &
567  inputblockdefinitiontype( &
568  'DIMENSIONS', & ! blockname
569  .true., & ! required
570  .false., & ! aggregate
571  .false. & ! block_variable
572  ), &
573  inputblockdefinitiontype( &
574  'GRIDDATA', & ! blockname
575  .true., & ! required
576  .false., & ! aggregate
577  .false. & ! block_variable
578  ) &
579  ]
580 
581 end module prtdisinputmodule
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
prtdisinputmodule::prtdis_grb6
type(inputparamdefinitiontype), parameter prtdis_grb6
Definition: prt-disidm.f90:108
prtdisinputmodule::prtdis_export_nc
type(inputparamdefinitiontype), parameter prtdis_export_nc
Definition: prt-disidm.f90:241
prtdisinputmodule::prtdis_yorigin
type(inputparamdefinitiontype), parameter prtdis_yorigin
Definition: prt-disidm.f90:184
prtdisinputmodule::prtdis_top
type(inputparamdefinitiontype), parameter prtdis_top
Definition: prt-disidm.f90:450
prtdisinputmodule::prtdis_nogrb
type(inputparamdefinitiontype), parameter prtdis_nogrb
Definition: prt-disidm.f90:70
prtdisinputmodule::prtdis_nlay
type(inputparamdefinitiontype), parameter prtdis_nlay
Definition: prt-disidm.f90:355
prtdisinputmodule::prt_dis_is_advanced
logical, public prt_dis_is_advanced
Definition: prt-disidm.f90:43
prtdisinputmodule::prtdis_xorigin
type(inputparamdefinitiontype), parameter prtdis_xorigin
Definition: prt-disidm.f90:165
prtdisinputmodule::prt_dis_subpackages
character(len=16), dimension(*), parameter, public prt_dis_subpackages
Definition: prt-disidm.f90:45
prtdisinputmodule::prtdis_export_ascii
type(inputparamdefinitiontype), parameter prtdis_export_ascii
Definition: prt-disidm.f90:222
prtdisinputmodule::prtdis_fileout
type(inputparamdefinitiontype), parameter prtdis_fileout
Definition: prt-disidm.f90:127
prtdisinputmodule::prtdis_botm
type(inputparamdefinitiontype), parameter prtdis_botm
Definition: prt-disidm.f90:469
prtdisinputmodule::prtdis_grb6_filename
type(inputparamdefinitiontype), parameter prtdis_grb6_filename
Definition: prt-disidm.f90:146
prtdisinputmodule::prtdis_idomain
type(inputparamdefinitiontype), parameter prtdis_idomain
Definition: prt-disidm.f90:488
prtdisinputmodule::prtdis_nrow
type(inputparamdefinitiontype), parameter prtdis_nrow
Definition: prt-disidm.f90:374
prtdisinputmodule::prt_dis_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public prt_dis_aggregate_definitions
Definition: prt-disidm.f90:536
prtdisinputmodule::prtdis_delr
type(inputparamdefinitiontype), parameter prtdis_delr
Definition: prt-disidm.f90:412
prtdisinputmodule::prtdis_grb_filerecord
type(inputparamdefinitiontype), parameter prtdis_grb_filerecord
Definition: prt-disidm.f90:89
prtdisinputmodule::prtdis_ncf_filerecord
type(inputparamdefinitiontype), parameter prtdis_ncf_filerecord
Definition: prt-disidm.f90:279
prtdisinputmodule::prtdis_delc
type(inputparamdefinitiontype), parameter prtdis_delc
Definition: prt-disidm.f90:431
prtdisinputmodule::prtdis_ncf6_filename
type(inputparamdefinitiontype), parameter prtdis_ncf6_filename
Definition: prt-disidm.f90:336
prtdisinputmodule::prtdis_crs
type(inputparamdefinitiontype), parameter prtdis_crs
Definition: prt-disidm.f90:260
prtdisinputmodule::prtdis_angrot
type(inputparamdefinitiontype), parameter prtdis_angrot
Definition: prt-disidm.f90:203
prtdisinputmodule::prtdis_ncol
type(inputparamdefinitiontype), parameter prtdis_ncol
Definition: prt-disidm.f90:393
prtdisinputmodule::prt_dis_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public prt_dis_block_definitions
Definition: prt-disidm.f90:558
prtdisinputmodule::prt_dis_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public prt_dis_param_definitions
Definition: prt-disidm.f90:507
prtdisinputmodule::prt_dis_multi_package
logical, public prt_dis_multi_package
Definition: prt-disidm.f90:42
prtdisinputmodule::prtdis_filein
type(inputparamdefinitiontype), parameter prtdis_filein
Definition: prt-disidm.f90:317
prtdisinputmodule::prtdis_length_units
type(inputparamdefinitiontype), parameter prtdis_length_units
Definition: prt-disidm.f90:51
prtdisinputmodule::prtdis_ncf6
type(inputparamdefinitiontype), parameter prtdis_ncf6
Definition: prt-disidm.f90:298
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