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


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 152 THSICE_CALC_THICKN 
      _RL  qicen(nlyr)
./pkg/thsice/thsice_calc_thickn.F 304 THSICE_CALC_THICKN 
          qicen(1)= qIc1(i,j)
./pkg/thsice/thsice_calc_thickn.F 305 THSICE_CALC_THICKN 
          qicen(2)= qIc2(i,j)
./pkg/thsice/thsice_calc_thickn.F 494 THSICE_CALC_THICKN 
               rq =  rhoi * qicen(k)
./pkg/thsice/thsice_calc_thickn.F 528 THSICE_CALC_THICKN 
         qicen(nlyr) = (hnew(nlyr)*qicen(nlyr)+dhi*qbot) /
./pkg/thsice/thsice_calc_thickn.F 549 THSICE_CALC_THICKN 
               rq =  rhoi * qicen(k)
./pkg/thsice/thsice_calc_thickn.F 596 THSICE_CALC_THICKN 
            esurp = esurp - rhoi*qicen(k)*hnew(k)
./pkg/thsice/thsice_calc_thickn.F 603 THSICE_CALC_THICKN 
           qicen(k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 679 THSICE_CALC_THICKN 
                 esurp = esurp - hnew(k)*rhoi*(qicen(k)-Lfresh)
./pkg/thsice/thsice_calc_thickn.F 685 THSICE_CALC_THICKN 
                 hq = hnew(k)*qicen(k)-dhi*Lfresh
./pkg/thsice/thsice_calc_thickn.F 687 THSICE_CALC_THICKN 
                 qicen(k)=hq/hnew(k)
./pkg/thsice/thsice_calc_thickn.F 712 THSICE_CALC_THICKN 
            esurp = esurp - rhoi*qicen(k)*hnew(k)
./pkg/thsice/thsice_calc_thickn.F 719 THSICE_CALC_THICKN 
           qicen(k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 754 THSICE_CALC_THICKN 
         rqh = rhoi*qicen(1)*hnew(1) + rhos*qsnow*dhs
./pkg/thsice/thsice_calc_thickn.F 756 THSICE_CALC_THICKN 
         qicen(1) = rqh / (rhoi*hnew(1))
./pkg/thsice/thsice_calc_thickn.F 789 THSICE_CALC_THICKN 
     &  'ThSI_CALC_TH: b-Winton: hnew, qice =', hnew, qicen
./pkg/thsice/thsice_calc_thickn.F 794 THSICE_CALC_THICKN 
     U                            qicen,
./pkg/thsice/thsice_calc_thickn.F 800 THSICE_CALC_THICKN 
     &                 (qicen(1)+qicen(2))*0.5, hs
./pkg/thsice/thsice_calc_thickn.F 854 THSICE_CALC_THICKN 
         rq =  rhoi * 0.5 _d 0*(qicen(1)+qicen(2))
./pkg/thsice/thsice_calc_thickn.F 896 THSICE_CALC_THICKN 
     I            iceMask(i,j), iceFrac, hi, hs, qicen,
./pkg/thsice/thsice_calc_thickn.F 906 THSICE_CALC_THICKN 
          qIc1(i,j)   = qicen(1)
./pkg/thsice/thsice_calc_thickn.F 907 THSICE_CALC_THICKN 
          qIc2(i,j)   = qicen(2)
./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_extend.F 102 THSICE_EXTEND 
      _RL qicen(nlyr)
./pkg/thsice/thsice_extend.F 162 THSICE_EXTEND 
          qicen(1)= qIc1(i,j)
./pkg/thsice/thsice_extend.F 163 THSICE_EXTEND 
          qicen(2)= qIc2(i,j)
./pkg/thsice/thsice_extend.F 171 THSICE_EXTEND 
          qicen(1)= -cpWater*Tmlt1
./pkg/thsice/thsice_extend.F 173 THSICE_EXTEND 
          qicen(2)= -cpIce *Tf + Lfresh
./pkg/thsice/thsice_extend.F 175 THSICE_EXTEND 
        qicAv = rhoi*(qicen(1)+qicen(2))*0.5 _d 0
./pkg/thsice/thsice_extend.F 222 THSICE_EXTEND 
     I            icFrac(i,j), iceFrac, iceThick, hSnow(i,j), qicen,
./pkg/thsice/thsice_extend.F 233 THSICE_EXTEND 
            qIc1(i,j)   = qicen(1)
./pkg/thsice/thsice_extend.F 234 THSICE_EXTEND 
            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_solve4temp.F 129 THSICE_SOLVE4TEMP 
      _RL qicen(nlyr)
./pkg/thsice/thsice_solve4temp.F 227 THSICE_SOLVE4TEMP 
          qicen(1)= qIc1(i,j)
./pkg/thsice/thsice_solve4temp.F 228 THSICE_SOLVE4TEMP 
          qicen(2)= qIc2(i,j)
./pkg/thsice/thsice_solve4temp.F 266 THSICE_SOLVE4TEMP 
      b1 = qicen(1) + (cpWater-cpIce )*Tmlt1 - Lfresh
./pkg/thsice/thsice_solve4temp.F 269 THSICE_SOLVE4TEMP 
      Tice(2) = (Lfresh-qicen(2)) / cpIce
./pkg/thsice/thsice_solve4temp.F 273 THSICE_SOLVE4TEMP 
     &       ' BBerr: Tice(1) > 0 ; it=', myIter, qicen(1)
./pkg/thsice/thsice_solve4temp.F 279 THSICE_SOLVE4TEMP 
     &       ' BBerr: Tice(2) > 0 ; it=', myIter, qicen(2)
./pkg/thsice/thsice_solve4temp.F 477 THSICE_SOLVE4TEMP 
      qicen(1) = -cpWater*Tmlt1 + cpIce *(Tmlt1-Tice(1))
./pkg/thsice/thsice_solve4temp.F 479 THSICE_SOLVE4TEMP 
      qicen(2) = -cpIce *Tice(2) + Lfresh
./pkg/thsice/thsice_solve4temp.F 498 THSICE_SOLVE4TEMP 
          qIc1(i,j)  = qicen(1)
./pkg/thsice/thsice_solve4temp.F 499 THSICE_SOLVE4TEMP 
          qIc2(i,j)  = qicen(2)
./pkg/thsice/thsice_solve4temp.F 511 THSICE_SOLVE4TEMP 
     &           sHeat(i,j), flxCnB(i,j), qicen