Symbol Description Uses
extend 10


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 517 THSICE_CALC_THICKN 
      extend=etope+ebote
./pkg/thsice/thsice_calc_thickn.F 518 THSICE_CALC_THICKN 
      if (compact.gt.0. _d 0.and.extend.gt.0. _d 0) then
./pkg/thsice/thsice_calc_thickn.F 524 THSICE_CALC_THICKN 
         if (extend .lt. rqh) then
./pkg/thsice/thsice_calc_thickn.F 525 THSICE_CALC_THICKN 
           compact=(1. _d 0-extend/rqh)*compact
./pkg/thsice/thsice_calc_thickn.F 526 THSICE_CALC_THICKN 
           fresh=fresh+extend/rqh*freshe
./pkg/thsice/thsice_calc_thickn.F 527 THSICE_CALC_THICKN 
           fsalt=fsalt+extend/rqh*salte
./pkg/thsice/thsice_calc_thickn.F 532 THSICE_CALC_THICKN 
           qleft=qleft+(extend-rqh)/dt
./pkg/thsice/thsice_calc_thickn.F 536 THSICE_CALC_THICKN 
      elseif (extend.gt.0. _d 0) then
./pkg/thsice/thsice_calc_thickn.F 537 THSICE_CALC_THICKN 
         qleft=qleft+extend/dt
./pkg/thsice/thsice_calc_thickn.F 99 THSICE_CALC_THICKN 
      _RL  extend        ! total energy for lateral melting (J m-2)