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