Symbol Description Uses
htol 13


File Line number Procedure Code
./pkg/thsice/thsice_get_exf.F 232 THSICE_GET_EXF 
            htol   = huol*ht/hu
./pkg/thsice/thsice_get_exf.F 250 THSICE_GET_EXF 
            xsq    = SQRT( ABS(exf_one - htol*16. _d 0) )
./pkg/thsice/thsice_get_exf.F 251 THSICE_GET_EXF 
            psixh  = -psim_fac*htol*stable
./pkg/thsice/thsice_get_exf.F 90 THSICE_GET_EXF 
      _RL htol               ! stability parameter at zth [-]
./pkg/bulk_force/bulkf_formula_lay.F 101 BULKF_FORMULA_LAY 
      _RL htol               ! stability parameter at zth [-]
./pkg/bulk_force/bulkf_formula_lay.F 200 BULKF_FORMULA_LAY 
                 htol   = huol*zth/zwd
./pkg/bulk_force/bulkf_formula_lay.F 201 BULKF_FORMULA_LAY 
                 xsq    = SQRT( ABS(one - htol*16. _d 0) )
./pkg/bulk_force/bulkf_formula_lay.F 202 BULKF_FORMULA_LAY 
                 psixh  = -5. _d 0*htol*stable
./pkg/exf/exf_bulkformulae.F 200 EXF_BULKFORMULAE 
      _RL htol                  ! stability parameter at zth [-]
./pkg/exf/exf_bulkformulae.F 373 EXF_BULKFORMULAE 
            htol   = huol*ht/hu
./pkg/exf/exf_bulkformulae.F 399 EXF_BULKFORMULAE 
            xsq   = SQRT( ABS(exf_one - htol*16. _d 0) )
./pkg/exf/exf_bulkformulae.F 402 EXF_BULKFORMULAE 
            xsq   = max(sqrt(abs(exf_one - 16.*htol)),exf_one)
./pkg/exf/exf_bulkformulae.F 404 EXF_BULKFORMULAE 
            psixh = -psim_fac*htol*stable + (exf_one-stable)*