Symbol Description Uses
psimh 19



File Line number Procedure Code
./pkg/thsice/thsice_get_exf.F 242 THSICE_GET_EXF
            psimh  = -psim_fac*huol*stable
./pkg/thsice/thsice_get_exf.F 256 THSICE_GET_EXF
            usn    = ws/( exf_one + rdn*(zwln-psimh)/karman )
./pkg/thsice/thsice_get_exf.F 267 THSICE_GET_EXF
            rd     = rdn/( exf_one + rdn*(zwln-psimh)/karman )
./pkg/thsice/thsice_get_exf.F 94 THSICE_GET_EXF
      _RL psimh              ! momentum stability function
./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 181 BULKF_FORMULA_LANL
                 rd = rdn/(1. _d 0 + rdn*(aln-psimh)/xkar)
./pkg/bulk_force/bulkf_formula_lanl.F 94 BULKF_FORMULA_LANL
      _RL psimh              ! momentum stability function
./pkg/bulk_force/bulkf_formula_lay.F 104 BULKF_FORMULA_LAY
      _RL psimh              ! momentum stability function
./pkg/bulk_force/bulkf_formula_lay.F 196 BULKF_FORMULA_LAY
                 psimh = -5. _d 0*huol*stable
./pkg/bulk_force/bulkf_formula_lay.F 206 BULKF_FORMULA_LAY
                 usn = ws/(one + rdn/xkar*(zwln-psimh) )
./pkg/bulk_force/bulkf_formula_lay.F 216 BULKF_FORMULA_LAY
                 rd = rdn/(1. _d 0 + rdn*(zwln-psimh)/xkar)
./pkg/cheapaml/cheapaml.F 309 CHEAPAML
                 psimh = -5. _d 0*huol*stable + (1. _d 0-stable)*
./pkg/cheapaml/cheapaml.F 318 CHEAPAML
                 rd = rdn/(1. _d 0 + rdn*(aln-psimh)/xkar)
./pkg/cheapaml/cheapaml.F 91 CHEAPAML
        _RL huol,stable,xsq,x,psimh,psixh
./pkg/exf/exf_bulkformulae.F 204 EXF_BULKFORMULAE
      _RL psimh                 ! momentum stability function
./pkg/exf/exf_bulkformulae.F 389 EXF_BULKFORMULAE
             psimh  = -psim_fac*huol*stable
./pkg/exf/exf_bulkformulae.F 413 EXF_BULKFORMULAE
             dzTmp = (zwln-psimh)/karman
./pkg/exf/exf_bulkformulae.F 421 EXF_BULKFORMULAE
             usn   = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/exf/exf_bulkformulae.F 432 EXF_BULKFORMULAE
             rd(i,j)    = rdn(i,j)/(exf_one - rdn(i,j)/karman*psimh)