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


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 1060 THSICE_CALC_THICKN 
          rq =  rhoi * 0.5 _d 0*(qicen(i,j,1)+qicen(i,j,2))
./pkg/thsice/thsice_calc_thickn.F 1102 THSICE_CALC_THICKN 
         qIc1(i,j)   = qicen(i,j,1)
./pkg/thsice/thsice_calc_thickn.F 1103 THSICE_CALC_THICKN 
         qIc2(i,j)   = qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 139 THSICE_CALC_THICKN 
      _RL qicen(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nlyr)
./pkg/thsice/thsice_calc_thickn.F 319 THSICE_CALC_THICKN 
         qicen(i,j,1)= qIc1(i,j)
./pkg/thsice/thsice_calc_thickn.F 320 THSICE_CALC_THICKN 
         qicen(i,j,2)= qIc2(i,j)
./pkg/thsice/thsice_calc_thickn.F 536 THSICE_CALC_THICKN 
           rq =  rhoi * qicen(i,j,k)
./pkg/thsice/thsice_calc_thickn.F 576 THSICE_CALC_THICKN 
         qicen(i,j,nlyr) =
./pkg/thsice/thsice_calc_thickn.F 577 THSICE_CALC_THICKN 
     &        (hnew(i,j,nlyr)*qicen(i,j,nlyr)+dhi*qbot) /
./pkg/thsice/thsice_calc_thickn.F 614 THSICE_CALC_THICKN 
          rq =  rhoi * qicen(i,j,k)
./pkg/thsice/thsice_calc_thickn.F 672 THSICE_CALC_THICKN 
     &         - rhoi*qicen(i,j,1)*hnew(i,j,1)
./pkg/thsice/thsice_calc_thickn.F 673 THSICE_CALC_THICKN 
     &         - rhoi*qicen(i,j,2)*hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 678 THSICE_CALC_THICKN 
          qicen(i,j,1) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 679 THSICE_CALC_THICKN 
          qicen(i,j,2) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 791 THSICE_CALC_THICKN 
     &             - hnew(i,j,k)*rhoi*(qicen(i,j,k)-Lfresh)
./pkg/thsice/thsice_calc_thickn.F 797 THSICE_CALC_THICKN 
              hq = hnew(i,j,k)*qicen(i,j,k)-dhi*Lfresh
./pkg/thsice/thsice_calc_thickn.F 799 THSICE_CALC_THICKN 
              qicen(i,j,k)=hq/hnew(i,j,k)
./pkg/thsice/thsice_calc_thickn.F 838 THSICE_CALC_THICKN 
     &          - rhoi*qicen(i,j,1)*hnew(i,j,1)
./pkg/thsice/thsice_calc_thickn.F 839 THSICE_CALC_THICKN 
     &          - rhoi*qicen(i,j,2)*hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 844 THSICE_CALC_THICKN 
           qicen(i,j,1) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 845 THSICE_CALC_THICKN 
           qicen(i,j,2) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 908 THSICE_CALC_THICKN 
           rqh = rhoi*qicen(i,j,1)*hnew(i,j,1) + rhos*qsnow*dhs
./pkg/thsice/thsice_calc_thickn.F 910 THSICE_CALC_THICKN 
           qicen(i,j,1)   = rqh / (rhoi*hnew(i,j,1))
./pkg/thsice/thsice_calc_thickn.F 940 THSICE_CALC_THICKN 
     &         qicen(i,j,1), qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 955 THSICE_CALC_THICKN 
           q2tmp = f1*qicen(i,j,1) + (1. _d 0-f1)*qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 957 THSICE_CALC_THICKN 
            qicen(i,j,2) = q2tmp
./pkg/thsice/thsice_calc_thickn.F 960 THSICE_CALC_THICKN 
            qh2 = hlyr*qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 961 THSICE_CALC_THICKN 
            qhtot = hnew(i,j,1)*qicen(i,j,1) + hnew(i,j,2)*qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 963 THSICE_CALC_THICKN 
            qicen(i,j,1) = qh1/hlyr
./pkg/thsice/thsice_calc_thickn.F 968 THSICE_CALC_THICKN 
           qicen(i,j,1) = f1*qicen(i,j,1) + (1. _d 0-f1)*qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 975 THSICE_CALC_THICKN 
     &         icFrac(i,j),hIce(i,j), (qicen(i,j,1)+qicen(i,j,2))*0.5,
./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 168 THSICE_EXTEND 
          qicen(1)= qIc1(i,j)
./pkg/thsice/thsice_extend.F 169 THSICE_EXTEND 
          qicen(2)= qIc2(i,j)
./pkg/thsice/thsice_extend.F 177 THSICE_EXTEND 
          qicen(1)= -cpWater*Tmlt1
./pkg/thsice/thsice_extend.F 179 THSICE_EXTEND 
          qicen(2)= -cpIce *Tf + Lfresh
./pkg/thsice/thsice_extend.F 181 THSICE_EXTEND 
        qicAv = rhoi*(qicen(1)+qicen(2))*0.5 _d 0
./pkg/thsice/thsice_extend.F 228 THSICE_EXTEND 
     I            icFrac(i,j), iceFrac, iceThick, hSnow(i,j), qicen,
./pkg/thsice/thsice_extend.F 239 THSICE_EXTEND 
            qIc1(i,j)   = qicen(1)
./pkg/thsice/thsice_extend.F 240 THSICE_EXTEND 
            qIc2(i,j)   = qicen(2)
./pkg/thsice/thsice_extend.F 99 THSICE_EXTEND 
      _RL 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)