Symbol Description Uses
rhos density of snow [kg/m^3] 35


File Line number Procedure Code
./pkg/thsice/THSICE_PARAMS.h 80 NO PROCEDURE 
     &  rhos, rhoi, rhosw, rhofw, floodFac,
./pkg/thsice/THSICE_PARAMS.h 95 NO PROCEDURE 
      _RL  rhos
./pkg/thsice/thsice_advdiff.F 456 THSICE_ADVDIFF 
            oceFWfx(i,j,bi,bj) =  ( rhos*snowHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 461 THSICE_ADVDIFF 
            oceQnet(i,j,bi,bj) = -( rhos*snowHeight(i,j,bi,bj)*qsnow
./pkg/thsice/thsice_calc_thickn.F 378 THSICE_CALC_THICKN 
      mwater0 = rhos*hs + rhoi*hi
./pkg/thsice/thsice_calc_thickn.F 467 THSICE_CALC_THICKN 
            rq =  rhos * qsnow
./pkg/thsice/thsice_calc_thickn.F 565 THSICE_CALC_THICKN 
            rq =  rhos * qsnow
./pkg/thsice/thsice_calc_thickn.F 594 THSICE_CALC_THICKN 
         esurp = esurp - rhos*qsnow*hs
./pkg/thsice/thsice_calc_thickn.F 613 THSICE_CALC_THICKN 
      fresh = (mwater0 - (rhos*hs + rhoi*hi))/dt
./pkg/thsice/thsice_calc_thickn.F 625 THSICE_CALC_THICKN 
        hs = hs + dt*snowPr/rhos
./pkg/thsice/thsice_calc_thickn.F 634 THSICE_CALC_THICKN 
         IF (evap/rhos *dt.GT.hs) THEN
./pkg/thsice/thsice_calc_thickn.F 635 THSICE_CALC_THICKN 
           evap=evap-hs*rhos/dt
./pkg/thsice/thsice_calc_thickn.F 638 THSICE_CALC_THICKN 
           hs = hs - evap/rhos *dt
./pkg/thsice/thsice_calc_thickn.F 709 THSICE_CALC_THICKN 
         fresh = fresh + (rhos*hs + rhoi*hi)/dt
./pkg/thsice/thsice_calc_thickn.F 710 THSICE_CALC_THICKN 
         esurp = esurp - rhos*qsnow*hs
./pkg/thsice/thsice_calc_thickn.F 750 THSICE_CALC_THICKN 
         dhi = dhs * rhos / rhoi
./pkg/thsice/thsice_calc_thickn.F 754 THSICE_CALC_THICKN 
         rqh = rhoi*qicen(1)*hnew(1) + rhos*qsnow*dhs
./pkg/thsice/thsice_calc_thickn.F 839 THSICE_CALC_THICKN 
     &   (mwater0-(rhos*hs+rhoi*hi))/dt,evap,fresh,fsalt(i,j)
./pkg/thsice/thsice_calc_thickn.F 855 THSICE_CALC_THICKN 
         rs =  rhos * qsnow
./pkg/thsice/thsice_calc_thickn.F 857 THSICE_CALC_THICKN 
         freshe=(rhos*hs+rhoi*hi)/dt
./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_diffusion.F 77 THSICE_DIFFUSION 
          iceFld(i,j)  = ( rhos*snowHeight(i,j,bi,bj)
./pkg/thsice/thsice_ini_vars.F 177 THSICE_INI_VARS 
           sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos
./pkg/thsice/thsice_monitor.F 158 THSICE_MONITOR 
        theEnergy = -rhos*Lfresh*theMeanG
./pkg/thsice/thsice_readparms.F 196 THSICE_READPARMS 
      floodFac = (rhosw - rhoi)/rhos
./pkg/thsice/thsice_readparms.F 256 THSICE_READPARMS 
      WRITE(iUnit,*) 'ThSI: rhos      =',rhos
./pkg/thsice/thsice_readparms.F 49 THSICE_READPARMS 
     &  rhos, rhoi, rhosw, rhofw,
./pkg/thsice/thsice_readparms.F 87 THSICE_READPARMS 
      rhos     = 330. _d 0
./pkg/thsice/thsice_step_fwd.F 141 THSICE_STEP_FWD 
      snowFac = thSIce_deltaT/(rhos*hNewSnowAge)
./pkg/thsice/thsice_step_fwd.F 365 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