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 :: crs = .false.
26 logical :: nodes = .false.
27 logical :: nvert = .false.
28 logical :: width = .false.
29 logical :: bottom = .false.
30 logical :: idomain = .false.
31 logical :: iv = .false.
32 logical :: xv = .false.
33 logical :: yv = .false.
34 logical :: icell1d = .false.
35 logical :: fdc = .false.
36 logical :: ncvert = .false.
37 logical :: icvert = .false.
42 character(len=16),
parameter :: &
58 'model length units', &
77 'do not write binary grid file', &
94 'RECORD GRB6 FILEOUT GRB6_FILENAME', &
153 'file name of GRB information', &
172 'x-position origin of the model grid coordinate system', &
191 'y-position origin of the model grid coordinate system', &
225 'EXPORT_ARRAY_ASCII', &
229 'export array variables to layered ascii files.', &
248 'CRS user input string', &
267 'number of linear features', &
286 'number of columns', &
324 'bottom elevation for the one-dimensional cell', &
343 'idomain existence array', &
381 'x-coordinate for vertex', &
400 'y-coordinate for vertex', &
438 'fractional distance to the cell center', &
457 'number of cell vertices', &
476 'number of cell vertices', &
521 'RECARRAY IV XV YV', &
540 'RECARRAY ICELL1D FDC NCVERT ICVERT', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name