Symbol Description Uses
coordsSet can be interms of z, p or r. e.g. delZ or delP or delR for the vertical grid spacing. The following rules apply: All parameters must use the same vertical coordinate system. e.g. delZ and viscAz is legal but delZ and viscAr is an error. Similarly specifying delZ and delP is an error. zCoord..., pCoord..., rCoord... are used to flag when z, p or r are used. coordsSet counts how many vertical coordinate systems have been used to specify variables. coordsSet > 1 is an error. 18



File Line number Procedure Code
./model/src/ini_parms.F 1336 INI_PARMS
      coordsSet = 0
./model/src/ini_parms.F 1337 INI_PARMS
      IF ( zCoordInputData ) coordsSet = coordsSet + 1
./model/src/ini_parms.F 1338 INI_PARMS
      IF ( pCoordInputData ) coordsSet = coordsSet + 1
./model/src/ini_parms.F 1339 INI_PARMS
      IF ( rCoordInputData ) coordsSet = coordsSet + 1
./model/src/ini_parms.F 1340 INI_PARMS
      IF ( coordsSet .GT. 1 ) THEN
./model/src/ini_parms.F 323 INI_PARMS
      coordsSet       = 0
./model/src/ini_parms.F 626 INI_PARMS
      coordsSet = 0
./model/src/ini_parms.F 627 INI_PARMS
      IF ( zCoordInputData ) coordsSet = coordsSet + 1
./model/src/ini_parms.F 628 INI_PARMS
      IF ( pCoordInputData ) coordsSet = coordsSet + 1
./model/src/ini_parms.F 629 INI_PARMS
      IF ( rCoordInputData ) coordsSet = coordsSet + 1
./model/src/ini_parms.F 630 INI_PARMS
      IF ( coordsSet .GT. 1 ) THEN
./model/src/ini_parms.F 91 INI_PARMS
      INTEGER coordsSet