| File |
Line number |
Procedure |
Code |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
153 |
BULKF_FORMULA_LANL |
huol = czol/ustar**2 *(tstar/t0 + |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
155 |
BULKF_FORMULA_LANL |
huol = sign( min(abs(huol),10. _d 0), huol) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
156 |
BULKF_FORMULA_LANL |
stable = 5. _d -1 + sign(5. _d -1 , huol) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
157 |
BULKF_FORMULA_LANL |
xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*huol)),1. _d 0) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
159 |
BULKF_FORMULA_LANL |
psimh = -5. _d 0*huol*stable + (1. _d 0-stable)* |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
163 |
BULKF_FORMULA_LANL |
psixh = -5. _d 0*huol*stable + (1. _d 0-stable)* |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
64 |
BULKF_FORMULA_LANL |
_RL huol |
|
./pkg/exf/exf_bulkformulae.F |
151 |
EXF_BULKFORMULAE |
_RL huol |
|
./pkg/exf/exf_bulkformulae.F |
381 |
EXF_BULKFORMULAE |
huol = czol*(tstar/t0 + |
|
./pkg/exf/exf_bulkformulae.F |
384 |
EXF_BULKFORMULAE |
huol = max(huol,zolmin) |
|
./pkg/exf/exf_bulkformulae.F |
385 |
EXF_BULKFORMULAE |
stable = exf_half + sign(exf_half, huol) |
|
./pkg/exf/exf_bulkformulae.F |
386 |
EXF_BULKFORMULAE |
htol = huol*ht/hu |
|
./pkg/exf/exf_bulkformulae.F |
387 |
EXF_BULKFORMULAE |
hqol = huol*hq/hu |
|
./pkg/exf/exf_bulkformulae.F |
390 |
EXF_BULKFORMULAE |
xsq = max(sqrt(abs(exf_one - 16.*huol)),exf_one) |
|
./pkg/exf/exf_bulkformulae.F |
392 |
EXF_BULKFORMULAE |
psimh = -psim_fac*huol*stable + |