Symbol Description Uses
qicen ice enthalpy (J m-3) 74


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 11 THSICE_SOLVE4TEMP 
     U                     flxSW, Tsf, qicen,
./pkg/thsice/thsice_solve4temp.F 153 THSICE_SOLVE4TEMP 
      b1 = qicen(1) + (cpwater-cpice )*Tmlt1 - Lfresh
./pkg/thsice/thsice_solve4temp.F 156 THSICE_SOLVE4TEMP 
      Tice(2) = (Lfresh-qicen(2)) / cpice
./pkg/thsice/thsice_solve4temp.F 307 THSICE_SOLVE4TEMP 
      qicen(1) = -cpwater*Tmlt1 + cpice *(Tmlt1-Tice(1)) +
./pkg/thsice/thsice_solve4temp.F 309 THSICE_SOLVE4TEMP 
      qicen(2) = -cpice *Tice(2) + Lfresh
./pkg/thsice/thsice_solve4temp.F 60 THSICE_SOLVE4TEMP 
      _RL qicen(nlyr)
./pkg/thsice/thsice_calc_thickn.F 12 THSICE_CALC_THICKN 
     U                     compact, hi, hs, Tsf, qicen, qleft,
./pkg/thsice/thsice_calc_thickn.F 245 THSICE_CALC_THICKN 
               rq =  rhoi * qicen(k)
./pkg/thsice/thsice_calc_thickn.F 275 THSICE_CALC_THICKN 
         qicen(k) = (hnew(k)*qicen(k)+dhi*qbot) / (hnew(k)+dhi)
./pkg/thsice/thsice_calc_thickn.F 280 THSICE_CALC_THICKN 
               rq =  rhoi * qicen(k)
./pkg/thsice/thsice_calc_thickn.F 325 THSICE_CALC_THICKN 
            esurp = esurp - rhoi*qicen(k)*hnew(k)
./pkg/thsice/thsice_calc_thickn.F 332 THSICE_CALC_THICKN 
           qicen(k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 383 THSICE_CALC_THICKN 
                 esurp = esurp - hnew(k)*rhoi*(qicen(k)-Lfresh)
./pkg/thsice/thsice_calc_thickn.F 386 THSICE_CALC_THICKN 
                 hq = hnew(k)*qicen(k)-dhi*Lfresh
./pkg/thsice/thsice_calc_thickn.F 388 THSICE_CALC_THICKN 
                 qicen(k)=hq/hnew(k)
./pkg/thsice/thsice_calc_thickn.F 413 THSICE_CALC_THICKN 
            esurp = esurp - rhoi*qicen(k)*hnew(k)
./pkg/thsice/thsice_calc_thickn.F 420 THSICE_CALC_THICKN 
           qicen(k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 435 THSICE_CALC_THICKN 
         rqh = rhoi*qicen(1)*hnew(1) + rhos*qsnow*dhs
./pkg/thsice/thsice_calc_thickn.F 437 THSICE_CALC_THICKN 
         qicen(1) = rqh / (rhoi*hnew(1))
./pkg/thsice/thsice_calc_thickn.F 469 THSICE_CALC_THICKN 
     &                                                 hnew, qicen
./pkg/thsice/thsice_calc_thickn.F 473 THSICE_CALC_THICKN 
     U                            qicen,
./pkg/thsice/thsice_calc_thickn.F 477 THSICE_CALC_THICKN 
     &                  compact,hi,(qicen(1)+qicen(2))*0.5, hs
./pkg/thsice/thsice_calc_thickn.F 519 THSICE_CALC_THICKN 
         rq =  rhoi * 0.5 _d 0*(qicen(1)+qicen(2))
./pkg/thsice/thsice_calc_thickn.F 61 THSICE_CALC_THICKN 
      _RL  qicen(nlyr)
./pkg/thsice/thsice_impl_temp.F 104 THSICE_IMPL_TEMP 
     U          flxSW, Tsf, qicen,
./pkg/thsice/thsice_impl_temp.F 114 THSICE_IMPL_TEMP 
          Qice1(i,j,bi,bj)=qicen(1)
./pkg/thsice/thsice_impl_temp.F 115 THSICE_IMPL_TEMP 
          Qice2(i,j,bi,bj)=qicen(2)
./pkg/thsice/thsice_impl_temp.F 121 THSICE_IMPL_TEMP 
     &           sHeating(i,j,bi,bj), flxCndBt(i,j,bi,bj), qicen
./pkg/thsice/thsice_impl_temp.F 66 THSICE_IMPL_TEMP 
      _RL hIce, hSnow, Tsf, Tice(nlyr), qicen(nlyr)
./pkg/thsice/thsice_impl_temp.F 94 THSICE_IMPL_TEMP 
          qicen(1)= Qice1(i,j,bi,bj)
./pkg/thsice/thsice_impl_temp.F 95 THSICE_IMPL_TEMP 
          qicen(2)= Qice2(i,j,bi,bj)
./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 67 THSICE_CHECK_CONSERV 
     &               + rhoi*hIce*(qicen(1)+qicen(2))*0.5
./pkg/thsice/thsice_extend.F 11 THSICE_EXTEND 
     U                  sst, compact, iceThick, snowThick, qicen,
./pkg/thsice/thsice_extend.F 52 THSICE_EXTEND 
      _RL qicen(nlyr)
./pkg/thsice/thsice_extend.F 84 THSICE_EXTEND 
          qicen(1)= -cpwater*Tmlt1
./pkg/thsice/thsice_extend.F 86 THSICE_EXTEND 
          qicen(2)= -cpice *Tf + Lfresh
./pkg/thsice/thsice_extend.F 88 THSICE_EXTEND 
        qicAv = rhoi*(qicen(1)+qicen(2))*0.5 _d 0
./pkg/thsice/thsice_step_fwd.F 121 THSICE_STEP_FWD 
          qicen(1)= Qice1(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 122 THSICE_STEP_FWD 
          qicen(2)= Qice2(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 137 THSICE_STEP_FWD 
     U          flxSW(i,j), Tsf, qicen,
./pkg/thsice/thsice_step_fwd.F 151 THSICE_STEP_FWD 
          Qice1(i,j,bi,bj)=qicen(1)
./pkg/thsice/thsice_step_fwd.F 152 THSICE_STEP_FWD 
          Qice2(i,j,bi,bj)=qicen(2)
./pkg/thsice/thsice_step_fwd.F 212 THSICE_STEP_FWD 
          qicen(1)= Qice1(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 213 THSICE_STEP_FWD 
          qicen(2)= Qice2(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 219 THSICE_STEP_FWD 
     U          compact, hIce, hSnow, Tsf, qicen, flx2oc,
./pkg/thsice/thsice_step_fwd.F 249 THSICE_STEP_FWD 
     I            icFrac, compact, hIce, hSnow, qicen,
./pkg/thsice/thsice_step_fwd.F 260 THSICE_STEP_FWD 
          Qice1(i,j,bi,bj)=qicen(1)
./pkg/thsice/thsice_step_fwd.F 261 THSICE_STEP_FWD 
          Qice2(i,j,bi,bj)=qicen(2)
./pkg/thsice/thsice_step_fwd.F 297 THSICE_STEP_FWD 
          qicen(1)= Qice1(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 298 THSICE_STEP_FWD 
          qicen(2)= Qice2(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 301 THSICE_STEP_FWD 
     U               oceTs, compact, hIce, hSnow, qicen,
./pkg/thsice/thsice_step_fwd.F 311 THSICE_STEP_FWD 
     I            icFrac, compact, hIce, hSnow, qicen,
./pkg/thsice/thsice_step_fwd.F 321 THSICE_STEP_FWD 
             Qice1(i,j,bi,bj) = qicen(1)
./pkg/thsice/thsice_step_fwd.F 322 THSICE_STEP_FWD 
             Qice2(i,j,bi,bj) = qicen(2)
./pkg/thsice/thsice_step_fwd.F 89 THSICE_STEP_FWD 
      _RL compact, hIce, hSnow, Tsf, Tice(nlyr), qicen(nlyr)
./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)