Symbol Description Uses
hSnow1 snow height [m] 53


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 1032 THSICE_CALC_THICKN 
     &         (mwater0(i,j)-(rhos*hSnow1(i,j)+rhoi*hIce(i,j)))/dt,
./pkg/thsice/thsice_calc_thickn.F 1067 THSICE_CALC_THICKN 
          rqh = rq * hIce(i,j) + rs * hSnow1(i,j)
./pkg/thsice/thsice_calc_thickn.F 1068 THSICE_CALC_THICKN 
          freshe=(rhos*hSnow1(i,j)+rhoi*hIce(i,j))/dt
./pkg/thsice/thsice_calc_thickn.F 1079 THSICE_CALC_THICKN 
           hSnow1(i,j) =0. _d 0
./pkg/thsice/thsice_calc_thickn.F 1127 THSICE_CALC_THICKN 
     I        iceMask(i,j), icFrac(i,j), hIce(i,j), hSnow1(i,j),
./pkg/thsice/thsice_calc_thickn.F 122 THSICE_CALC_THICKN 
      _RL hSnow1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_calc_thickn.F 14 THSICE_CALC_THICKN 
     U                  icFrac, hIce, hSnow1, tSrf, qIc1, qIc2,
./pkg/thsice/thsice_calc_thickn.F 395 THSICE_CALC_THICKN 
         mwater0(i,j) = rhos*hSnow1(i,j) + rhoi*hIce(i,j)
./pkg/thsice/thsice_calc_thickn.F 498 THSICE_CALC_THICKN 
     &        hSnow1(i,j) .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 505 THSICE_CALC_THICKN 
         rqh = rq * hSnow1(i,j)
./pkg/thsice/thsice_calc_thickn.F 507 THSICE_CALC_THICKN 
          hSnow1(i,j) = hSnow1(i,j) - etop(i,j)/rq
./pkg/thsice/thsice_calc_thickn.F 511 THSICE_CALC_THICKN 
          hSnow1(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 639 THSICE_CALC_THICKN 
     &       hSnow1(i,j)  .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 641 THSICE_CALC_THICKN 
         rqh = rq * hSnow1(i,j)
./pkg/thsice/thsice_calc_thickn.F 643 THSICE_CALC_THICKN 
          hSnow1(i,j) = hSnow1(i,j) - ebot(i,j) / rq
./pkg/thsice/thsice_calc_thickn.F 647 THSICE_CALC_THICKN 
          hSnow1(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 668 THSICE_CALC_THICKN 
     &        etop(i,j), ebot(i,j), hIce(i,j), hSnow1(i,j)
./pkg/thsice/thsice_calc_thickn.F 673 THSICE_CALC_THICKN 
     &        .AND. (hIce(i,j)+hSnow1(i,j)).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 674 THSICE_CALC_THICKN 
          esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow1(i,j)
./pkg/thsice/thsice_calc_thickn.F 678 THSICE_CALC_THICKN 
          hSnow1(i,j)  = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 702 THSICE_CALC_THICKN 
     &        - (rhos*hSnow1(i,j)+rhoi*hIce(i,j)))/dt
./pkg/thsice/thsice_calc_thickn.F 722 THSICE_CALC_THICKN 
          hSnow1(i,j) = hSnow1(i,j) + dt*snowP(i,j)/rhos
./pkg/thsice/thsice_calc_thickn.F 729 THSICE_CALC_THICKN 
          IF (hSnow1(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 730 THSICE_CALC_THICKN 
           IF (evapLoc(i,j)/rhos *dt.GT.hSnow1(i,j)) THEN
./pkg/thsice/thsice_calc_thickn.F 731 THSICE_CALC_THICKN 
            evapLoc(i,j)=evapLoc(i,j)-hSnow1(i,j)*rhos/dt
./pkg/thsice/thsice_calc_thickn.F 732 THSICE_CALC_THICKN 
            hSnow1(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 734 THSICE_CALC_THICKN 
            hSnow1(i,j) = hSnow1(i,j) - evapLoc(i,j)/rhos *dt
./pkg/thsice/thsice_calc_thickn.F 842 THSICE_CALC_THICKN 
     &          + (rhos*hSnow1(i,j) + rhoi*hIce(i,j))/dt
./pkg/thsice/thsice_calc_thickn.F 843 THSICE_CALC_THICKN 
           esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow1(i,j)
./pkg/thsice/thsice_calc_thickn.F 847 THSICE_CALC_THICKN 
           hSnow1(i,j)  = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 903 THSICE_CALC_THICKN 
          IF ( hSnow1(i,j) .GT. hIce(i,j)*floodFac
./pkg/thsice/thsice_calc_thickn.F 904 THSICE_CALC_THICKN 
     &         .OR. hSnow1(i,j) .GT. hsMax ) THEN
./pkg/thsice/thsice_calc_thickn.F 911 THSICE_CALC_THICKN 
           dhs = (hSnow1(i,j) - hIce(i,j)*floodFac) * rhoi / rhosw
./pkg/thsice/thsice_calc_thickn.F 912 THSICE_CALC_THICKN 
           dhs = MAX( hSnow1(i,j) - hsMax, dhs )
./pkg/thsice/thsice_calc_thickn.F 918 THSICE_CALC_THICKN 
           hSnow1(i,j) = hSnow1(i,j) - dhs
./pkg/thsice/thsice_calc_thickn.F 981 THSICE_CALC_THICKN 
     &         hSnow1(i,j)
./pkg/thsice/thsice_get_exf.F 15 THSICE_GET_EXF 
     I                  icFlag, hSnow1, tsfCel,
./pkg/thsice/thsice_get_exf.F 232 THSICE_GET_EXF 
         IF ( hSnow1(i,j).GT.3. _d -1 ) THEN
./pkg/thsice/thsice_get_exf.F 66 THSICE_GET_EXF 
      _RL     hSnow1   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_solve4temp.F 108 THSICE_SOLVE4TEMP 
      _RL hSnow1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_solve4temp.F 18 THSICE_SOLVE4TEMP 
     I                  icMask, hIce, hSnow1, tFrz, flxExSW,
./pkg/thsice/thsice_solve4temp.F 273 THSICE_SOLVE4TEMP 
          IF ( hSnow1(i,j) .GT. icMask(i,j)*dhSnowLin ) THEN
./pkg/thsice/thsice_solve4temp.F 276 THSICE_SOLVE4TEMP 
           frsnow = hSnow1(i,j)*recip_dhSnowLin/icMask(i,j)
./pkg/thsice/thsice_solve4temp.F 295 THSICE_SOLVE4TEMP 
     &             / (kSnow*hIce(i,j) + 4. _d 0*kIce*hSnow1(i,j))
./pkg/thsice/thsice_solve4temp.F 380 THSICE_SOLVE4TEMP 
     I                            iceFlag, hSnow1, Tsf,
./pkg/thsice/thsice_solve4temp.F 388 THSICE_SOLVE4TEMP 
     I                            iceFlag, hSnow1, Tsf,
./pkg/thsice/thsice_solve4temp.F 442 THSICE_SOLVE4TEMP 
     I                            iceFlag, hSnow1, Tsf,
./pkg/thsice/thsice_solve4temp.F 450 THSICE_SOLVE4TEMP 
     I                            iceFlag, hSnow1, Tsf,