Symbol Description Uses
huol 57


File Line number Procedure Code
./pkg/exf/exf_bulkformulae.F 208 EXF_BULKFORMULAE 
      _RL huol                  ! stability parameter at zwd [-] (=z/Monin-Obuklov length)
./pkg/exf/exf_bulkformulae.F 380 EXF_BULKFORMULAE 
            huol = ( tstar(i,j)/t0 +
./pkg/exf/exf_bulkformulae.F 384 EXF_BULKFORMULAE 
            tmpbulk = MIN(abs(huol),10. _d 0)
./pkg/exf/exf_bulkformulae.F 385 EXF_BULKFORMULAE 
            huol   = SIGN(tmpbulk , huol)
./pkg/exf/exf_bulkformulae.F 388 EXF_BULKFORMULAE 
            huol   = max(huol,zolmin)
./pkg/exf/exf_bulkformulae.F 390 EXF_BULKFORMULAE 
            htol   = huol*ht/hu
./pkg/exf/exf_bulkformulae.F 391 EXF_BULKFORMULAE 
            hqol   = huol*hq/hu
./pkg/exf/exf_bulkformulae.F 392 EXF_BULKFORMULAE 
            stable = exf_half + sign(exf_half, huol)
./pkg/exf/exf_bulkformulae.F 398 EXF_BULKFORMULAE 
             xsq    = SQRT( ABS(exf_one - huol*16. _d 0) )
./pkg/exf/exf_bulkformulae.F 401 EXF_BULKFORMULAE 
             xsq    = MAX(SQRT(ABS(exf_one - 16.*huol)),exf_one)
./pkg/exf/exf_bulkformulae.F 404 EXF_BULKFORMULAE 
             psimh  = -psim_fac*huol*stable
./pkg/thsice/thsice_get_exf.F 120 THSICE_GET_EXF 
      _RL huol
./pkg/thsice/thsice_get_exf.F 354 THSICE_GET_EXF 
           huol   = (tstar(i,j)/t0 +
./pkg/thsice/thsice_get_exf.F 359 THSICE_GET_EXF 
           huol   = MIN( MAX(-10. _d 0,huol), 10. _d 0 )
./pkg/thsice/thsice_get_exf.F 362 THSICE_GET_EXF 
           huol   = MAX(huol,zolmin)
./pkg/thsice/thsice_get_exf.F 364 THSICE_GET_EXF 
           htol   = huol*ht/hu
./pkg/thsice/thsice_get_exf.F 365 THSICE_GET_EXF 
           hqol   = huol*hq/hu
./pkg/thsice/thsice_get_exf.F 366 THSICE_GET_EXF 
           stable = exf_half + SIGN(exf_half, huol)
./pkg/thsice/thsice_get_exf.F 371 THSICE_GET_EXF 
           xsq    = SQRT( ABS(exf_one - huol*16. _d 0) )
./pkg/thsice/thsice_get_exf.F 374 THSICE_GET_EXF 
           xsq    = MAX(SQRT(ABS(exf_one - huol*16. _d 0)),exf_one)
./pkg/thsice/thsice_get_exf.F 377 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_lanl_flux.F 165 CHEAPAML_LANL_FLUX 
                 huol   = czol/ustar**2 *(tstar/t0 +
./pkg/cheapaml/cheapaml_lanl_flux.F 167 CHEAPAML_LANL_FLUX 
                 huol   = sign( min(abs(huol),10. _d 0), huol)
./pkg/cheapaml/cheapaml_lanl_flux.F 168 CHEAPAML_LANL_FLUX 
                 stable = 5. _d -1 + sign(5. _d -1 , huol)
./pkg/cheapaml/cheapaml_lanl_flux.F 169 CHEAPAML_LANL_FLUX 
                 xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*huol)),1. _d 0)
./pkg/cheapaml/cheapaml_lanl_flux.F 171 CHEAPAML_LANL_FLUX 
                 psimh = -5. _d 0*huol*stable + (1. _d 0-stable)*
./pkg/cheapaml/cheapaml_lanl_flux.F 175 CHEAPAML_LANL_FLUX 
                 psixh  = -5. _d 0*huol*stable + (1. _d 0-stable)*
./pkg/cheapaml/cheapaml_lanl_flux.F 207 CHEAPAML_LANL_FLUX 
                 huol   = czol/ustar**2 *(tstar/t0 +
./pkg/cheapaml/cheapaml_lanl_flux.F 209 CHEAPAML_LANL_FLUX 
                 huol   = sign( min(abs(huol),10. _d 0), huol)
./pkg/cheapaml/cheapaml_lanl_flux.F 210 CHEAPAML_LANL_FLUX 
                 stable = 5. _d -1 + sign(5. _d -1 , huol)
./pkg/cheapaml/cheapaml_lanl_flux.F 72 CHEAPAML_LANL_FLUX 
      _RL huol,stable,xsq,x,psimh,psixh