| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_get_exf.F |
100 |
THSICE_GET_EXF |
_RL rd (1-OLx:sNx+OLx,1-OLy:sNy+OLy) ! = sqrt(Cd) [-] |
|
./pkg/thsice/thsice_get_exf.F |
205 |
THSICE_GET_EXF |
rd(i,j) = 0. _d 0 |
|
./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 |
391 |
THSICE_GET_EXF |
ustar(i,j) = rd(i,j)*sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
403 |
THSICE_GET_EXF |
tau = atmrho*rd(i,j)*wspeed(i,j,bi,bj) |
|
./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 |
185 |
BULKF_FORMULA_LANL |
ustar = rd*usm |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
192 |
BULKF_FORMULA_LANL |
csha = rhoa*cpair*us*rh*rd |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
193 |
BULKF_FORMULA_LANL |
clha = rhoa*lath*us*re*rd |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
86 |
BULKF_FORMULA_LANL |
_RL rd ! = sqrt(Cd) [-] |
|
./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 |
221 |
BULKF_FORMULA_LAY |
ustar = rd*wsm |
|
./pkg/bulk_force/bulkf_formula_lay.F |
228 |
BULKF_FORMULA_LAY |
tau = rhoA*rd*ws |
|
./pkg/bulk_force/bulkf_formula_lay.F |
236 |
BULKF_FORMULA_LAY |
ust = tau*rd*uw |
|
./pkg/bulk_force/bulkf_formula_lay.F |
237 |
BULKF_FORMULA_LAY |
vst = tau*rd*vw |
|
./pkg/bulk_force/bulkf_formula_lay.F |
95 |
BULKF_FORMULA_LAY |
_RL rd ! = sqrt(Cd) [-] |
|
./pkg/cheapaml/cheapaml.F |
321 |
CHEAPAML |
rd = rdn/(1. _d 0 + rdn*(aln-psimh)/xkar) |
|
./pkg/cheapaml/cheapaml.F |
325 |
CHEAPAML |
ustar = rd*usm |
|
./pkg/cheapaml/cheapaml.F |
334 |
CHEAPAML |
csha = rhoa*cpair*usm*rh*rd |
|
./pkg/cheapaml/cheapaml.F |
335 |
CHEAPAML |
clha = rhoa*lath*usm*re*rd |
|
./pkg/cheapaml/cheapaml.F |
90 |
CHEAPAML |
_RL rd,re,rh,tta,toa |
|
./pkg/exf/exf_bulkformulae.F |
187 |
EXF_BULKFORMULAE |
_RL rd (1:sNx,1:sNy) ! = sqrt(Cd) [-] |
|
./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) |
|
./pkg/exf/exf_bulkformulae.F |
437 |
EXF_BULKFORMULAE |
ustar(i,j) = rd(i,j)*sh(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
439 |
EXF_BULKFORMULAE |
tau(i,j) = atmrho*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
494 |
EXF_BULKFORMULAE |
tmpbulk = tau(i,j)*rd(i,j) |