Symbol Description Uses
hi ice height [m] 70


File Line number Procedure Code
./pkg/thsice/thsice_albedo.F 103 THSICE_ALBEDO 
          hi  = hIce(i,j)
./pkg/thsice/thsice_albedo.F 110 THSICE_ALBEDO 
      albice = albIceMax + (albIceMin-albIceMax)*EXP(-hi/hAlbIce)
./pkg/thsice/thsice_albedo.F 143 THSICE_ALBEDO 
     &        MIN( recFac_albNIR*ATAN(albNIR_fHice*hi), 1. _d 0 )
./pkg/thsice/thsice_albedo.F 69 THSICE_ALBEDO 
      _RL  hi                  ! ice height
./pkg/thsice/thsice_calc_thickn.F 149 THSICE_CALC_THICKN 
      _RL  hi
./pkg/thsice/thsice_calc_thickn.F 301 THSICE_CALC_THICKN 
          hi      = hIce(i,j)
./pkg/thsice/thsice_calc_thickn.F 322 THSICE_CALC_THICKN 
         xxMlt = aMlt*(hi-hMlt)
./pkg/thsice/thsice_calc_thickn.F 323 THSICE_CALC_THICKN 
         xxFrz = aFrz*(hi-hFrz)
./pkg/thsice/thsice_calc_thickn.F 352 THSICE_CALC_THICKN 
         IF (hi.GT.hThickIce) THEN
./pkg/thsice/thsice_calc_thickn.F 355 THSICE_CALC_THICKN 
         ELSEIF (hi.GE.hThinIce) THEN
./pkg/thsice/thsice_calc_thickn.F 378 THSICE_CALC_THICKN 
      mwater0 = rhos*hs + rhoi*hi
./pkg/thsice/thsice_calc_thickn.F 379 THSICE_CALC_THICKN 
      msalt0  = rhoi*hi*saltIce
./pkg/thsice/thsice_calc_thickn.F 398 THSICE_CALC_THICKN 
      IF ( hi.GT.hThickIce .OR. fracEnMelt.EQ.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 401 THSICE_CALC_THICKN 
      ELSEIF (hi.LT.hThinIce) THEN
./pkg/thsice/thsice_calc_thickn.F 455 THSICE_CALC_THICKN 
      hlyr = hi * rec_nlyr
./pkg/thsice/thsice_calc_thickn.F 583 THSICE_CALC_THICKN 
      hi = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 585 THSICE_CALC_THICKN 
         hi = hi + hnew(k)
./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 598 THSICE_CALC_THICKN 
         hi = 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 615 THSICE_CALC_THICKN 
      IF ( hi .LE. 0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 648 THSICE_CALC_THICKN 
       IF (hi.GT.0. _d 0.AND.evap.GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 702 THSICE_CALC_THICKN 
       hi = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 704 THSICE_CALC_THICKN 
         hi = hi + hnew(k)
./pkg/thsice/thsice_calc_thickn.F 708 THSICE_CALC_THICKN 
       IF ( hi.GT.0. _d 0 .AND. hi.LT.hIceMin ) THEN
./pkg/thsice/thsice_calc_thickn.F 709 THSICE_CALC_THICKN 
         fresh = fresh + (rhos*hs + rhoi*hi)/dt
./pkg/thsice/thsice_calc_thickn.F 714 THSICE_CALC_THICKN 
         hi = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 730 THSICE_CALC_THICKN 
      IF ( hi .GT. 0. _d 0 ) THEN
./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 757 THSICE_CALC_THICKN 
         hi = hi + dhi
./pkg/thsice/thsice_calc_thickn.F 765 THSICE_CALC_THICKN 
       IF (hi.GT.hiMax) THEN
./pkg/thsice/thsice_calc_thickn.F 767 THSICE_CALC_THICKN 
         chi=hi-hiMax
./pkg/thsice/thsice_calc_thickn.F 782 THSICE_CALC_THICKN 
       hi = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 784 THSICE_CALC_THICKN 
         hi = hi + hnew(k)
./pkg/thsice/thsice_calc_thickn.F 792 THSICE_CALC_THICKN 
       hlyr = hi * rec_nlyr
./pkg/thsice/thsice_calc_thickn.F 799 THSICE_CALC_THICKN 
     &  'ThSI_CALC_TH: iceFrac,hi, qtot, hs =', iceFrac,hi,
./pkg/thsice/thsice_calc_thickn.F 809 THSICE_CALC_THICKN 
      IF (hi.LE.0. _d 0) iceFrac=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 834 THSICE_CALC_THICKN 
      fsalt(i,j) = (msalt0 - rhoi*hi*saltIce)/dt
./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 858 THSICE_CALC_THICKN 
         salte=(rhoi*hi*saltIce)/dt
./pkg/thsice/thsice_calc_thickn.F 867 THSICE_CALC_THICKN 
           hi=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 903 THSICE_CALC_THICKN 
          hIce(i,j)   = hi
./pkg/thsice/thsice_solve4temp.F 125 THSICE_SOLVE4TEMP 
      _RL hi
./pkg/thsice/thsice_solve4temp.F 222 THSICE_SOLVE4TEMP 
          hi      = hIce(i,j)
./pkg/thsice/thsice_solve4temp.F 234 THSICE_SOLVE4TEMP 
          IF ( hi.LT.hIceMin ) THEN
./pkg/thsice/thsice_solve4temp.F 254 THSICE_SOLVE4TEMP 
      fswocn = fswpen * exp(-ksolar*hi)
./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 262 THSICE_SOLVE4TEMP 
      k32 = 2. _d 0*kIce  / hi
./pkg/thsice/thsice_solve4temp.F 290 THSICE_SOLVE4TEMP 
      a10 = rhoi*cpIce *hi/(2. _d 0*dt) +
./pkg/thsice/thsice_solve4temp.F 291 THSICE_SOLVE4TEMP 
     &      k32 * (4. _d 0*dt*k32 + rhoi*cpIce *hi)
./pkg/thsice/thsice_solve4temp.F 292 THSICE_SOLVE4TEMP 
     &       / (6. _d 0*dt*k32 + rhoi*cpIce *hi)
./pkg/thsice/thsice_solve4temp.F 293 THSICE_SOLVE4TEMP 
      b10 = -hi*
./pkg/thsice/thsice_solve4temp.F 296 THSICE_SOLVE4TEMP 
     &      - k32 * (4. _d 0*dt*k32*Tf+rhoi*cpIce *hi*Tice(2))
./pkg/thsice/thsice_solve4temp.F 297 THSICE_SOLVE4TEMP 
     &       / (6. _d 0*dt*k32 + rhoi*cpIce *hi) - fswint
./pkg/thsice/thsice_solve4temp.F 298 THSICE_SOLVE4TEMP 
      c1 = rhoi*Lfresh*hi*Tmlt1 / (2. _d 0*dt)
./pkg/thsice/thsice_solve4temp.F 423 THSICE_SOLVE4TEMP 
     &                                                    myIter,hi
./pkg/thsice/thsice_solve4temp.F 440 THSICE_SOLVE4TEMP 
     &        + rhoi*cpIce *hi*Tice(2))
./pkg/thsice/thsice_solve4temp.F 441 THSICE_SOLVE4TEMP 
     &         /(6. _d 0*dt*k32 + rhoi*cpIce *hi)
./pkg/thsice/thsice_solve4temp.F 450 THSICE_SOLVE4TEMP 
      flxCnB(i,j) = 4. _d 0*kIce *(Tice(2)-Tf)/hi