Symbol Description Uses
recip_rhoConst 73


File Line number Procedure Code
./model/inc/PARAMS.h 772 NO PROCEDURE 
     & rhoNil, rhoConst, recip_rhoConst, thetaConst,
./model/inc/PARAMS.h 869 NO PROCEDURE 
      _RL rhoConst,      recip_rhoConst
./pkg/ggl90/ggl90_calc.F 169 GGL90_CALC 
         Nsquare(i,j,k) = gravity*gravitySign*recip_rhoConst
./pkg/gmredi/gmredi_calc_tensor.F 382 GMREDI_CALC_TENSOR 
             M2loc = gravity*recip_rhoConst*dSigmaH
./pkg/gmredi/gmredi_calc_tensor.F 384 GMREDI_CALC_TENSOR 
             N2loc = -gravity*recip_rhoConst*dSigmaR
./pkg/gmredi/gmredi_calc_tensor.F 479 GMREDI_CALC_TENSOR 
         N2loc = -gravity*recip_rhoConst*dSigmaDr(i,j)
./pkg/gmredi/gmredi_k3d.F 249 GMREDI_K3D 
      g_reciprho_sq = (gravity*recip_rhoConst)**2
./pkg/gmredi/gmredi_k3d.F 374 GMREDI_K3D 
         N2(i,j,k) = -gravity*recip_rhoConst*sigmaR(i,j,k)
./pkg/gmredi/submeso_calc_psi.F 128 SUBMESO_CALC_PSI 
          dBuoyX_Hu(i,j)= -dBuoyX_Hu(i,j)*gravity*recip_rhoConst
./pkg/gmredi/submeso_calc_psi.F 129 SUBMESO_CALC_PSI 
          dBuoyY_Hv(i,j)= -dBuoyY_Hv(i,j)*gravity*recip_rhoConst
./pkg/gmredi/submeso_calc_psi.F 130 SUBMESO_CALC_PSI 
          NHmixLay(i,j) = SQRT( NHmixLay(i,j)*gravity*recip_rhoConst
./pkg/kpp/kpp_forcing_surf.F 215 KPP_FORCING_SURF 
     &       recip_Cp*recip_rhoConst
./pkg/kpp/kpp_forcing_surf.F 232 KPP_FORCING_SURF 
     &              * recip_rhoConst / rhoSurf(I,J)
./pkg/kpp/kpp_forcing_surf.F 245 KPP_FORCING_SURF 
     &              * recip_rhoConst / rhoSurf(I,J)
./pkg/kpp/kpp_transport_s.F 101 KPP_TRANSPORT_S 
     &          + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst
./pkg/kpp/kpp_transport_s.F 117 KPP_TRANSPORT_S 
     &          + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst
./pkg/kpp/kpp_transport_t.F 84 KPP_TRANSPORT_T 
     &            -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst
./pkg/kpp/kpp_transport_t.F 99 KPP_TRANSPORT_T 
     &            -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst
./model/src/calc_grad_phi_hyd.F 167 CALC_GRAD_PHI_HYD 
        factorZ = gravity*recip_rhoConst*recip_rhoFacC(k)*0.5 _d 0
./model/src/calc_phi_hyd.F 213 CALC_PHI_HYD 
     &                      *gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 232 CALC_PHI_HYD 
     &          + halfRL*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 234 CALC_PHI_HYD 
     &                 + drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 245 CALC_PHI_HYD 
            phiHydC(i,j) = ddRloc*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 248 CALC_PHI_HYD 
     &            + halfRL*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 251 CALC_PHI_HYD 
     &            + halfRL*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 273 CALC_PHI_HYD 
     &        +dRlocM*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 275 CALC_PHI_HYD 
     &        +dRlocP*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 290 CALC_PHI_HYD 
     &                    )*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 293 CALC_PHI_HYD 
     &        +dRlocM*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 296 CALC_PHI_HYD 
     &        +dRlocP*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 345 CALC_PHI_HYD 
     &              (oneRL/locAlpha - recip_rhoConst)
./pkg/mom_common/mom_quasihydrostatic.F 67 MOM_QUASIHYDROSTATIC 
        scalingFactor = recip_rhoConst*recip_gravity
./pkg/ocn_compon_interf/ocn_apply_import.F 148 OCN_APPLY_IMPORT 
              phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst
./pkg/ocn_compon_interf/ocn_apply_import.F 149 OCN_APPLY_IMPORT 
     &                 + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst
./pkg/ocn_compon_interf/ocn_apply_import.F 155 OCN_APPLY_IMPORT 
              phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst
./pkg/ocn_compon_interf/ocn_apply_import.F 156 OCN_APPLY_IMPORT 
     &                 + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst
./pkg/ocn_compon_interf/ocn_apply_import.F 162 OCN_APPLY_IMPORT 
              phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst
./model/src/diags_phi_hyd.F 100 DIAGS_PHI_HYD 
           dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*recip_rhoConst
./model/src/diags_phi_rlow.F 111 DIAGS_PHI_RLOW 
     &                   )*gravity*alphRho(i,j)*recip_rhoConst
./model/src/diags_phi_rlow.F 158 DIAGS_PHI_RLOW 
     &              *recip_rhoConst
./model/src/diags_phi_rlow.F 91 DIAGS_PHI_RLOW 
     &            + ddRloc*gravity*alphRho(i,j)*recip_rhoConst
./model/src/external_forcing_surf.F 361 EXTERNAL_FORCING_SURF 
     &                            )*recip_rhoConst
./model/src/external_forcing_surf.F 367 EXTERNAL_FORCING_SURF 
            phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst
./pkg/seaice/dynsolver.F 178 DYNSOLVER 
     &                     )*recip_rhoConst
./pkg/seaice/dynsolver.F 185 DYNSOLVER 
     &                   + pload(i,j,bi,bj)*recip_rhoConst
./pkg/seaice/seaice_dynsolver.F 202 SEAICE_DYNSOLVER 
     &                     )*recip_rhoConst
./pkg/seaice/seaice_dynsolver.F 209 SEAICE_DYNSOLVER 
     &                   + pload(i,j,bi,bj)*recip_rhoConst
./pkg/seaice/seaice_growth.F 1684 SEAICE_GROWTH 
     &               * recip_rhoConst
./pkg/seaice/seaice_growth.F 1695 SEAICE_GROWTH 
     &              +HEFF(I,J,bi,bj)*SEAICE_rhoIce)*recip_rhoConst
./pkg/seaice/seaice_readparms.F 591 SEAICE_READPARMS 
      IF (ICE2WATR.EQ.UNSET_RL) ICE2WATR = SEAICE_rhoIce*recip_rhoConst
./pkg/shelfice/shelfice_forcing_surf.F 86 SHELFICE_FORCING_SURF 
     &         + shelficeLoadAnomaly(i,j,bi,bj)*recip_rhoConst
./model/src/ini_eos.F 474 EOS_CHECK 
            rC(k) = -pLoc(kcheck)*recip_rhoConst*recip_gravity
./model/src/ini_linear_phisurf.F 101 INI_LINEAR_PHISURF 
             Bo_surf(i,j,bi,bj)  = recip_rhoConst
./model/src/ini_parms.F 1343 INI_PARMS 
         mass2rUnit = recip_rhoConst
./model/src/ini_parms.F 601 INI_PARMS 
       recip_rhoConst = 1. _d 0
./model/src/ini_parms.F 603 INI_PARMS 
       recip_rhoConst = 1. _d 0 / rhoConst
./verification/tidal_basin_2d/code/external_forcing.F 278 EXTERNAL_FORCING_T 
     &    *recip_Cp*recip_rhoConst
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 356 EXTERNAL_FORCING_SURF 
     &                            )*recip_rhoConst
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 362 EXTERNAL_FORCING_SURF 
            phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 356 EXTERNAL_FORCING_SURF 
     &                            )*recip_rhoConst
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 362 EXTERNAL_FORCING_SURF 
            phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst
./model/src/set_ref_state.F 130 SET_REF_STATE 
     &               *recip_rhoConst*gravity
./model/src/set_ref_state.F 136 SET_REF_STATE 
     &                 *rhoNil*recip_rhoConst*gravity
./model/src/set_ref_state.F 278 SET_REF_STATE 
        phiRef(1) = -recip_rhoConst*rF(1)
./model/src/set_ref_state.F 280 SET_REF_STATE 
          phiRef(2*k)   = -recip_rhoConst*rC(k)
./model/src/set_ref_state.F 281 SET_REF_STATE 
          phiRef(2*k+1) = -recip_rhoConst*rF(k+1)
./model/src/taueddy_tendency_apply.F 163 TAUEDDY_TENDENCY_APPLY_V 
     &  +foFacMom*recip_rhoConst*
./model/src/taueddy_tendency_apply.F 81 TAUEDDY_TENDENCY_APPLY_U 
     &  +foFacMom*recip_rhoConst*
./pkg/ctrl/ctrl_map_gentim2d.F 149 CTRL_MAP_GENTIM2D 
     &          *rhoConstFresh*recip_rhoConst*deltaTClock
./pkg/down_slope/dwnslp_calc_flow.F 122 DWNSLP_CALC_FLOW 
     &             *DWNSLP_rec_mu*gravity*dRhoH*recip_rhoConst
./pkg/down_slope/dwnslp_init_fixed.F 255 DWNSLP_INIT_FIXED 
            dz_bottom = dz_bottom*recip_gravity*recip_rhoConst
./pkg/ecco/cost_averagesfields.F 208 COST_AVERAGESFIELDS 
     &          *rhoConstFresh*recip_rhoConst*deltaTClock
./pkg/ecco/cost_averagesfields.F 214 COST_AVERAGESFIELDS 
     &                +sIceLoad(i,j,bi,bj)*recip_rhoConst