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


File Line number Procedure Code
./pkg/thsice/THSICE_PARAMS.h 69 NO PROCEDURE 
     &  rhos, rhoi, rhosw, rhofw, rhoiw,
./pkg/thsice/THSICE_PARAMS.h 82 NO PROCEDURE 
      _RL  rhos
./pkg/thsice/thsice_calc_thickn.F 162 THSICE_CALC_THICKN 
      mwater0 = rhos*hs + rhoi*hi
./pkg/thsice/thsice_calc_thickn.F 232 THSICE_CALC_THICKN 
            rq =  rhos * qsnow
./pkg/thsice/thsice_calc_thickn.F 296 THSICE_CALC_THICKN 
            rq =  rhos * qsnow
./pkg/thsice/thsice_calc_thickn.F 323 THSICE_CALC_THICKN 
         esurp = esurp - rhos*qsnow*hs
./pkg/thsice/thsice_calc_thickn.F 339 THSICE_CALC_THICKN 
      fresh = (mwater0 - (rhos*hs + rhoi*hi))/dt
./pkg/thsice/thsice_calc_thickn.F 354 THSICE_CALC_THICKN 
        hs = hs + dt*snowPr/rhos
./pkg/thsice/thsice_calc_thickn.F 359 THSICE_CALC_THICKN 
        if (evap/rhos *dt.gt.hs) then
./pkg/thsice/thsice_calc_thickn.F 360 THSICE_CALC_THICKN 
           evap=evap-hs*rhos/dt
./pkg/thsice/thsice_calc_thickn.F 363 THSICE_CALC_THICKN 
           hs = hs - evap/rhos *dt
./pkg/thsice/thsice_calc_thickn.F 410 THSICE_CALC_THICKN 
         fresh = fresh + (rhos*hs + rhoi*hi)/dt
./pkg/thsice/thsice_calc_thickn.F 411 THSICE_CALC_THICKN 
         esurp = esurp - rhos*qsnow*hs
./pkg/thsice/thsice_calc_thickn.F 431 THSICE_CALC_THICKN 
      if ( hs .gt. hi*rhoiw/rhos ) then
./pkg/thsice/thsice_calc_thickn.F 433 THSICE_CALC_THICKN 
         dhi = (hs * rhos - hi * rhoiw) / rhosw
./pkg/thsice/thsice_calc_thickn.F 434 THSICE_CALC_THICKN 
         dhs = dhi * rhoi / rhos
./pkg/thsice/thsice_calc_thickn.F 435 THSICE_CALC_THICKN 
         rqh = rhoi*qicen(1)*hnew(1) + rhos*qsnow*dhs
./pkg/thsice/thsice_calc_thickn.F 458 THSICE_CALC_THICKN 
         fresh = fresh + chs*rhos/dt
./pkg/thsice/thsice_calc_thickn.F 509 THSICE_CALC_THICKN 
     &   (mwater0-(rhos*hs+rhoi*hi))/dt,evap,fresh,fsalt
./pkg/thsice/thsice_calc_thickn.F 520 THSICE_CALC_THICKN 
         rs =  rhos * qsnow
./pkg/thsice/thsice_calc_thickn.F 522 THSICE_CALC_THICKN 
         freshe=(rhos*hs+rhoi*hi)/dt
./pkg/thsice/thsice_monitor.F 131 THSICE_MONITOR 
        theEnergy = -rhos*Lfresh*theMeanG
./pkg/thsice/thsice_check_conserv.F 57 THSICE_CHECK_CONSERV 
          dEnerg= -rhos*snowHeight(i,j,bi,bj)*qsnow
./pkg/thsice/thsice_check_conserv.F 60 THSICE_CHECK_CONSERV 
          dWater = rhos*snowheight(i,j,bi,bj)+rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F 66 THSICE_CHECK_CONSERV 
     &     + compact*( rhos*hSnow*qsnow
./pkg/thsice/thsice_check_conserv.F 70 THSICE_CHECK_CONSERV 
     &     - compact*( rhos*hSnow + rhoi*hIce )
./pkg/thsice/thsice_check_conserv.F 94 THSICE_CHECK_CONSERV 
     &    hIce, hSnow, snowPrc(i,j,bi,bj)*thSIce_deltaT/rhos
./pkg/thsice/thsice_readparms.F 197 THSICE_READPARMS 
      WRITE(iUnit,*) 'ThSI: rhos    =',rhos
./pkg/thsice/thsice_readparms.F 48 THSICE_READPARMS 
     &  rhos, rhoi, rhosw, rhofw,
./pkg/thsice/thsice_readparms.F 85 THSICE_READPARMS 
      rhos     = 330. _d 0
./pkg/thsice/thsice_step_fwd.F 232 THSICE_STEP_FWD 
     &          * EXP( -(thSIce_deltaT*snowPr/rhos)/hNewSnowAge )
./pkg/thsice/thsice_step_fwd.F 358 THSICE_STEP_FWD 
        sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos
./pkg/aim_compon_interf/atm_store_seaice.F 63 ATM_STORE_SEAICE 
     &                   ( snowHeight(i,j,bi,bj)*rhos