Symbol Description Uses
rhoConst Vertically constant reference density 63


File Line number Procedure Code
./pkg/shelfice/shelfice_thermodynamics.F 161 SHELFICE_THERMODYNAMICS 
             print *, 'ml-shelfice: rhoW    = ', rhoConst
./pkg/shelfice/shelfice_thermodynamics.F 187 SHELFICE_THERMODYNAMICS 
     &           rhoConst/rhoShelfIce * SHELFICEsaltTransCoeff
./pkg/shelfice/shelfice_thermodynamics.F 73 SHELFICE_THERMODYNAMICS 
      eps1 = rhoConst*HeatCapacity_Cp*SHELFICEheatTransCoeff
./pkg/shelfice/shelfice_thermodynamics.F 74 SHELFICE_THERMODYNAMICS 
      eps2 = rhoConst*SHELFICElatentHeat*SHELFICEsaltTransCoeff
./pkg/shelfice/shelfice_thermodynamics.F 95 SHELFICE_THERMODYNAMICS 
     &           *HeatCapacity_Cp*recip_horiVertRatio*rhoConst
./model/inc/PARAMS.h 644 NO PROCEDURE 
     & recip_rhoConst, rhoConst,
./model/inc/PARAMS.h 732 NO PROCEDURE 
      _RL rhoConst
./pkg/gmredi/gmredi_diagnostics_fill.F 76 GMREDI_DIAGNOSTICS_FILL 
     &      0.5*rhoConst*fCori(i,j,bi,bj)*
./pkg/gmredi/gmredi_diagnostics_fill.F 90 GMREDI_DIAGNOSTICS_FILL 
     &      -0.5*rhoConst*fCori(i,j,bi,bj)*
./model/src/ini_eos.F 410 CHECK_EOS 
     &           ' = ', rholoc(i,j)+rhoConst, bulkMod(i,j)
./model/src/ini_eos.F 419 CHECK_EOS 
     &           ' = ', rholoc(i,j)+rhoConst, bulkMod(i,j)
./pkg/offline/offline_fields_load.F 416 OFFLINE_FIELDS_LOAD 
     &        (HeatCapacity_Cp*recip_horiVertRatio*rhoConst)
./pkg/offline/offline_fields_load.F 420 OFFLINE_FIELDS_LOAD 
     &       (recip_horiVertRatio*rhoConst)
./model/src/find_rho.F 101 FIND_RHO 
       sigRef=eosSig0(kRef) + (1000.-rhoConst)
./model/src/find_rho.F 166 FIND_RHO 
     &              - rhoConst
./model/src/find_rho.F 191 FIND_RHO 
               rholoc(i,j) = rhoNum(i,j)*rhoDen(i,j) - rhoConst
./model/src/find_rho.F 633 FIND_RHO_SCALAR 
     &                   ) + (rhoNil-rhoConst)
./model/src/find_rho.F 727 FIND_RHO_SCALAR 
         rhoLoc = rhoP0/(1. _d 0 - p1/bulkMod) - rhoConst
./model/src/find_rho.F 759 FIND_RHO_SCALAR 
         rhoLoc = rhoNum*rhoDen - rhoConst
./model/src/find_rho.F 86 FIND_RHO 
       dRho = rhoNil-rhoConst
./model/src/ini_linear_phisurf.F 114 INI_LINEAR_PHISURF 
             rhoLoc = rhoLoc + rhoConst
./model/src/ini_linear_phisurf.F 97 INI_LINEAR_PHISURF 
             recip_Bo(I,J,bi,bj) = rhoConst
./model/src/ini_parms.F 1170 INI_PARMS 
         horiVertRatio = Gravity * rhoConst
./model/src/ini_parms.F 186 INI_PARMS 
     & rhoConst, rhoConstFresh, buoyancyRelation, HeatCapacity_Cp,
./model/src/ini_parms.F 374 INI_PARMS 
      rhoConst = UNSET_RL
./model/src/ini_parms.F 449 INI_PARMS 
      IF ( rhoConst .EQ. UNSET_RL ) rhoConst=rhoNil
./model/src/ini_parms.F 450 INI_PARMS 
      IF ( rhoConstFresh .EQ. UNSET_RL ) rhoConstFresh=rhoConst
./model/src/ini_parms.F 577 INI_PARMS 
      IF ( rhoConst .LE. 0. ) THEN
./model/src/ini_parms.F 583 INI_PARMS 
       recip_rhoConst = 1.D0 / rhoConst
./model/src/calc_phi_hyd.F 263 CALC_PHI_HYD 
            locAlpha=alphaRho(i,j)+rhoConst
./model/src/external_forcing_surf.F 136 EXTERNAL_FORCING_SURF 
        tmpFac = HeatCapacity_Cp*recip_horiVertRatio*rhoConst
./model/src/external_forcing_surf.F 142 EXTERNAL_FORCING_SURF 
        tmpFac = recip_horiVertRatio*rhoConst
./model/src/config_summary.F 214 CONFIG_SUMMARY 
      CALL WRITE_0D_R8( rhoConst, INDEX_NONE,'rhoConst =',
./model/src/ini_phiref.F 124 INI_PHIREF 
          rhoRef(k) = rhoRef(k) + rhoConst
./model/src/ini_phiref.F 138 INI_PHIREF 
     &               / (rhoDw+rhoConst)
./model/src/ini_phiref.F 139 INI_PHIREF 
     &               / (rhoUp+rhoConst)
./model/src/ini_phiref.F 87 INI_PHIREF 
          pLoc = -rhoConst*rC(k)*gravity
./model/src/ini_phiref.F 91 INI_PHIREF 
          rhoRef(k) = rhoRef(k) + rhoConst
./model/src/ini_phiref.F 97 INI_PHIREF 
          pLoc = -rhoConst*rF(k)*gravity
./model/src/pressure_for_eos.F 60 PRESSURE_FOR_EOS 
            locPres(i,j) = rhoConst*(
./model/src/pressure_for_eos.F 69 PRESSURE_FOR_EOS 
            locPres(i,j) = -rhoConst*rC(k)*gravity
./model/src/diags_oceanic_surf_flux.F 115 DIAGS_OCEANIC_SURF_FLUX 
       tmpFac = HeatCapacity_Cp*recip_horiVertRatio*rhoConst
./model/src/diags_oceanic_surf_flux.F 127 DIAGS_OCEANIC_SURF_FLUX 
     &      recip_horiVertRatio*rhoConst
./model/src/diags_oceanic_surf_flux.F 78 DIAGS_OCEANIC_SURF_FLUX 
     &      *HeatCapacity_Cp*recip_horiVertRatio*rhoConst
./pkg/cost/cost_atlantic_heat.F 175 COST_ATLANTIC_HEAT 
     &     sum*HeatCapacity_Cp*rhoConst/petawatt
./pkg/kpp/kpp_routines.F 1476 STATEKPP 
            RHO1(I,J)      = WORK1(I,J) + rhoConst
./pkg/kpp/kpp_routines.F 1551 STATEKPP 
     &                                    (RHOK(I,J) + rhoConst)
./pkg/kpp/kpp_routines.F 1553 STATEKPP 
     &                                    (RHOK(I,J) + rhoConst)
./pkg/opps/opps_calc.F 492 OPPS_CALC 
        pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 496 OPPS_CALC 
        pLoc = -rhoConst*rC(kRef)*gravity*maskC(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 525 OPPS_CALC 
       dRho = rhoNil-rhoConst
./pkg/opps/opps_calc.F 617 OPPS_CALC 
         rhoLoc = rhoP0/(1. _d 0 - p1/bulkMod) - rhoConst
./pkg/opps/opps_calc.F 649 OPPS_CALC 
         rhoLoc = rhoNum*rhoDen - rhoConst
./pkg/opps/opps_calc.F 661 OPPS_CALC 
      state1 = rhoLoc + rhoConst
./pkg/mom_common/mom_quasihydrostatic.F 54 MOM_QUASIHYDROSTATIC 
      scalingFactor=rhoConst*gravitySign*recip_gravity
./pkg/timeave/timeave_surf_flux.F 102 TIMEAVE_SURF_FLUX 
     &    recip_horiVertRatio*rhoConst
./pkg/timeave/timeave_surf_flux.F 79 TIMEAVE_SURF_FLUX 
     &    *HeatCapacity_Cp*recip_horiVertRatio*rhoConst
./pkg/monitor/mon_surfcor.F 185 MON_SURFCOR 
         wT_Heat  = wT_Heat  * rhoConst*recip_horiVertRatio
./pkg/monitor/mon_surfcor.F 186 MON_SURFCOR 
         theta2PE = theta2PE * rhoConst*recip_horiVertRatio
./pkg/sbo/sbo_calc.F 255 SBO_CALC 
                density = rhoConst + rhoK(I,J)
./pkg/thsice/thsice_readparms.F 88 THSICE_READPARMS 
      rhosw    = rhoConst
./pkg/seaice/growth.F 273 GROWTH 
     &         *HeatCapacity_Cp*recip_horiVertRatio*rhoConst