Symbol Description Uses
qicen ice enthalpy (J/kg), 1rst level 63


File Line number Procedure Code
./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 77 THSICE_CHECK_CONSERV 
     &               + rhoi*hIce*(qicen(1)+qicen(2))*0.5
./pkg/thsice/thsice_calc_thickn.F 125 THSICE_CALC_THICKN 
      _RL  qicen(nlyr)
./pkg/thsice/thsice_calc_thickn.F 185 THSICE_CALC_THICKN 
          qicen(1)= qIc1(i,j)
./pkg/thsice/thsice_calc_thickn.F 186 THSICE_CALC_THICKN 
          qicen(2)= qIc2(i,j)
./pkg/thsice/thsice_calc_thickn.F 314 THSICE_CALC_THICKN 
               rq =  rhoi * qicen(k)
./pkg/thsice/thsice_calc_thickn.F 344 THSICE_CALC_THICKN 
         qicen(k) = (hnew(k)*qicen(k)+dhi*qbot) / (hnew(k)+dhi)
./pkg/thsice/thsice_calc_thickn.F 349 THSICE_CALC_THICKN 
               rq =  rhoi * qicen(k)
./pkg/thsice/thsice_calc_thickn.F 396 THSICE_CALC_THICKN 
            esurp = esurp - rhoi*qicen(k)*hnew(k)
./pkg/thsice/thsice_calc_thickn.F 403 THSICE_CALC_THICKN 
           qicen(k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 454 THSICE_CALC_THICKN 
                 esurp = esurp - hnew(k)*rhoi*(qicen(k)-Lfresh)
./pkg/thsice/thsice_calc_thickn.F 457 THSICE_CALC_THICKN 
                 hq = hnew(k)*qicen(k)-dhi*Lfresh
./pkg/thsice/thsice_calc_thickn.F 459 THSICE_CALC_THICKN 
                 qicen(k)=hq/hnew(k)
./pkg/thsice/thsice_calc_thickn.F 484 THSICE_CALC_THICKN 
            esurp = esurp - rhoi*qicen(k)*hnew(k)
./pkg/thsice/thsice_calc_thickn.F 491 THSICE_CALC_THICKN 
           qicen(k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 512 THSICE_CALC_THICKN 
         rqh = rhoi*qicen(1)*hnew(1) + rhos*qsnow*dhs
./pkg/thsice/thsice_calc_thickn.F 514 THSICE_CALC_THICKN 
         qicen(1) = rqh / (rhoi*hnew(1))
./pkg/thsice/thsice_calc_thickn.F 547 THSICE_CALC_THICKN 
     &  'ThSI_CALC_TH: b-Winton: hnew, qice =', hnew, qicen
./pkg/thsice/thsice_calc_thickn.F 552 THSICE_CALC_THICKN 
     U                            qicen,
./pkg/thsice/thsice_calc_thickn.F 558 THSICE_CALC_THICKN 
     &                 (qicen(1)+qicen(2))*0.5, hs
./pkg/thsice/thsice_calc_thickn.F 612 THSICE_CALC_THICKN 
         rq =  rhoi * 0.5 _d 0*(qicen(1)+qicen(2))
./pkg/thsice/thsice_calc_thickn.F 652 THSICE_CALC_THICKN 
     I            iceMask(i,j), iceFrac, hi, hs, qicen,
./pkg/thsice/thsice_calc_thickn.F 662 THSICE_CALC_THICKN 
          qIc1(i,j)   = qicen(1)
./pkg/thsice/thsice_calc_thickn.F 663 THSICE_CALC_THICKN 
          qIc2(i,j)   = qicen(2)
./pkg/thsice/thsice_reshape_layers.F 10 THSICE_RESHAPE_LAYERS 
     U                                 qicen,
./pkg/thsice/thsice_reshape_layers.F 36 THSICE_RESHAPE_LAYERS 
      _RL  qicen(*)
./pkg/thsice/thsice_reshape_layers.F 58 THSICE_RESHAPE_LAYERS 
         q2tmp = f1*qicen(1) + (1. _d 0-f1)*qicen(2)
./pkg/thsice/thsice_reshape_layers.F 60 THSICE_RESHAPE_LAYERS 
            qicen(2) = q2tmp
./pkg/thsice/thsice_reshape_layers.F 63 THSICE_RESHAPE_LAYERS 
            qh2 = hlyr*qicen(2)
./pkg/thsice/thsice_reshape_layers.F 64 THSICE_RESHAPE_LAYERS 
            qhtot = hnew(1)*qicen(1) + hnew(2)*qicen(2)
./pkg/thsice/thsice_reshape_layers.F 66 THSICE_RESHAPE_LAYERS 
            qicen(1) = qh1/hlyr
./pkg/thsice/thsice_reshape_layers.F 71 THSICE_RESHAPE_LAYERS 
         qicen(1) = f1*qicen(1) + (1. _d 0-f1)*qicen(2)
./pkg/thsice/thsice_extend.F 128 THSICE_EXTEND 
          qicen(1)= qIc1(i,j)
./pkg/thsice/thsice_extend.F 129 THSICE_EXTEND 
          qicen(2)= qIc2(i,j)
./pkg/thsice/thsice_extend.F 136 THSICE_EXTEND 
          qicen(1)= -cpwater*Tmlt1
./pkg/thsice/thsice_extend.F 138 THSICE_EXTEND 
          qicen(2)= -cpice *Tf + Lfresh
./pkg/thsice/thsice_extend.F 140 THSICE_EXTEND 
        qicAv = rhoi*(qicen(1)+qicen(2))*0.5 _d 0
./pkg/thsice/thsice_extend.F 177 THSICE_EXTEND 
     I            icFrac(i,j), iceFrac, iceThick, snowThick, qicen,
./pkg/thsice/thsice_extend.F 187 THSICE_EXTEND 
            qIc1(i,j)   = qicen(1)
./pkg/thsice/thsice_extend.F 188 THSICE_EXTEND 
            qIc2(i,j)   = qicen(2)
./pkg/thsice/thsice_extend.F 99 THSICE_EXTEND 
      _RL qicen(nlyr)
./pkg/thsice/thsice_solve4temp.F 124 THSICE_SOLVE4TEMP 
      _RL qicen(nlyr)
./pkg/thsice/thsice_solve4temp.F 175 THSICE_SOLVE4TEMP 
          qicen(1)= qIc1(i,j)
./pkg/thsice/thsice_solve4temp.F 176 THSICE_SOLVE4TEMP 
          qicen(2)= qIc2(i,j)
./pkg/thsice/thsice_solve4temp.F 207 THSICE_SOLVE4TEMP 
      b1 = qicen(1) + (cpwater-cpice )*Tmlt1 - Lfresh
./pkg/thsice/thsice_solve4temp.F 210 THSICE_SOLVE4TEMP 
      Tice(2) = (Lfresh-qicen(2)) / cpice
./pkg/thsice/thsice_solve4temp.F 214 THSICE_SOLVE4TEMP 
     &       ' BBerr: Tice(1) > 0 ; it=', myIter, qicen(1)
./pkg/thsice/thsice_solve4temp.F 220 THSICE_SOLVE4TEMP 
     &       ' BBerr: Tice(2) > 0 ; it=', myIter, qicen(2)
./pkg/thsice/thsice_solve4temp.F 396 THSICE_SOLVE4TEMP 
      qicen(1) = -cpwater*Tmlt1 + cpice *(Tmlt1-Tice(1))
./pkg/thsice/thsice_solve4temp.F 398 THSICE_SOLVE4TEMP 
      qicen(2) = -cpice *Tice(2) + Lfresh
./pkg/thsice/thsice_solve4temp.F 417 THSICE_SOLVE4TEMP 
          qIc1(i,j)  = qicen(1)
./pkg/thsice/thsice_solve4temp.F 418 THSICE_SOLVE4TEMP 
          qIc2(i,j)  = qicen(2)
./pkg/thsice/thsice_solve4temp.F 430 THSICE_SOLVE4TEMP 
     &           sHeat(i,j), flxCnB(i,j), qicen