15 logical :: length_units = .false.
16 logical :: nogrb = .false.
17 logical :: xorigin = .false.
18 logical :: yorigin = .false.
19 logical :: angrot = .false.
20 logical :: voffsettol = .false.
21 logical :: export_ascii = .false.
22 logical :: nodes = .false.
23 logical :: nja = .false.
24 logical :: nvert = .false.
25 logical :: top = .false.
26 logical :: bot = .false.
27 logical :: area = .false.
28 logical :: idomain = .false.
29 logical :: iac = .false.
30 logical :: ja = .false.
31 logical :: ihc = .false.
32 logical :: cl12 = .false.
33 logical :: hwva = .false.
34 logical :: angldegx = .false.
35 logical :: iv = .false.
36 logical :: xv = .false.
37 logical :: yv = .false.
38 logical :: icell2d = .false.
39 logical :: xc = .false.
40 logical :: yc = .false.
41 logical :: ncvert = .false.
42 logical :: icvert = .false.
47 character(len=16),
parameter :: &
63 'model length units', &
81 'do not write binary grid file', &
99 'x-position origin of the model grid coordinate system', &
117 'y-position origin of the model grid coordinate system', &
149 'VERTICAL_OFFSET_TOLERANCE', &
153 'vertical length dimension for top and bottom checking', &
167 'EXPORT_ARRAY_ASCII', &
171 'export array variables to layered ascii files.', &
189 'number of layers', &
207 'number of columns', &
225 'number of vertices', &
243 'cell top elevation', &
261 'cell bottom elevation', &
279 'cell surface area', &
297 'idomain existence array', &
315 'number of cell connections', &
333 'grid connectivity', &
369 'connection lengths', &
387 'connection lengths', &
405 'angle of face normal to connection', &
441 'x-coordinate for vertex', &
459 'y-coordinate for vertex', &
495 'x-coordinate for cell center', &
513 'y-coordinate for cell center', &
531 'number of cell vertices', &
549 'array of vertex numbers', &
598 'RECARRAY IV XV YV', &
616 'RECARRAY ICELL2D XC YC NCVERT ICVERT', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name