Symbol Description Uses
delR Vertical grid spacing ( units of r ). 89



File Line number Procedure Code
./model/src/ini_vertical_grid.F 74 INI_VERTICAL_GRID
        IF (delR(K).LE.0.) THEN
./model/src/ini_vertical_grid.F 76 INI_VERTICAL_GRID
     &  'S/R INI_VERTICAL_GRID: delR(K=',K,' )=',delR(K)
./model/src/ini_vertical_grid.F 88 INI_VERTICAL_GRID
       drF(K)     = delR(K)
./model/src/ini_vertical_grid.F 89 INI_VERTICAL_GRID
       rF(K+1) = rF(K) + rkSign*delR(K)
./model/src/ini_vertical_grid.F 91 INI_VERTICAL_GRID
      drC(1)      = delR(1) * 0.5 _d 0
./model/src/ini_vertical_grid.F 92 INI_VERTICAL_GRID
      rC(1)       = rf(1) + rkSign*delR(1) * 0.5 _d 0
./model/src/ini_vertical_grid.F 94 INI_VERTICAL_GRID
       drC(K)     = 0.5 _d 0 *(delR(K-1)+delR(K))
./pkg/ebm/ebm_load_climatology.F 56 EBM_LOAD_CLIMATOLOGY
       tauMax = 1.0 * 1./(delR(1)*rhonil)
./verification/dome/code/obcs_calc.F 75 OBCS_CALC
      z(1) = -delR(1)/2.0
./verification/dome/code/obcs_calc.F 80 OBCS_CALC
      z(j) = z(j-1) - delR(j)
./model/src/ini_parms.F 1092 INI_PARMS
       IF ( delR(K) .NE. UNSET_RL ) rCoordInputData = .TRUE.
./model/src/ini_parms.F 1093 INI_PARMS
       IF ( delR(K) .EQ. UNSET_RL ) delR(K) = delZ(K)
./model/src/ini_parms.F 1094 INI_PARMS
       IF ( delR(K) .EQ. UNSET_RL ) delR(K) = delP(K)
./model/src/ini_parms.F 1095 INI_PARMS
       IF ( delR(K) .EQ. UNSET_RL ) delR(K) = delRDefault(K)
./model/src/ini_parms.F 1096 INI_PARMS
       IF (.NOT.setCenterDr .AND. delR(K).EQ.delRDefault(K) ) THEN
./model/src/ini_parms.F 1101 INI_PARMS
       ELSEIF ( setCenterDr .AND. delR(K).NE.delRDefault(K) ) THEN
./model/src/ini_parms.F 212 INI_PARMS
     & delP, delR, rkFac, Ro_SeaLevel, groundAtK1, delRc,
./model/src/ini_parms.F 887 INI_PARMS
       delR(K) = UNSET_RL
./model/inc/PARAMS.h 573 NO PROCEDURE
     & delR, delRc, delX, delY,
./model/inc/PARAMS.h 614 NO PROCEDURE
      _RL delR(Nr)
./pkg/kpp/kpp_readparms.F 74 KPP_READPARMS
        minKPPhbl   = delR(1)*0.5
./pkg/ctrl/ctrl_obcsvol.F 188 CTRL_OBCSVOL
                    tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 189 CTRL_OBCSVOL
                    tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 224 CTRL_OBCSVOL
                    tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 225 CTRL_OBCSVOL
                    tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 260 CTRL_OBCSVOL
                    tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 261 CTRL_OBCSVOL
                    tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 296 CTRL_OBCSVOL
                    tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 297 CTRL_OBCSVOL
                    tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 346 CTRL_OBCSVOL
                    tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 347 CTRL_OBCSVOL
                    tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 382 CTRL_OBCSVOL
                    tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 383 CTRL_OBCSVOL
                    tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 418 CTRL_OBCSVOL
                    tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 419 CTRL_OBCSVOL
                    tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 454 CTRL_OBCSVOL
                    tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 455 CTRL_OBCSVOL
                    tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 153 CTRL_GETOBCSW
     &                maskW(i+ip1,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcsw.F 161 CTRL_GETOBCSW
     &                                      - utop / delR(1)
./pkg/ctrl/ctrl_getobcsw.F 188 CTRL_GETOBCSW
     &                maskS(i,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcsw.F 196 CTRL_GETOBCSW
     &                                      - utop / delR(1)
./pkg/ctrl/ctrl_getobcsw.F 274 CTRL_GETOBCSW
     &                maskW(i+ip1,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcsw.F 282 CTRL_GETOBCSW
     &                                      - utop / delR(1)
./pkg/ctrl/ctrl_getobcsw.F 309 CTRL_GETOBCSW
     &                maskS(i,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcsw.F 317 CTRL_GETOBCSW
     &                                      - utop / delR(1)
./pkg/ctrl/ctrl_getobcse.F 153 CTRL_GETOBCSE
     &                maskW(i+ip1,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcse.F 161 CTRL_GETOBCSE
     &                                      - utop / delR(1)
./pkg/ctrl/ctrl_getobcse.F 188 CTRL_GETOBCSE
     &                maskS(i,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcse.F 196 CTRL_GETOBCSE
     &                                      - utop / delR(1)
./pkg/ctrl/ctrl_getobcse.F 271 CTRL_GETOBCSE
     &                maskW(i+ip1,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcse.F 279 CTRL_GETOBCSE
     &                                      - utop / delR(1)
./pkg/ctrl/ctrl_getobcse.F 306 CTRL_GETOBCSE
     &                maskS(i,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcse.F 314 CTRL_GETOBCSE
     &                                      - utop / delR(1)
./pkg/ctrl/ctrl_set_unpack_xyz.F 125 CTRL_SET_UNPACK_XYZ
         print *, 'ph-delznorm ', k, delZnorm, delR(k)
./pkg/ctrl/ctrl_set_unpack_xyz.F 186 CTRL_SET_UNPACK_XYZ
               delZnorm = delR(1)/delR(k)
./pkg/ctrl/ctrl_set_unpack_xyz.F 96 CTRL_SET_UNPACK_XYZ
         delZnorm = delZnorm + delR(k)/FLOAT(Nr)
./pkg/ctrl/ctrl_volflux.F 196 CTRL_VOLFLUX
                        tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 200 CTRL_VOLFLUX
                    tmpflux = tmpflux -tmpx*delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 245 CTRL_VOLFLUX
                        tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 250 CTRL_VOLFLUX
                      tmpflux = tmpflux +tmpx*delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 300 CTRL_VOLFLUX
                        tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_volflux.F 306 CTRL_VOLFLUX
                    tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_volflux.F 363 CTRL_VOLFLUX
                        tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_volflux.F 371 CTRL_VOLFLUX
                    tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_volflux.F 375 CTRL_VOLFLUX
                    tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_set_pack_xyz.F 176 CTRL_SET_PACK_XYZ
               delZnorm = delR(1)/delR(k)
./pkg/ctrl/ctrl_set_pack_xyz.F 95 CTRL_SET_PACK_XYZ
         delZnorm = delZnorm + delR(k)/FLOAT(Nr)
./pkg/ctrl/ctrl_getobcss.F 154 CTRL_GETOBCSS
     &                maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcss.F 162 CTRL_GETOBCSS
     &                                      - vtop / delR(1)
./pkg/ctrl/ctrl_getobcss.F 190 CTRL_GETOBCSS
     &                maskW(i,j,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcss.F 198 CTRL_GETOBCSS
     &                                      - vtop / delR(1)
./pkg/ctrl/ctrl_getobcss.F 273 CTRL_GETOBCSS
     &                maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcss.F 281 CTRL_GETOBCSS
     &                                      - vtop / delR(1)
./pkg/ctrl/ctrl_getobcss.F 309 CTRL_GETOBCSS
     &                maskW(i,j,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcss.F 317 CTRL_GETOBCSS
     &                                      - vtop / delR(1)
./pkg/ctrl/ctrl_getobcsn.F 165 CTRL_GETOBCSN
     &                maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcsn.F 173 CTRL_GETOBCSN
     &                                      - vtop / delR(1)
./pkg/ctrl/ctrl_getobcsn.F 203 CTRL_GETOBCSN
     &                maskW(i,j,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcsn.F 211 CTRL_GETOBCSN
     &                                      - vtop / delR(1)
./pkg/ctrl/ctrl_getobcsn.F 296 CTRL_GETOBCSN
     &                maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcsn.F 304 CTRL_GETOBCSN
     &                                      - vtop / delR(1)
./pkg/ctrl/ctrl_getobcsn.F 333 CTRL_GETOBCSN
     &                maskW(i,j,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcsn.F 341 CTRL_GETOBCSN
     &                                      - vtop / delR(1)