| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
190 |
EXF_BULKFORMULAE |
_RL rdn (1:sNx,1:sNy) ! neutral, zref (=10m) values of rd |
|
./pkg/exf/exf_bulkformulae.F |
324 |
EXF_BULKFORMULAE |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/exf/exf_bulkformulae.F |
325 |
EXF_BULKFORMULAE |
ustar(i,j) = rdn(i,j)*wsm |
|
./pkg/exf/exf_bulkformulae.F |
327 |
EXF_BULKFORMULAE |
rdn(i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
352 |
EXF_BULKFORMULAE |
rdn (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
428 |
EXF_BULKFORMULAE |
usn = wspeed(i,j,bi,bj)/(exf_one + rdn(i,j)*dzTmp ) |
|
./pkg/exf/exf_bulkformulae.F |
435 |
EXF_BULKFORMULAE |
usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh) |
|
./pkg/exf/exf_bulkformulae.F |
442 |
EXF_BULKFORMULAE |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/exf/exf_bulkformulae.F |
444 |
EXF_BULKFORMULAE |
rd(i,j) = rdn(i,j)/(exf_one + rdn(i,j)*dzTmp) |
|
./pkg/exf/exf_bulkformulae.F |
446 |
EXF_BULKFORMULAE |
rd(i,j) = rdn(i,j)/(exf_one - rdn(i,j)/karman*psimh) |
|
./pkg/thsice/thsice_get_exf.F |
103 |
THSICE_GET_EXF |
_RL rdn (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_get_exf.F |
192 |
THSICE_GET_EXF |
rdn(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
314 |
THSICE_GET_EXF |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/thsice/thsice_get_exf.F |
316 |
THSICE_GET_EXF |
rdn(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
322 |
THSICE_GET_EXF |
ustar(i,j) = rdn(i,j)*wsm |
|
./pkg/thsice/thsice_get_exf.F |
397 |
THSICE_GET_EXF |
& /( exf_one + rdn(i,j)*(zwln-psimh)/karman ) |
|
./pkg/thsice/thsice_get_exf.F |
400 |
THSICE_GET_EXF |
usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh) |
|
./pkg/thsice/thsice_get_exf.F |
407 |
THSICE_GET_EXF |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/thsice/thsice_get_exf.F |
413 |
THSICE_GET_EXF |
rd(i,j)= rdn(i,j)/( exf_one + rdn(i,j)*(zwln-psimh)/karman ) |
|
./pkg/thsice/thsice_get_exf.F |
415 |
THSICE_GET_EXF |
rd(i,j)= rdn(i,j)/( exf_one - rdn(i,j)/karman*psimh ) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
157 |
BULKF_FORMULA_LANL |
rdn=xkar/(log(zref/zice)) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
158 |
BULKF_FORMULA_LANL |
rhn=rdn |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
159 |
BULKF_FORMULA_LANL |
ren=rdn |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
161 |
BULKF_FORMULA_LANL |
ustar=rdn*usm |
|
./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 |
89 |
BULKF_FORMULA_LANL |
_RL rdn, ren, rhn ! initial (neutral) values of rd, re, rh |
|
./pkg/bulk_force/bulkf_formula_lay.F |
175 |
BULKF_FORMULA_LAY |
rdn = SQRT(tmpBlk) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
182 |
BULKF_FORMULA_LAY |
ustar=rdn*wsm |
|
./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 |
211 |
BULKF_FORMULA_LAY |
rdn = SQRT(tmpBlk) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
216 |
BULKF_FORMULA_LAY |
rd = rdn/(1. _d 0 + rdn*(zwln-psimh)/xkar) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
98 |
BULKF_FORMULA_LAY |
_RL rdn, ren, rhn ! neutral, zref (=10m) values of rd, re, rh |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
155 |
CHEAPAML_LANL_FLUX |
rdn=xkar/(log(zref/zice)) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
156 |
CHEAPAML_LANL_FLUX |
rhn=rdn |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
157 |
CHEAPAML_LANL_FLUX |
ren=rdn |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
159 |
CHEAPAML_LANL_FLUX |
ustar=rdn*usm |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
180 |
CHEAPAML_LANL_FLUX |
rd = rdn/(1. _d 0 + rdn*(aln-psimh)/xkar) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
68 |
CHEAPAML_LANL_FLUX |
_RL rdn,ren,rhn,zice,zref |