| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2287 |
TRBFLX |
sustar(i) = sustar(i) + aitr*ustar(i) |
|
./pkg/exf/exf_bulkformulae.F |
164 |
EXF_BULKFORMULAE |
_RL ustar |
|
./pkg/exf/exf_bulkformulae.F |
300 |
EXF_BULKFORMULAE |
ustar = sqrt(ustmp/atmrho) |
|
./pkg/exf/exf_bulkformulae.F |
304 |
EXF_BULKFORMULAE |
ustar = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
309 |
EXF_BULKFORMULAE |
if ( ustar .eq. 0. _d 0 ) then |
|
./pkg/exf/exf_bulkformulae.F |
311 |
EXF_BULKFORMULAE |
else if ( ustar .lt. ustofu11 ) then |
|
./pkg/exf/exf_bulkformulae.F |
313 |
EXF_BULKFORMULAE |
tmp2 = sqrt(tmp1*tmp1 + ustar*ustar/cquadrag_1) |
|
./pkg/exf/exf_bulkformulae.F |
317 |
EXF_BULKFORMULAE |
tmp4 = ustar*ustar/clindrag_1/2 - tmp3**3 |
|
./pkg/exf/exf_bulkformulae.F |
318 |
EXF_BULKFORMULAE |
tmp5 = sqrt(ustar*ustar/clindrag_1* |
|
./pkg/exf/exf_bulkformulae.F |
319 |
EXF_BULKFORMULAE |
& (ustar*ustar/clindrag_1/4 - tmp3**3)) |
|
./pkg/exf/exf_bulkformulae.F |
325 |
EXF_BULKFORMULAE |
rdn = ustar/us |
|
./pkg/exf/exf_bulkformulae.F |
357 |
EXF_BULKFORMULAE |
ustar = rdn*sh |
|
./pkg/exf/exf_bulkformulae.F |
383 |
EXF_BULKFORMULAE |
& ustar**2 |
|
./pkg/exf/exf_bulkformulae.F |
426 |
EXF_BULKFORMULAE |
ustar = rd*sh |
|
./pkg/exf/exf_bulkformulae.F |
429 |
EXF_BULKFORMULAE |
tau = atmrho*ustar**2 |
|
./pkg/exf/exf_bulkformulae.F |
443 |
EXF_BULKFORMULAE |
hs(i,j,bi,bj) = atmcp*tau*tstar/ustar |
|
./pkg/exf/exf_bulkformulae.F |
444 |
EXF_BULKFORMULAE |
hl(i,j,bi,bj) = flamb*tau*qstar/ustar |
|
./pkg/exf/exf_bulkformulae.F |
448 |
EXF_BULKFORMULAE |
evap(i,j,bi,bj) = -recip_rhonil*tau*qstar/ustar |