Symbol Description Uses
etop 20


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 189 THSICE_CALC_THICKN 
          etop = (1. _d 0-frace)*sHeating * dt
./pkg/thsice/thsice_calc_thickn.F 192 THSICE_CALC_THICKN 
          etop =  0. _d 0
./pkg/thsice/thsice_calc_thickn.F 216 THSICE_CALC_THICKN 
     &            etop,etope,ebot,ebote
./pkg/thsice/thsice_calc_thickn.F 230 THSICE_CALC_THICKN 
      if (etop .gt. 0. _d 0) then
./pkg/thsice/thsice_calc_thickn.F 234 THSICE_CALC_THICKN 
            if (etop .lt. rqh) then
./pkg/thsice/thsice_calc_thickn.F 235 THSICE_CALC_THICKN 
               hs = hs - etop/rq
./pkg/thsice/thsice_calc_thickn.F 236 THSICE_CALC_THICKN 
               etop = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 238 THSICE_CALC_THICKN 
               etop = etop - rqh
./pkg/thsice/thsice_calc_thickn.F 244 THSICE_CALC_THICKN 
            if (etop .gt. 0. _d 0) then
./pkg/thsice/thsice_calc_thickn.F 247 THSICE_CALC_THICKN 
               if (etop .lt. rqh) then
./pkg/thsice/thsice_calc_thickn.F 248 THSICE_CALC_THICKN 
                  hnew(k) = hnew(k) - etop / rq
./pkg/thsice/thsice_calc_thickn.F 249 THSICE_CALC_THICKN 
                  etop = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 251 THSICE_CALC_THICKN 
                  etop = etop - rqh
./pkg/thsice/thsice_calc_thickn.F 257 THSICE_CALC_THICKN 
        etop=0. _d 0
./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 95 THSICE_CALC_THICKN 
      _RL  etop          ! energy for top melting    (J m-2)