| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
212 |
EXF_BULKFORMULAE |
_RL xsq ! = x^2 [-] |
|
./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 |
403 |
EXF_BULKFORMULAE |
x = SQRT(xsq) |
|
./pkg/exf/exf_bulkformulae.F |
406 |
EXF_BULKFORMULAE |
& ( LOG( (exf_one + exf_two*x + xsq)* |
|
./pkg/exf/exf_bulkformulae.F |
407 |
EXF_BULKFORMULAE |
& (exf_one+xsq)*.125 _d 0 ) |
|
./pkg/exf/exf_bulkformulae.F |
414 |
EXF_BULKFORMULAE |
xsq = SQRT( ABS(exf_one - htol*16. _d 0) ) |
|
./pkg/exf/exf_bulkformulae.F |
417 |
EXF_BULKFORMULAE |
xsq = MAX(SQRT(ABS(exf_one - 16.*htol)),exf_one) |
|
./pkg/exf/exf_bulkformulae.F |
420 |
EXF_BULKFORMULAE |
& ( exf_two*LOG(exf_half*(exf_one+xsq)) ) |
|
./pkg/thsice/thsice_get_exf.F |
124 |
THSICE_GET_EXF |
_RL xsq ! = x^2 [-] |
|
./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 |
376 |
THSICE_GET_EXF |
x = SQRT(xsq) |
|
./pkg/thsice/thsice_get_exf.F |
379 |
THSICE_GET_EXF |
& *( LOG( (exf_one + exf_two*x + xsq) |
|
./pkg/thsice/thsice_get_exf.F |
380 |
THSICE_GET_EXF |
& *(exf_one+xsq)*0.125 _d 0 ) |
|
./pkg/thsice/thsice_get_exf.F |
384 |
THSICE_GET_EXF |
xsq = SQRT( ABS(exf_one - htol*16. _d 0) ) |
|
./pkg/thsice/thsice_get_exf.F |
387 |
THSICE_GET_EXF |
xsq = MAX(SQRT(ABS(exf_one - htol*16. _d 0)),exf_one) |
|
./pkg/thsice/thsice_get_exf.F |
391 |
THSICE_GET_EXF |
& *exf_two*LOG( exf_half*(exf_one+xsq) ) |
|
./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 |
172 |
BULKF_FORMULA_LANL |
x = sqrt(xsq) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
175 |
BULKF_FORMULA_LANL |
& 2. _d 0*log(5. _d -1*(1. _d 0+xsq)) - |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
178 |
BULKF_FORMULA_LANL |
& (2. _d 0*log(5. _d -1*(1. _d 0+xsq))) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
93 |
BULKF_FORMULA_LANL |
_RL xsq ! = x^2 [-] |
|
./pkg/bulk_force/bulkf_formula_lay.F |
103 |
BULKF_FORMULA_LAY |
_RL xsq ! = x^2 [-] |
|
./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 |
195 |
BULKF_FORMULA_LAY |
x = SQRT(xsq) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
198 |
BULKF_FORMULA_LAY |
& ( LOG( (one + two*x + xsq)*(one+xsq)*.125 ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
201 |
BULKF_FORMULA_LAY |
xsq = SQRT( ABS(one - htol*16. _d 0) ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
203 |
BULKF_FORMULA_LAY |
& + (one-stable)*( two*LOG(half*(one+xsq)) ) |
|
./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 |
170 |
CHEAPAML_LANL_FLUX |
x = sqrt(xsq) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
173 |
CHEAPAML_LANL_FLUX |
& 2. _d 0*log(5. _d -1*(1. _d 0+xsq)) - |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
176 |
CHEAPAML_LANL_FLUX |
& (2. _d 0*log(5. _d -1*(1. _d 0+xsq))) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
213 |
CHEAPAML_LANL_FLUX |
xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*z100ol)),1. _d 0) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
214 |
CHEAPAML_LANL_FLUX |
x = sqrt(xsq) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
216 |
CHEAPAML_LANL_FLUX |
& (2. _d 0*log(5. _d -1*(1. _d 0+xsq))) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
72 |
CHEAPAML_LANL_FLUX |
_RL huol,stable,xsq,x,psimh,psixh |