Symbol Description Uses
extend total energy for lateral melting (J m-2) 11


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 190 THSICE_CALC_THICKN 
      _RL  extend
./pkg/thsice/thsice_calc_thickn.F 852 THSICE_CALC_THICKN 
      extend=etope+ebote
./pkg/thsice/thsice_calc_thickn.F 853 THSICE_CALC_THICKN 
      IF (iceFrac.GT.0. _d 0.AND.extend.GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 859 THSICE_CALC_THICKN 
         IF ( extend.LT.rqh ) THEN
./pkg/thsice/thsice_calc_thickn.F 860 THSICE_CALC_THICKN 
           iceFrac=(1. _d 0-extend/rqh)*iceFrac
./pkg/thsice/thsice_calc_thickn.F 862 THSICE_CALC_THICKN 
         IF ( extend.LT.rqh .AND. iceFrac.GE.iceMaskMin ) THEN
./pkg/thsice/thsice_calc_thickn.F 863 THSICE_CALC_THICKN 
           fresh=fresh+extend/rqh*freshe
./pkg/thsice/thsice_calc_thickn.F 864 THSICE_CALC_THICKN 
           fsalt(i,j)=fsalt(i,j)+extend/rqh*salte
./pkg/thsice/thsice_calc_thickn.F 869 THSICE_CALC_THICKN 
           qleft=qleft+(extend-rqh)/dt
./pkg/thsice/thsice_calc_thickn.F 873 THSICE_CALC_THICKN 
      ELSEIF (extend.GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 874 THSICE_CALC_THICKN 
         qleft=qleft+extend/dt