Symbol Description Uses
dzLoc hold on temporary values 16



File Line number Procedure Code
./pkg/gmredi/submeso_calc_psi.F 105 SUBMESO_CALC_PSI
          dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerU(i,j)+rF(k) ) )
./pkg/gmredi/submeso_calc_psi.F 106 SUBMESO_CALC_PSI
          dBuoyX_Hu(i,j) = dBuoyX_Hu(i,j) + sigmaX(i,j,k)*dzLoc
./pkg/gmredi/submeso_calc_psi.F 111 SUBMESO_CALC_PSI
          dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerV(i,j)+rF(k) ) )
./pkg/gmredi/submeso_calc_psi.F 112 SUBMESO_CALC_PSI
          dBuoyY_Hv(i,j) = dBuoyY_Hv(i,j) + sigmaY(i,j,k)*dzLoc
./pkg/gmredi/submeso_calc_psi.F 119 SUBMESO_CALC_PSI
          dzLoc = 0.
./pkg/gmredi/submeso_calc_psi.F 120 SUBMESO_CALC_PSI
          IF ( locMixLayer(i,j)+rC(k-1).GE.0. ) dzLoc = drC(k)
./pkg/gmredi/submeso_calc_psi.F 122 SUBMESO_CALC_PSI
     &                  + dzLoc*MAX( -sigmaR(i,j,k), 0. _d 0 )
./pkg/gmredi/submeso_calc_psi.F 60 SUBMESO_CALC_PSI
      _RL dzLoc
./model/src/ini_p_ground.F 190 INI_P_GROUND
             dzLoc = dPiHvR(k)*thetaHvR(k)*recip_gravity
./model/src/ini_p_ground.F 191 INI_P_GROUND
             IF ( phiLoc .LE. zLoc+dzLoc ) THEN
./model/src/ini_p_ground.F 201 INI_P_GROUND
               zLoc = zLoc + dzLoc
./model/src/ini_p_ground.F 336 INI_P_GROUND
              dzLoc = dPiHvR(k)*thetaHvR(k)*recip_gravity
./model/src/ini_p_ground.F 337 INI_P_GROUND
              zLoc = zLoc + dzLoc
./model/src/ini_p_ground.F 339 INI_P_GROUND
            dzLoc = ( PiHvR(kLev)-atm_Cp*(psNorm**atm_kappa) )
./model/src/ini_p_ground.F 341 INI_P_GROUND
            zLoc = zLoc + dzLoc
./model/src/ini_p_ground.F 71 INI_P_GROUND
      _RL recip_kappa, PiLoc, zLoc, dzLoc, yLatLoc, phiLoc