Symbol Description Uses
rhos density of snow (kg/m^3) 34


File Line number Procedure Code
./pkg/aim_compon_interf/atm_store_seaice.F 63 ATM_STORE_SEAICE 
     &                   ( snowHeight(i,j,bi,bj)*rhos
./pkg/thsice/thsice_check_conserv.F 104 THSICE_CHECK_CONSERV 
     &    hIce, hSnow, snowPrc(i,j,bi,bj)*thSIce_deltaT/rhos
./pkg/thsice/thsice_check_conserv.F 67 THSICE_CHECK_CONSERV 
          dEnerg= -rhos*snowHeight(i,j,bi,bj)*qsnow
./pkg/thsice/thsice_check_conserv.F 70 THSICE_CHECK_CONSERV 
          dWater = rhos*snowheight(i,j,bi,bj)+rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F 76 THSICE_CHECK_CONSERV 
     &     + compact*( rhos*hSnow*qsnow
./pkg/thsice/thsice_check_conserv.F 80 THSICE_CHECK_CONSERV 
     &     - compact*( rhos*hSnow + rhoi*hIce )
./pkg/thsice/THSICE_PARAMS.h 70 NO PROCEDURE 
     &  rhos, rhoi, rhosw, rhofw, rhoiw,
./pkg/thsice/THSICE_PARAMS.h 84 NO PROCEDURE 
      _RL  rhos
./pkg/thsice/thsice_calc_thickn.F 227 THSICE_CALC_THICKN 
      mwater0 = rhos*hs + rhoi*hi
./pkg/thsice/thsice_calc_thickn.F 301 THSICE_CALC_THICKN 
            rq =  rhos * qsnow
./pkg/thsice/thsice_calc_thickn.F 365 THSICE_CALC_THICKN 
            rq =  rhos * qsnow
./pkg/thsice/thsice_calc_thickn.F 394 THSICE_CALC_THICKN 
         esurp = esurp - rhos*qsnow*hs
./pkg/thsice/thsice_calc_thickn.F 413 THSICE_CALC_THICKN 
      fresh = (mwater0 - (rhos*hs + rhoi*hi))/dt
./pkg/thsice/thsice_calc_thickn.F 425 THSICE_CALC_THICKN 
        hs = hs + dt*snowPr/rhos
./pkg/thsice/thsice_calc_thickn.F 430 THSICE_CALC_THICKN 
         IF (evap/rhos *dt.GT.hs) THEN
./pkg/thsice/thsice_calc_thickn.F 431 THSICE_CALC_THICKN 
           evap=evap-hs*rhos/dt
./pkg/thsice/thsice_calc_thickn.F 434 THSICE_CALC_THICKN 
           hs = hs - evap/rhos *dt
./pkg/thsice/thsice_calc_thickn.F 481 THSICE_CALC_THICKN 
         fresh = fresh + (rhos*hs + rhoi*hi)/dt
./pkg/thsice/thsice_calc_thickn.F 482 THSICE_CALC_THICKN 
         esurp = esurp - rhos*qsnow*hs
./pkg/thsice/thsice_calc_thickn.F 508 THSICE_CALC_THICKN 
       IF ( hs .GT. hi*rhoiw/rhos ) THEN
./pkg/thsice/thsice_calc_thickn.F 510 THSICE_CALC_THICKN 
         dhi = (hs * rhos - hi * rhoiw) / rhosw
./pkg/thsice/thsice_calc_thickn.F 511 THSICE_CALC_THICKN 
         dhs = dhi * rhoi / rhos
./pkg/thsice/thsice_calc_thickn.F 512 THSICE_CALC_THICKN 
         rqh = rhoi*qicen(1)*hnew(1) + rhos*qsnow*dhs
./pkg/thsice/thsice_calc_thickn.F 535 THSICE_CALC_THICKN 
         fresh = fresh + chs*rhos/dt
./pkg/thsice/thsice_calc_thickn.F 597 THSICE_CALC_THICKN 
     &   (mwater0-(rhos*hs+rhoi*hi))/dt,evap,fresh,fsalt(i,j)
./pkg/thsice/thsice_calc_thickn.F 613 THSICE_CALC_THICKN 
         rs =  rhos * qsnow
./pkg/thsice/thsice_calc_thickn.F 615 THSICE_CALC_THICKN 
         freshe=(rhos*hs+rhoi*hi)/dt
./pkg/thsice/thsice_monitor.F 147 THSICE_MONITOR 
        theEnergy = -rhos*Lfresh*theMeanG
./pkg/thsice/thsice_step_fwd.F 112 THSICE_STEP_FWD 
      snowFac = thSIce_deltaT/(rhos*hNewSnowAge)
./pkg/thsice/thsice_step_fwd.F 286 THSICE_STEP_FWD 
        sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos
./pkg/thsice/thsice_ini_vars.F 145 THSICE_INI_VARS 
               sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos
./pkg/thsice/thsice_readparms.F 216 THSICE_READPARMS 
      WRITE(iUnit,*) 'ThSI: rhos    =',rhos
./pkg/thsice/thsice_readparms.F 48 THSICE_READPARMS 
     &  rhos, rhoi, rhosw, rhofw,
./pkg/thsice/thsice_readparms.F 86 THSICE_READPARMS 
      rhos     = 330. _d 0