| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_get_exf.F |
225 |
THSICE_GET_EXF |
huol = (tstar/t0 + |
|
./pkg/thsice/thsice_get_exf.F |
231 |
THSICE_GET_EXF |
huol = MIN( MAX(-10. _d 0,huol), 10. _d 0 ) |
|
./pkg/thsice/thsice_get_exf.F |
232 |
THSICE_GET_EXF |
htol = huol*ht/hu |
|
./pkg/thsice/thsice_get_exf.F |
233 |
THSICE_GET_EXF |
hqol = huol*hq/hu |
|
./pkg/thsice/thsice_get_exf.F |
234 |
THSICE_GET_EXF |
stable = exf_half + SIGN(exf_half, huol) |
|
./pkg/thsice/thsice_get_exf.F |
240 |
THSICE_GET_EXF |
xsq = SQRT( ABS(exf_one - huol*16. _d 0) ) |
|
./pkg/thsice/thsice_get_exf.F |
242 |
THSICE_GET_EXF |
psimh = -psim_fac*huol*stable |
|
./pkg/thsice/thsice_get_exf.F |
89 |
THSICE_GET_EXF |
_RL huol ! stability parameter at zwd [-] (=z/Monin-Obuklov length) |
|
./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 |
303 |
CHEAPAML |
huol = czol/ustar**2 *(tstar/t0 + |
|
./pkg/cheapaml/cheapaml.F |
305 |
CHEAPAML |
huol = sign( min(abs(huol),10. _d 0), huol) |
|
./pkg/cheapaml/cheapaml.F |
306 |
CHEAPAML |
stable = 5. _d -1 + sign(5. _d -1 , huol) |
|
./pkg/cheapaml/cheapaml.F |
307 |
CHEAPAML |
xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*huol)),1. _d 0) |
|
./pkg/cheapaml/cheapaml.F |
309 |
CHEAPAML |
psimh = -5. _d 0*huol*stable + (1. _d 0-stable)* |
|
./pkg/cheapaml/cheapaml.F |
313 |
CHEAPAML |
psixh = -5. _d 0*huol*stable + (1. _d 0-stable)* |
|
./pkg/cheapaml/cheapaml.F |
91 |
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 |
363 |
EXF_BULKFORMULAE |
huol = ( tstar(i,j)/t0 + |
|
./pkg/exf/exf_bulkformulae.F |
367 |
EXF_BULKFORMULAE |
tmpbulk = MIN(abs(huol),10. _d 0) |
|
./pkg/exf/exf_bulkformulae.F |
368 |
EXF_BULKFORMULAE |
huol = SIGN(tmpbulk , huol) |
|
./pkg/exf/exf_bulkformulae.F |
371 |
EXF_BULKFORMULAE |
huol = max(huol,zolmin) |
|
./pkg/exf/exf_bulkformulae.F |
373 |
EXF_BULKFORMULAE |
htol = huol*ht/hu |
|
./pkg/exf/exf_bulkformulae.F |
374 |
EXF_BULKFORMULAE |
hqol = huol*hq/hu |
|
./pkg/exf/exf_bulkformulae.F |
375 |
EXF_BULKFORMULAE |
stable = exf_half + sign(exf_half, huol) |
|
./pkg/exf/exf_bulkformulae.F |
383 |
EXF_BULKFORMULAE |
xsq = SQRT( ABS(exf_one - huol*16. _d 0) ) |
|
./pkg/exf/exf_bulkformulae.F |
386 |
EXF_BULKFORMULAE |
xsq = max(sqrt(abs(exf_one - 16.*huol)),exf_one) |
|
./pkg/exf/exf_bulkformulae.F |
389 |
EXF_BULKFORMULAE |
psimh = -psim_fac*huol*stable |