Symbol Description Uses
etope 6



File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 190 THSICE_CALC_THICKN
          etope = frace*sHeating * dt
./pkg/thsice/thsice_calc_thickn.F 193 THSICE_CALC_THICKN
          etope = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 216 THSICE_CALC_THICKN
     &            etop,etope,ebot,ebote
./pkg/thsice/thsice_calc_thickn.F 511 THSICE_CALC_THICKN
     &            Qleft,Fbot,(etope+ebote)/dt
./pkg/thsice/thsice_calc_thickn.F 517 THSICE_CALC_THICKN
      extend=etope+ebote
./pkg/thsice/thsice_calc_thickn.F 97 THSICE_CALC_THICKN
      _RL  etope         ! energy (from top)    for lateral melting (J m-2)