Symbol Description Uses
rhoConstFresh Constant reference density for fresh water (rain) 43



File Line number Procedure Code
./model/inc/PARAMS.h 741 NO PROCEDURE
     & rhoConstFresh, rho1Ref, tRef, sRef, phiRef, dBdrRef,
./model/inc/PARAMS.h 837 NO PROCEDURE
      _RL rhoConstFresh
./pkg/land/land_readparms.F 146 LAND_READPARMS
      land_rhoLiqW  = rhoConstFresh
./model/src/config_summary.F 227 CONFIG_SUMMARY
      CALL WRITE_0D_RL( rhoConstFresh, INDEX_NONE,'rhoConstFresh =',
./pkg/seaice/seaice_growth.F 1121 SEAICE_GROWTH
     &            /SEAICE_deltaTtherm * ICE2WATR * rhoConstFresh
./pkg/seaice/seaice_growth.F 1125 SEAICE_GROWTH
     &            /SEAICE_deltaTtherm * ICE2WATR * rhoConstFresh
./pkg/seaice/seaice_growth.F 1166 SEAICE_GROWTH
     &            *tmpscal1*ICE2WATR*rhoConstFresh
./pkg/seaice/seaice_growth.F 1172 SEAICE_GROWTH
     &            *tmpscal1*ICE2WATR*rhoConstFresh
./pkg/seaice/seaice_growth.F 1449 SEAICE_GROWTH
     &         )*rhoConstFresh
./pkg/seaice/seaice_growth.F 1461 SEAICE_GROWTH
     &         )*rhoConstFresh
./pkg/seaice/seaice_growth.F 232 SEAICE_GROWTH
      convertPRECIP2HI=SEAICE_deltaTtherm*rhoConstFresh/SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 647 SEAICE_GROWTH
     &           )*rhoConstFresh
./pkg/seaice/seaice_growth_if.F 941 SEAICE_GROWTH_IF
     &                    SEAICE_deltaTtherm )*rhoConstFresh
./pkg/seaice/seaice_init_varia.F 396 SEAICE_INIT_VARIA
     &            ICE2WATR*rhoConstFresh*SEAICE_salinity
./model/src/external_fields_load.F 139 EXTERNAL_FIELDS_LOAD
            EmPmR0(i,j,bi,bj) = EmPmR0(i,j,bi,bj)*rhoConstFresh
./model/src/external_fields_load.F 140 EXTERNAL_FIELDS_LOAD
            EmPmR1(i,j,bi,bj) = EmPmR1(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F 68 THSICE_MAP_EXF
        totPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F 71 THSICE_MAP_EXF
        totPrc(i,j) = totPrc(i,j) + runoff(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F 87 THSICE_MAP_EXF
         snowPrc(i,j) = snowPrecip(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F 98 THSICE_MAP_EXF
          snowPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_readparms.F 90 THSICE_READPARMS
      rhofw    = rhoConstFresh
./pkg/timeave/timeave_surf_flux.F 103 TIMEAVE_SURF_FLUX
     &      + PmEpR(i,j,bi,bj)*rhoConstFresh
./pkg/timeave/timeave_surf_flux.F 81 TIMEAVE_SURF_FLUX
     &      + PmEpR(i,j,bi,bj)*rhoConstFresh
./model/src/ini_forcing.F 135 INI_FORCING
            EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh
./model/src/ini_parms.F 195 INI_PARMS
     & rhoConst, rhoConstFresh, buoyancyRelation, HeatCapacity_Cp,
./model/src/ini_parms.F 349 INI_PARMS
      rhoConstFresh  = UNSET_RL
./model/src/ini_parms.F 413 INI_PARMS
      IF ( rhoConstFresh .EQ. UNSET_RL ) rhoConstFresh=rhoConst
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 137 INI_FORCING
            EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh
./pkg/aim_compon_interf/atm_cpl_read_pickup.F 87 ATM_CPL_READ_PICKUP
            EvMPrFlux (i,j,bi,bj) = EvMPrFlux (i,j,bi,bj)*rhoConstFresh
./pkg/aim_compon_interf/atm_cpl_read_pickup.F 88 ATM_CPL_READ_PICKUP
            RunOffFlux(i,j,bi,bj) = RunOffFlux(i,j,bi,bj)*rhoConstFresh
./pkg/atm2d/put_ocnvars.F 60 PUT_OCNVARS
     &                     + pass_runoff(i,j)) * rhoConstFresh
./pkg/atm2d/put_ocnvars.F 80 PUT_OCNVARS
     &                     + pass_runoff(i,j)) * rhoConstFresh
./pkg/bulk_force/bulkf_fields_load.F 296 BULKF_FIELDS_LOAD
            empch0(i,j,bi,bj) = empch0(i,j,bi,bj)*rhoConstFresh
./pkg/bulk_force/bulkf_fields_load.F 297 BULKF_FIELDS_LOAD
            empch1(i,j,bi,bj) = empch1(i,j,bi,bj)*rhoConstFresh
./pkg/bulk_force/bulkf_forcing.F 191 BULKF_FORCING
     &                           - runoff(i,j,bi,bj))*rhoConstFresh
./pkg/bulk_force/bulkf_readparms.F 77 BULKF_READPARMS
      rhoFW  = rhoConstFresh
./pkg/ebm/ebm_atmosphere.F 339 EBM_ATMOSPHERE
          EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh
./pkg/ebm/ebm_forcing_surf.F 83 EBM_FORCING_SURF
     &         *convertFW2Salt*rhoConstFresh*mass2rUnit
./pkg/ecco/cost_mean_saltflux.F 118 COST_MEAN_SALTFLUX
     &                + tmpx* _rA(i,j,bi,bj)/rhoConstFresh
./pkg/exf/exf_bulkformulae.F 237 EXF_BULKFORMULAE
      recip_rhoConstFresh = 1. _d 0/rhoConstFresh
./pkg/exf/exf_mapfields.F 117 EXF_MAPFIELDS
     &                                          *rhoConstFresh
./pkg/exf/exf_mapfields.F 123 EXF_MAPFIELDS
                 EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - rhoConstFresh*