Symbol Description Uses
rhofw density of fresh water [kg/m^3] 14



File Line number Procedure Code
./pkg/thsice/THSICE_PARAMS.h 80 NO PROCEDURE
     &  rhos, rhoi, rhosw, rhofw, floodFac,
./pkg/thsice/THSICE_PARAMS.h 98 NO PROCEDURE
      _RL  rhofw
./pkg/thsice/thsice_get_precip.F 108 THSICE_GET_PRECIP
     &          *( rain(i,j,bi,bj)*rhofw - snowPrc(i,j) )
./pkg/thsice/thsice_get_precip.F 110 THSICE_GET_PRECIP
     &          *runoff(i,j,bi,bj)*rhofw )
./pkg/thsice/thsice_get_precip.F 79 THSICE_GET_PRECIP
          precip(i,j) = ( rain(i,j,bi,bj)+runoff(i,j,bi,bj) )*rhofw
./pkg/thsice/thsice_get_precip.F 92 THSICE_GET_PRECIP
             snowPrc(i,j) = rain(i,j,bi,bj)*rhofw
./pkg/thsice/thsice_readparms.F 111 THSICE_READPARMS
      rhofw    = rhoConstFresh
./pkg/thsice/thsice_readparms.F 294 THSICE_READPARMS
      WRITE(iUnit,fmtR) 'ThSI:', 'rhofw       =', rhofw
./pkg/thsice/thsice_readparms.F 52 THSICE_READPARMS
     &  rhos, rhoi, rhosw, rhofw,
./pkg/thsice/thsice_step_fwd.F 285 THSICE_STEP_FWD
          pass_evap(i,j) = pass_evap(i,j) - icFrac*frw2oc(i,j)/rhofw
./pkg/thsice/thsice_step_fwd.F 351 THSICE_STEP_FWD
          pass_evap(i,j) = pass_evap(i,j) - frw2oc(i,j)/rhofw
./pkg/atm2d/pass_thsice_fluxes.F 47 PASS_THSICE_FLUXES
           sum_prcIce(i,j) = sum_prcIce(i,j) - precipi_2D(i,j)*rhofw
./pkg/atm2d/pass_thsice_fluxes.F 48 PASS_THSICE_FLUXES
           sum_evapIce(i,j) = sum_evapIce(i,j) - evapi_2D(i,j)*rhofw
./pkg/atm2d/pass_thsice_fluxes.F 50 PASS_THSICE_FLUXES
     &      sum_snowPrc(i,j) = sum_snowPrc(i,j) - precipi_2D(i,j)*rhofw