Symbol Description Uses
huol 52


File Line number Procedure Code
./pkg/thsice/thsice_get_exf.F 112 THSICE_GET_EXF 
      _RL huol
./pkg/thsice/thsice_get_exf.F 324 THSICE_GET_EXF 
           huol   = (tstar(i,j)/t0 +
./pkg/thsice/thsice_get_exf.F 329 THSICE_GET_EXF 
           huol   = MIN( MAX(-10. _d 0,huol), 10. _d 0 )
./pkg/thsice/thsice_get_exf.F 332 THSICE_GET_EXF 
           huol   = MAX(huol,zolmin)
./pkg/thsice/thsice_get_exf.F 334 THSICE_GET_EXF 
           htol   = huol*ht/hu
./pkg/thsice/thsice_get_exf.F 335 THSICE_GET_EXF 
           hqol   = huol*hq/hu
./pkg/thsice/thsice_get_exf.F 336 THSICE_GET_EXF 
           stable = exf_half + SIGN(exf_half, huol)
./pkg/thsice/thsice_get_exf.F 341 THSICE_GET_EXF 
           xsq    = SQRT( ABS(exf_one - huol*16. _d 0) )
./pkg/thsice/thsice_get_exf.F 344 THSICE_GET_EXF 
           xsq    = MAX(SQRT(ABS(exf_one - huol*16. _d 0)),exf_one)
./pkg/thsice/thsice_get_exf.F 347 THSICE_GET_EXF 
           psimh  = -psim_fac*huol*stable
./pkg/bulk_force/bulkf_formula_lanl.F 167 BULKF_FORMULA_LANL 
                 huol   = czol/ustar**2 *(tstar/t0 +
./pkg/bulk_force/bulkf_formula_lanl.F 169 BULKF_FORMULA_LANL 
                 huol   = sign( min(abs(huol),10. _d 0), huol)
./pkg/bulk_force/bulkf_formula_lanl.F 170 BULKF_FORMULA_LANL 
                 stable = 5. _d -1 + sign(5. _d -1 , huol)
./pkg/bulk_force/bulkf_formula_lanl.F 171 BULKF_FORMULA_LANL 
                 xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*huol)),1. _d 0)
./pkg/bulk_force/bulkf_formula_lanl.F 173 BULKF_FORMULA_LANL 
                 psimh = -5. _d 0*huol*stable + (1. _d 0-stable)*
./pkg/bulk_force/bulkf_formula_lanl.F 177 BULKF_FORMULA_LANL 
                 psixh  = -5. _d 0*huol*stable + (1. _d 0-stable)*
./pkg/bulk_force/bulkf_formula_lanl.F 91 BULKF_FORMULA_LANL 
      _RL huol               ! stability parameter [-]
./pkg/bulk_force/bulkf_formula_lay.F 100 BULKF_FORMULA_LAY 
      _RL huol               ! stability parameter at zwd [-] (=z/Monin-Obuklov length)
./pkg/bulk_force/bulkf_formula_lay.F 189 BULKF_FORMULA_LAY 
                 huol   = ( tstar/t0
./pkg/bulk_force/bulkf_formula_lay.F 192 BULKF_FORMULA_LAY 
                 huol   = SIGN( MIN(abs(huol),10. _d 0), huol)
./pkg/bulk_force/bulkf_formula_lay.F 193 BULKF_FORMULA_LAY 
                 stable = half + SIGN(half, huol)
./pkg/bulk_force/bulkf_formula_lay.F 194 BULKF_FORMULA_LAY 
                 xsq    = SQRT( ABS(one - huol*16. _d 0) )
./pkg/bulk_force/bulkf_formula_lay.F 196 BULKF_FORMULA_LAY 
                 psimh = -5. _d 0*huol*stable
./pkg/bulk_force/bulkf_formula_lay.F 200 BULKF_FORMULA_LAY 
                 htol   = huol*zth/zwd
./pkg/cheapaml/cheapaml.F 306 CHEAPAML 
                 huol   = czol/ustar**2 *(tstar/t0 +
./pkg/cheapaml/cheapaml.F 308 CHEAPAML 
                 huol   = sign( min(abs(huol),10. _d 0), huol)
./pkg/cheapaml/cheapaml.F 309 CHEAPAML 
                 stable = 5. _d -1 + sign(5. _d -1 , huol)
./pkg/cheapaml/cheapaml.F 310 CHEAPAML 
                 xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*huol)),1. _d 0)
./pkg/cheapaml/cheapaml.F 312 CHEAPAML 
                 psimh = -5. _d 0*huol*stable + (1. _d 0-stable)*
./pkg/cheapaml/cheapaml.F 316 CHEAPAML 
                 psixh  = -5. _d 0*huol*stable + (1. _d 0-stable)*
./pkg/cheapaml/cheapaml.F 94 CHEAPAML 
        _RL huol,stable,xsq,x,psimh,psixh
./pkg/exf/exf_bulkformulae.F 199 EXF_BULKFORMULAE 
      _RL huol                  ! stability parameter at zwd [-] (=z/Monin-Obuklov length)
./pkg/exf/exf_bulkformulae.F 364 EXF_BULKFORMULAE 
            huol = ( tstar(i,j)/t0 +
./pkg/exf/exf_bulkformulae.F 368 EXF_BULKFORMULAE 
            tmpbulk = MIN(abs(huol),10. _d 0)
./pkg/exf/exf_bulkformulae.F 369 EXF_BULKFORMULAE 
            huol   = SIGN(tmpbulk , huol)
./pkg/exf/exf_bulkformulae.F 372 EXF_BULKFORMULAE 
            huol   = max(huol,zolmin)
./pkg/exf/exf_bulkformulae.F 374 EXF_BULKFORMULAE 
            htol   = huol*ht/hu
./pkg/exf/exf_bulkformulae.F 375 EXF_BULKFORMULAE 
            hqol   = huol*hq/hu
./pkg/exf/exf_bulkformulae.F 376 EXF_BULKFORMULAE 
            stable = exf_half + sign(exf_half, huol)
./pkg/exf/exf_bulkformulae.F 384 EXF_BULKFORMULAE 
             xsq    = SQRT( ABS(exf_one - huol*16. _d 0) )
./pkg/exf/exf_bulkformulae.F 387 EXF_BULKFORMULAE 
             xsq    = max(sqrt(abs(exf_one - 16.*huol)),exf_one)
./pkg/exf/exf_bulkformulae.F 390 EXF_BULKFORMULAE 
             psimh  = -psim_fac*huol*stable