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


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 1063 THSICE_CALC_THICKN 
         extend=etope(i,j)+ebote(i,j)
./pkg/thsice/thsice_calc_thickn.F 1064 THSICE_CALC_THICKN 
         IF (icFrac(i,j).GT.0. _d 0.AND.extend.GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 1070 THSICE_CALC_THICKN 
          IF ( extend.LT.rqh ) THEN
./pkg/thsice/thsice_calc_thickn.F 1071 THSICE_CALC_THICKN 
           icFrac(i,j)=(1. _d 0-extend/rqh)*icFrac(i,j)
./pkg/thsice/thsice_calc_thickn.F 1073 THSICE_CALC_THICKN 
          IF ( extend.LT.rqh .AND. icFrac(i,j).GE.iceMaskMin ) THEN
./pkg/thsice/thsice_calc_thickn.F 1074 THSICE_CALC_THICKN 
           frw2oc(i,j)=frw2oc(i,j)+extend/rqh*freshe
./pkg/thsice/thsice_calc_thickn.F 1075 THSICE_CALC_THICKN 
           fsalt(i,j)=fsalt(i,j)+extend/rqh*salte
./pkg/thsice/thsice_calc_thickn.F 1080 THSICE_CALC_THICKN 
           flx2oc(i,j)=flx2oc(i,j)+(extend-rqh)/dt
./pkg/thsice/thsice_calc_thickn.F 1084 THSICE_CALC_THICKN 
         ELSEIF (extend.GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 1085 THSICE_CALC_THICKN 
          flx2oc(i,j)=flx2oc(i,j)+extend/dt
./pkg/thsice/thsice_calc_thickn.F 182 THSICE_CALC_THICKN 
      _RL extend