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 1241 INI_PARMS
      coordsSet = 0
./model/src/ini_parms.F 1242 INI_PARMS
      IF ( zCoordInputData ) coordsSet = coordsSet + 1
./model/src/ini_parms.F 1243 INI_PARMS
      IF ( pCoordInputData ) coordsSet = coordsSet + 1
./model/src/ini_parms.F 1244 INI_PARMS
      IF ( rCoordInputData ) coordsSet = coordsSet + 1
./model/src/ini_parms.F 1245 INI_PARMS
      IF ( coordsSet .GT. 1 ) THEN
./model/src/ini_parms.F 310 INI_PARMS
      coordsSet       = 0
./model/src/ini_parms.F 586 INI_PARMS
      coordsSet = 0
./model/src/ini_parms.F 587 INI_PARMS
      IF ( zCoordInputData ) coordsSet = coordsSet + 1
./model/src/ini_parms.F 588 INI_PARMS
      IF ( pCoordInputData ) coordsSet = coordsSet + 1
./model/src/ini_parms.F 589 INI_PARMS
      IF ( rCoordInputData ) coordsSet = coordsSet + 1
./model/src/ini_parms.F 590 INI_PARMS
      IF ( coordsSet .GT. 1 ) THEN
./model/src/ini_parms.F 87 INI_PARMS
      INTEGER coordsSet