Symbol Description Uses
esurp surplus energy from melting (J m-2) 20


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 199 THSICE_CALC_THICKN 
      _RL  esurp
./pkg/thsice/thsice_calc_thickn.F 313 THSICE_CALC_THICKN 
      esurp = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 425 THSICE_CALC_THICKN 
          esurp = sHeating * dt
./pkg/thsice/thsice_calc_thickn.F 594 THSICE_CALC_THICKN 
         esurp = esurp - rhos*qsnow*hs
./pkg/thsice/thsice_calc_thickn.F 596 THSICE_CALC_THICKN 
            esurp = esurp - rhoi*qicen(k)*hnew(k)
./pkg/thsice/thsice_calc_thickn.F 607 THSICE_CALC_THICKN 
     &    'ThSI_CALC_TH: -1 : esurp=',esurp
./pkg/thsice/thsice_calc_thickn.F 679 THSICE_CALC_THICKN 
                 esurp = esurp - hnew(k)*rhoi*(qicen(k)-Lfresh)
./pkg/thsice/thsice_calc_thickn.F 710 THSICE_CALC_THICKN 
         esurp = esurp - rhos*qsnow*hs
./pkg/thsice/thsice_calc_thickn.F 712 THSICE_CALC_THICKN 
            esurp = esurp - rhoi*qicen(k)*hnew(k)
./pkg/thsice/thsice_calc_thickn.F 723 THSICE_CALC_THICKN 
     &    'ThSI_CALC_TH: -2 : esurp,fresh=', esurp, fresh
./pkg/thsice/thsice_calc_thickn.F 812 THSICE_CALC_THICKN 
       qleft = qleft + (Fbot+(esurp+etop+ebot)/dt)
./pkg/thsice/thsice_calc_thickn.F 815 THSICE_CALC_THICKN 
     &  'ThSI_CALC_TH: [esurp,etop+ebot]/dt =',esurp/dt,etop/dt,ebot/dt
./pkg/thsice/thsice_extend.F 158 THSICE_EXTEND 
          esurp   = fzMlOc(i,j)
./pkg/thsice/thsice_extend.F 176 THSICE_EXTEND 
        newIce = esurp*deltaTice/qicAv
./pkg/thsice/thsice_extend.F 98 THSICE_EXTEND 
      _RL esurp