| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_get_exf.F |
204 |
THSICE_GET_EXF |
rdn(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
287 |
THSICE_GET_EXF |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/thsice/thsice_get_exf.F |
289 |
THSICE_GET_EXF |
rdn(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
295 |
THSICE_GET_EXF |
ustar(i,j) = rdn(i,j)*wsm |
|
./pkg/thsice/thsice_get_exf.F |
367 |
THSICE_GET_EXF |
& /( exf_one + rdn(i,j)*(zwln-psimh)/karman ) |
|
./pkg/thsice/thsice_get_exf.F |
370 |
THSICE_GET_EXF |
usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh) |
|
./pkg/thsice/thsice_get_exf.F |
377 |
THSICE_GET_EXF |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/thsice/thsice_get_exf.F |
383 |
THSICE_GET_EXF |
rd(i,j)= rdn(i,j)/( exf_one + rdn(i,j)*(zwln-psimh)/karman ) |
|
./pkg/thsice/thsice_get_exf.F |
385 |
THSICE_GET_EXF |
rd(i,j)= rdn(i,j)/( exf_one - rdn(i,j)/karman*psimh ) |
|
./pkg/thsice/thsice_get_exf.F |
99 |
THSICE_GET_EXF |
_RL rdn (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./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.F |
296 |
CHEAPAML |
rdn=xkar/(log(zref/zice)) |
|
./pkg/cheapaml/cheapaml.F |
297 |
CHEAPAML |
rhn=rdn |
|
./pkg/cheapaml/cheapaml.F |
298 |
CHEAPAML |
ren=rdn |
|
./pkg/cheapaml/cheapaml.F |
300 |
CHEAPAML |
ustar=rdn*usm |
|
./pkg/cheapaml/cheapaml.F |
321 |
CHEAPAML |
rd = rdn/(1. _d 0 + rdn*(aln-psimh)/xkar) |
|
./pkg/cheapaml/cheapaml.F |
89 |
CHEAPAML |
_RL rdn,ren,rhn,xkar,zice,zref |
|
./pkg/exf/exf_bulkformulae.F |
186 |
EXF_BULKFORMULAE |
_RL rdn (1:sNx,1:sNy) ! neutral, zref (=10m) values of rd |
|
./pkg/exf/exf_bulkformulae.F |
311 |
EXF_BULKFORMULAE |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/exf/exf_bulkformulae.F |
312 |
EXF_BULKFORMULAE |
ustar(i,j) = rdn(i,j)*wsm |
|
./pkg/exf/exf_bulkformulae.F |
315 |
EXF_BULKFORMULAE |
rdn(i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
336 |
EXF_BULKFORMULAE |
rdn (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
417 |
EXF_BULKFORMULAE |
usn = wspeed(i,j,bi,bj)/(exf_one + rdn(i,j)*dzTmp ) |
|
./pkg/exf/exf_bulkformulae.F |
424 |
EXF_BULKFORMULAE |
usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh) |
|
./pkg/exf/exf_bulkformulae.F |
431 |
EXF_BULKFORMULAE |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/exf/exf_bulkformulae.F |
433 |
EXF_BULKFORMULAE |
rd(i,j) = rdn(i,j)/(exf_one + rdn(i,j)*dzTmp) |
|
./pkg/exf/exf_bulkformulae.F |
435 |
EXF_BULKFORMULAE |
rd(i,j) = rdn(i,j)/(exf_one - rdn(i,j)/karman*psimh) |