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


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 1065 THSICE_CALC_THICKN 
          rq =  rhoi * 0.5 _d 0*(qicen(i,j,1)+qicen(i,j,2))
./pkg/thsice/thsice_calc_thickn.F 1107 THSICE_CALC_THICKN 
         qIc1(i,j)   = qicen(i,j,1)
./pkg/thsice/thsice_calc_thickn.F 1108 THSICE_CALC_THICKN 
         qIc2(i,j)   = qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 141 THSICE_CALC_THICKN 
      _RL qicen(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nlyr)
./pkg/thsice/thsice_calc_thickn.F 293 THSICE_CALC_THICKN 
         qicen(i,j,k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 320 THSICE_CALC_THICKN 
         qicen(i,j,1)= qIc1(i,j)
./pkg/thsice/thsice_calc_thickn.F 321 THSICE_CALC_THICKN 
         qicen(i,j,2)= qIc2(i,j)
./pkg/thsice/thsice_calc_thickn.F 537 THSICE_CALC_THICKN 
           rq =  rhoi * qicen(i,j,k)
./pkg/thsice/thsice_calc_thickn.F 577 THSICE_CALC_THICKN 
         qicen(i,j,nlyr) =
./pkg/thsice/thsice_calc_thickn.F 578 THSICE_CALC_THICKN 
     &        (hnew(i,j,nlyr)*qicen(i,j,nlyr)+dhi*qbot) /
./pkg/thsice/thsice_calc_thickn.F 617 THSICE_CALC_THICKN 
          rq =  rhoi * qicen(i,j,k)
./pkg/thsice/thsice_calc_thickn.F 675 THSICE_CALC_THICKN 
     &         - rhoi*qicen(i,j,1)*hnew(i,j,1)
./pkg/thsice/thsice_calc_thickn.F 676 THSICE_CALC_THICKN 
     &         - rhoi*qicen(i,j,2)*hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 681 THSICE_CALC_THICKN 
          qicen(i,j,1) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 682 THSICE_CALC_THICKN 
          qicen(i,j,2) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 797 THSICE_CALC_THICKN 
     &             - hnew(i,j,k)*rhoi*(qicen(i,j,k)-Lfresh)
./pkg/thsice/thsice_calc_thickn.F 803 THSICE_CALC_THICKN 
              hq = hnew(i,j,k)*qicen(i,j,k)-dhi*Lfresh
./pkg/thsice/thsice_calc_thickn.F 805 THSICE_CALC_THICKN 
              qicen(i,j,k)=hq/hnew(i,j,k)
./pkg/thsice/thsice_calc_thickn.F 844 THSICE_CALC_THICKN 
     &          - rhoi*qicen(i,j,1)*hnew(i,j,1)
./pkg/thsice/thsice_calc_thickn.F 845 THSICE_CALC_THICKN 
     &          - rhoi*qicen(i,j,2)*hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 850 THSICE_CALC_THICKN 
           qicen(i,j,1) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 851 THSICE_CALC_THICKN 
           qicen(i,j,2) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 914 THSICE_CALC_THICKN 
           rqh = rhoi*qicen(i,j,1)*hnew(i,j,1) + rhos*qsnow*dhs
./pkg/thsice/thsice_calc_thickn.F 916 THSICE_CALC_THICKN 
           qicen(i,j,1)   = rqh / (rhoi*hnew(i,j,1))
./pkg/thsice/thsice_calc_thickn.F 945 THSICE_CALC_THICKN 
     &         qicen(i,j,1), qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 960 THSICE_CALC_THICKN 
           q2tmp = f1*qicen(i,j,1) + (1. _d 0-f1)*qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 962 THSICE_CALC_THICKN 
            qicen(i,j,2) = q2tmp
./pkg/thsice/thsice_calc_thickn.F 965 THSICE_CALC_THICKN 
            qh2 = hlyr*qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 966 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 968 THSICE_CALC_THICKN 
            qicen(i,j,1) = qh1/hlyr
./pkg/thsice/thsice_calc_thickn.F 973 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 980 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 177 THSICE_EXTEND 
          qicen(1)= qIc1(i,j)
./pkg/thsice/thsice_extend.F 178 THSICE_EXTEND 
          qicen(2)= qIc2(i,j)
./pkg/thsice/thsice_extend.F 186 THSICE_EXTEND 
          qicen(1)= -cpWater*Tmlt1
./pkg/thsice/thsice_extend.F 188 THSICE_EXTEND 
          qicen(2)= -cpIce *Tf + Lfresh
./pkg/thsice/thsice_extend.F 190 THSICE_EXTEND 
        qicAv = rhoi*(qicen(1)+qicen(2))*0.5 _d 0
./pkg/thsice/thsice_extend.F 237 THSICE_EXTEND 
     I            icFrac(i,j), iceFrac, iceThick, hSnow(i,j), qicen,
./pkg/thsice/thsice_extend.F 248 THSICE_EXTEND 
            qIc1(i,j)   = qicen(1)
./pkg/thsice/thsice_extend.F 249 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)