Symbol Description Uses
hs sensible heat flux into ocean in W/m^2 69


File Line number Procedure Code
./pkg/sphere/sphere.F 179 SHC2GRID 
           hs(i) = 0.0
./pkg/sphere/sphere.F 186 SHC2GRID 
           grid(i,lats) = hs(i)
./pkg/sphere/sphere.F 238 SHC4GRID 
           hs(i) = grid(i,lats)
./pkg/sphere/sphere.F 423 SHC4ZONE 
        hs(i) = hs(i)*scale
./pkg/thsice/thsice_albedo.F 104 THSICE_ALBEDO 
          hs  = hSnow(i,j)
./pkg/thsice/thsice_albedo.F 138 THSICE_ALBEDO 
      albedo = albsno + (albice-albsno)*EXP(-hs/hAlbSnow)
./pkg/thsice/thsice_albedo.F 146 THSICE_ALBEDO 
        sAlbNIR(i,j) = albNIR_ice * ( 1. _d 0 - hs/(hs + 0.02 _d 0) )
./pkg/thsice/thsice_albedo.F 148 THSICE_ALBEDO 
     &           * hs/(hs + 0.02 _d 0)
./pkg/thsice/thsice_albedo.F 159 THSICE_ALBEDO 
     &       'THSICE_ALBEDO: albedo=', albedo, age, hs, albsno
./pkg/thsice/thsice_albedo.F 70 THSICE_ALBEDO 
      _RL  hs                  ! snow height
./pkg/thsice/thsice_calc_thickn.F 150 THSICE_CALC_THICKN 
      _RL  hs
./pkg/thsice/thsice_calc_thickn.F 302 THSICE_CALC_THICKN 
          hs      = hSnow(i,j)
./pkg/thsice/thsice_calc_thickn.F 378 THSICE_CALC_THICKN 
      mwater0 = rhos*hs + rhoi*hi
./pkg/thsice/thsice_calc_thickn.F 466 THSICE_CALC_THICKN 
         IF (hs. gt. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 468 THSICE_CALC_THICKN 
            rqh = rq * hs
./pkg/thsice/thsice_calc_thickn.F 470 THSICE_CALC_THICKN 
               hs = hs - etop/rq
./pkg/thsice/thsice_calc_thickn.F 474 THSICE_CALC_THICKN 
               hs = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 564 THSICE_CALC_THICKN 
         IF (ebot.GT.0. _d 0 .AND. hs.GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 566 THSICE_CALC_THICKN 
            rqh = rq * hs
./pkg/thsice/thsice_calc_thickn.F 568 THSICE_CALC_THICKN 
               hs = hs - ebot / rq
./pkg/thsice/thsice_calc_thickn.F 572 THSICE_CALC_THICKN 
               hs = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 589 THSICE_CALC_THICKN 
     &  'ThSI_CALC_TH:   etop, ebot, hi, hs =', etop, ebot, hi, hs
./pkg/thsice/thsice_calc_thickn.F 593 THSICE_CALC_THICKN 
      IF ( hi.LT.hIceMin .AND. (hi+hs).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 594 THSICE_CALC_THICKN 
         esurp = esurp - rhos*qsnow*hs
./pkg/thsice/thsice_calc_thickn.F 599 THSICE_CALC_THICKN 
         hs = 0. _d 0
./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 633 THSICE_CALC_THICKN 
       IF (hs.GT.0. _d 0) THEN
./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 636 THSICE_CALC_THICKN 
           hs=0. _d 0
./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 715 THSICE_CALC_THICKN 
         hs = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 744 THSICE_CALC_THICKN 
       IF ( hs .GT. hi*floodFac .OR. hs .GT. hsMax ) THEN
./pkg/thsice/thsice_calc_thickn.F 748 THSICE_CALC_THICKN 
         dhs = (hs - hi*floodFac) * rhoi / rhosw
./pkg/thsice/thsice_calc_thickn.F 749 THSICE_CALC_THICKN 
         dhs = MAX( hs - hsMax, dhs )
./pkg/thsice/thsice_calc_thickn.F 758 THSICE_CALC_THICKN 
         hs = hs - dhs
./pkg/thsice/thsice_calc_thickn.F 800 THSICE_CALC_THICKN 
     &                 (qicen(1)+qicen(2))*0.5, hs
./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 856 THSICE_CALC_THICKN 
         rqh = rq * hi + rs * hs
./pkg/thsice/thsice_calc_thickn.F 857 THSICE_CALC_THICKN 
         freshe=(rhos*hs+rhoi*hi)/dt
./pkg/thsice/thsice_calc_thickn.F 868 THSICE_CALC_THICKN 
           hs=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 896 THSICE_CALC_THICKN 
     I            iceMask(i,j), iceFrac, hi, hs, qicen,
./pkg/thsice/thsice_calc_thickn.F 904 THSICE_CALC_THICKN 
          hSnow(i,j ) = hs
./pkg/thsice/thsice_solve4temp.F 126 THSICE_SOLVE4TEMP 
      _RL hs
./pkg/thsice/thsice_solve4temp.F 223 THSICE_SOLVE4TEMP 
          hs      = hSnow(i,j)
./pkg/thsice/thsice_solve4temp.F 245 THSICE_SOLVE4TEMP 
      IF ( hs .GT. iceMask(i,j)*dhSnowLin ) THEN
./pkg/thsice/thsice_solve4temp.F 248 THSICE_SOLVE4TEMP 
        frsnow = hs*recip_dhSnowLin/iceMask(i,j)
./pkg/thsice/thsice_solve4temp.F 261 THSICE_SOLVE4TEMP 
      k12 = 4. _d 0*kIce*kSnow / (kSnow*hi + 4. _d 0*kIce*hs)
./pkg/thsice/thsice_solve4temp.F 334 THSICE_SOLVE4TEMP 
         IF (hs.GT.3. _d -1) THEN
./pkg/thsice/thsice_solve4temp.F 383 THSICE_SOLVE4TEMP 
            IF (hs.GT.3. _d -1) THEN
./pkg/exf/EXF_FIELDS.h 202 NO PROCEDURE 
      COMMON /exfl_turb_r/ hs, hl
./pkg/exf/EXF_FIELDS.h 203 NO PROCEDURE 
      _RL hs        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/exf/exf_bulkformulae.F 476 EXF_BULKFORMULAE 
           hs(i,j,bi,bj) = atmcp*tau(i,j)*tstar(i,j)
./pkg/exf/exf_bulkformulae.F 504 EXF_BULKFORMULAE 
           hs     (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_diagnostics_fill.F 53 EXF_DIAGNOSTICS_FILL 
         CALL DIAGNOSTICS_FILL(hs    ,     'EXFhs   ',0,1,0,1,1,myThid)
./pkg/exf/exf_getforcing.F 205 EXF_GETFORCING 
     &              - hs(i,j,bi,bj)
./pkg/exf/exf_init.F 58 EXF_INIT 
          hs(i,j,bi,bj) = 0.