Symbol Description Uses
rqh rho * q * h for a layer 22


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 196 THSICE_CALC_THICKN 
      _RL  rqh
./pkg/thsice/thsice_calc_thickn.F 468 THSICE_CALC_THICKN 
            rqh = rq * hs
./pkg/thsice/thsice_calc_thickn.F 469 THSICE_CALC_THICKN 
            IF (etop .LT. rqh) THEN
./pkg/thsice/thsice_calc_thickn.F 473 THSICE_CALC_THICKN 
               etop = etop - rqh
./pkg/thsice/thsice_calc_thickn.F 495 THSICE_CALC_THICKN 
               rqh = rq * hnew(k)
./pkg/thsice/thsice_calc_thickn.F 496 THSICE_CALC_THICKN 
               IF (etop .LT. rqh) THEN
./pkg/thsice/thsice_calc_thickn.F 500 THSICE_CALC_THICKN 
                  etop = etop - rqh
./pkg/thsice/thsice_calc_thickn.F 550 THSICE_CALC_THICKN 
               rqh = rq * hnew(k)
./pkg/thsice/thsice_calc_thickn.F 551 THSICE_CALC_THICKN 
               IF (ebot .LT. rqh) THEN
./pkg/thsice/thsice_calc_thickn.F 555 THSICE_CALC_THICKN 
                  ebot = ebot - rqh
./pkg/thsice/thsice_calc_thickn.F 566 THSICE_CALC_THICKN 
            rqh = rq * hs
./pkg/thsice/thsice_calc_thickn.F 567 THSICE_CALC_THICKN 
            IF (ebot .LT. rqh) THEN
./pkg/thsice/thsice_calc_thickn.F 571 THSICE_CALC_THICKN 
               ebot = ebot - rqh
./pkg/thsice/thsice_calc_thickn.F 754 THSICE_CALC_THICKN 
         rqh = rhoi*qicen(1)*hnew(1) + rhos*qsnow*dhs
./pkg/thsice/thsice_calc_thickn.F 756 THSICE_CALC_THICKN 
         qicen(1) = rqh / (rhoi*hnew(1))
./pkg/thsice/thsice_calc_thickn.F 856 THSICE_CALC_THICKN 
         rqh = rq * hi + rs * hs
./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