Symbol Description Uses
ebot 25


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 208 THSICE_CALC_THICKN 
      ebot = (flxCnB-Fbot) * dt
./pkg/thsice/thsice_calc_thickn.F 209 THSICE_CALC_THICKN 
      if (ebot.gt.0. _d 0) then
./pkg/thsice/thsice_calc_thickn.F 210 THSICE_CALC_THICKN 
         ebote = frace*ebot
./pkg/thsice/thsice_calc_thickn.F 211 THSICE_CALC_THICKN 
         ebot  = ebot-ebote
./pkg/thsice/thsice_calc_thickn.F 216 THSICE_CALC_THICKN 
     &            etop,etope,ebot,ebote
./pkg/thsice/thsice_calc_thickn.F 269 THSICE_CALC_THICKN 
      if (ebot .lt. 0. _d 0) then
./pkg/thsice/thsice_calc_thickn.F 272 THSICE_CALC_THICKN 
         dhi = -ebot / (qbot * rhoi)
./pkg/thsice/thsice_calc_thickn.F 273 THSICE_CALC_THICKN 
         ebot = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 279 THSICE_CALC_THICKN 
            if (ebot.gt.0. _d 0 .and. hnew(k).gt.0. _d 0) then
./pkg/thsice/thsice_calc_thickn.F 282 THSICE_CALC_THICKN 
               if (ebot .lt. rqh) then
./pkg/thsice/thsice_calc_thickn.F 283 THSICE_CALC_THICKN 
                  hnew(k) = hnew(k) - ebot / rq
./pkg/thsice/thsice_calc_thickn.F 284 THSICE_CALC_THICKN 
                  ebot = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 286 THSICE_CALC_THICKN 
                  ebot = ebot - rqh
./pkg/thsice/thsice_calc_thickn.F 295 THSICE_CALC_THICKN 
         if (ebot.gt.0. _d 0 .and. hs.gt.0. _d 0) then
./pkg/thsice/thsice_calc_thickn.F 298 THSICE_CALC_THICKN 
            if (ebot .lt. rqh) then
./pkg/thsice/thsice_calc_thickn.F 299 THSICE_CALC_THICKN 
               hs = hs - ebot / rq
./pkg/thsice/thsice_calc_thickn.F 300 THSICE_CALC_THICKN 
               ebot = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 302 THSICE_CALC_THICKN 
               ebot = ebot - rqh
./pkg/thsice/thsice_calc_thickn.F 319 THSICE_CALC_THICKN 
     &                                         etop, ebot, hi, hs
./pkg/thsice/thsice_calc_thickn.F 486 THSICE_CALC_THICKN 
       qleft = qleft + (Fbot+(esurp+etop+ebot)/dt)
./pkg/thsice/thsice_calc_thickn.F 488 THSICE_CALC_THICKN 
     &                        ,esurp/dt,etop/dt,ebot/dt
./pkg/thsice/thsice_calc_thickn.F 96 THSICE_CALC_THICKN 
      _RL  ebot          ! energy for bottom melting (J m-2)