Symbol Description Uses
hSnow snow height [m] 72


File Line number Procedure Code
./pkg/land/land_albedo.F 56 LAND_ALBEDO 
      _RL albSnow, ageSnow, hSnow, Tsf
./pkg/land/land_albedo.F 68 LAND_ALBEDO 
           hSnow = land_hSnow(i,j,bi,bj)
./pkg/land/land_albedo.F 87 LAND_ALBEDO 
     &       +(alb_land(i,j)-albSnow)*exp(-hSnow/hAlbSnow)
./pkg/thsice/thsice_albedo.F 107 THSICE_ALBEDO 
         hs  = hSnow(i,j)
./pkg/thsice/thsice_albedo.F 12 THSICE_ALBEDO 
     I                  iceMask, hIce, hSnow, tSrf, ageSnw,
./pkg/thsice/thsice_albedo.F 56 THSICE_ALBEDO 
      _RL hSnow  (siLo:siHi,sjLo:sjHi)
./pkg/thsice/thsice_calc_thickn.F 1027 THSICE_CALC_THICKN 
     &         (mwater0(i,j)-(rhos*hSnow(i,j)+rhoi*hIce(i,j)))/dt,
./pkg/thsice/thsice_calc_thickn.F 1062 THSICE_CALC_THICKN 
          rqh = rq * hIce(i,j) + rs * hSnow(i,j)
./pkg/thsice/thsice_calc_thickn.F 1063 THSICE_CALC_THICKN 
          freshe=(rhos*hSnow(i,j)+rhoi*hIce(i,j))/dt
./pkg/thsice/thsice_calc_thickn.F 1074 THSICE_CALC_THICKN 
           hSnow(i,j) =0. _d 0
./pkg/thsice/thsice_calc_thickn.F 1122 THSICE_CALC_THICKN 
     I        iceMask(i,j), icFrac(i,j), hIce(i,j), hSnow(i,j),
./pkg/thsice/thsice_calc_thickn.F 121 THSICE_CALC_THICKN 
      _RL hSnow  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_calc_thickn.F 14 THSICE_CALC_THICKN 
     U                  icFrac, hIce, hSnow, tSrf, qIc1, qIc2,
./pkg/thsice/thsice_calc_thickn.F 394 THSICE_CALC_THICKN 
         mwater0(i,j) = rhos*hSnow(i,j) + rhoi*hIce(i,j)
./pkg/thsice/thsice_calc_thickn.F 497 THSICE_CALC_THICKN 
     &        hSnow(i,j) .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 504 THSICE_CALC_THICKN 
         rqh = rq * hSnow(i,j)
./pkg/thsice/thsice_calc_thickn.F 506 THSICE_CALC_THICKN 
          hSnow(i,j) = hSnow(i,j) - etop(i,j)/rq
./pkg/thsice/thsice_calc_thickn.F 510 THSICE_CALC_THICKN 
          hSnow(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 636 THSICE_CALC_THICKN 
     &       hSnow(i,j)  .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 638 THSICE_CALC_THICKN 
         rqh = rq * hSnow(i,j)
./pkg/thsice/thsice_calc_thickn.F 640 THSICE_CALC_THICKN 
          hSnow(i,j) = hSnow(i,j) - ebot(i,j) / rq
./pkg/thsice/thsice_calc_thickn.F 644 THSICE_CALC_THICKN 
          hSnow(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 665 THSICE_CALC_THICKN 
     &        etop(i,j), ebot(i,j), hIce(i,j), hSnow(i,j)
./pkg/thsice/thsice_calc_thickn.F 670 THSICE_CALC_THICKN 
     &        .AND. (hIce(i,j)+hSnow(i,j)).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 671 THSICE_CALC_THICKN 
          esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow(i,j)
./pkg/thsice/thsice_calc_thickn.F 675 THSICE_CALC_THICKN 
          hSnow(i,j)  = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 699 THSICE_CALC_THICKN 
     &        - (rhos*hSnow(i,j)+rhoi*hIce(i,j)))/dt
./pkg/thsice/thsice_calc_thickn.F 719 THSICE_CALC_THICKN 
          hSnow(i,j) = hSnow(i,j) + dt*snowP(i,j)/rhos
./pkg/thsice/thsice_calc_thickn.F 726 THSICE_CALC_THICKN 
          IF (hSnow(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 727 THSICE_CALC_THICKN 
           IF (evapLoc(i,j)/rhos *dt.GT.hSnow(i,j)) THEN
./pkg/thsice/thsice_calc_thickn.F 728 THSICE_CALC_THICKN 
            evapLoc(i,j)=evapLoc(i,j)-hSnow(i,j)*rhos/dt
./pkg/thsice/thsice_calc_thickn.F 729 THSICE_CALC_THICKN 
            hSnow(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 731 THSICE_CALC_THICKN 
            hSnow(i,j) = hSnow(i,j) - evapLoc(i,j)/rhos *dt
./pkg/thsice/thsice_calc_thickn.F 836 THSICE_CALC_THICKN 
     &          + (rhos*hSnow(i,j) + rhoi*hIce(i,j))/dt
./pkg/thsice/thsice_calc_thickn.F 837 THSICE_CALC_THICKN 
           esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow(i,j)
./pkg/thsice/thsice_calc_thickn.F 841 THSICE_CALC_THICKN 
           hSnow(i,j)  = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 897 THSICE_CALC_THICKN 
          IF ( hSnow(i,j) .GT. hIce(i,j)*floodFac
./pkg/thsice/thsice_calc_thickn.F 898 THSICE_CALC_THICKN 
     &         .OR. hSnow(i,j) .GT. hsMax ) THEN
./pkg/thsice/thsice_calc_thickn.F 905 THSICE_CALC_THICKN 
           dhs = (hSnow(i,j) - hIce(i,j)*floodFac) * rhoi / rhosw
./pkg/thsice/thsice_calc_thickn.F 906 THSICE_CALC_THICKN 
           dhs = MAX( hSnow(i,j) - hsMax, dhs )
./pkg/thsice/thsice_calc_thickn.F 912 THSICE_CALC_THICKN 
           hSnow(i,j) = hSnow(i,j) - dhs
./pkg/thsice/thsice_calc_thickn.F 976 THSICE_CALC_THICKN 
     &         hSnow(i,j)
./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 10 THSICE_CHECK_CONSERV 
     I             iceFrac, compact, hIce, hSnow, qicen,
./pkg/thsice/thsice_check_conserv.F 38 THSICE_CHECK_CONSERV 
      _RL compact, hIce, hSnow, qicen(nlyr)
./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_extend.F 13 THSICE_EXTEND 
     U                  icFrac, hIce, hSnow,
./pkg/thsice/thsice_extend.F 210 THSICE_EXTEND 
            hSnow(i,j) = hSnow(i,j)*icFrac(i,j)/iceFrac
./pkg/thsice/thsice_extend.F 228 THSICE_EXTEND 
     I            icFrac(i,j), iceFrac, iceThick, hSnow(i,j), qicen,
./pkg/thsice/thsice_extend.F 78 THSICE_EXTEND 
      _RL hSnow  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_get_bulkf.F 15 THSICE_GET_BULKF 
     I                  iceFlag, hSnow, Tsf,
./pkg/thsice/thsice_get_bulkf.F 55 THSICE_GET_BULKF 
      _RL     hSnow   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_get_bulkf.F 89 THSICE_GET_BULKF 
         IF ( hSnow(i,j).GT.3. _d -1 ) THEN
./pkg/thsice/thsice_get_exf.F 15 THSICE_GET_EXF 
     I                  iceFlag, hSnow, tsfCel,
./pkg/thsice/thsice_get_exf.F 225 THSICE_GET_EXF 
         IF ( hSnow(i,j).GT.3. _d -1 ) THEN
./pkg/thsice/thsice_get_exf.F 63 THSICE_GET_EXF 
      _RL     hSnow   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_solve4temp.F 13 THSICE_SOLVE4TEMP 
     I                  iceMask, hIce, hSnow, tFrz, flxExSW,
./pkg/thsice/thsice_solve4temp.F 254 THSICE_SOLVE4TEMP 
          IF ( hSnow(i,j) .GT. iceMask(i,j)*dhSnowLin ) THEN
./pkg/thsice/thsice_solve4temp.F 257 THSICE_SOLVE4TEMP 
           frsnow = hSnow(i,j)*recip_dhSnowLin/iceMask(i,j)
./pkg/thsice/thsice_solve4temp.F 276 THSICE_SOLVE4TEMP 
     &             / (kSnow*hIce(i,j) + 4. _d 0*kIce*hSnow(i,j))
./pkg/thsice/thsice_solve4temp.F 357 THSICE_SOLVE4TEMP 
     I                            iceFlag, hSnow, Tsf,
./pkg/thsice/thsice_solve4temp.F 365 THSICE_SOLVE4TEMP 
     I                            iceFlag, hSnow, Tsf,
./pkg/thsice/thsice_solve4temp.F 406 THSICE_SOLVE4TEMP 
     I                            iceFlag, hSnow, Tsf,
./pkg/thsice/thsice_solve4temp.F 414 THSICE_SOLVE4TEMP 
     I                            iceFlag, hSnow, Tsf,
./pkg/thsice/thsice_solve4temp.F 97 THSICE_SOLVE4TEMP 
      _RL hSnow  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)