| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
196 |
CHEAPAML_COARE3_FLUX |
& ' L,zu,zL,zt =', L, zu, zL, zt |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
209 |
CHEAPAML_COARE3_FLUX |
zL=xkar*gravity*zu*( tsr*(1.+0.61 _d 0*q)+0.61 _d 0*tta*qsr ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
211 |
CHEAPAML_COARE3_FLUX |
L=zu/zL |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
273 |
CHEAPAML_COARE3_FLUX |
_RL FUNCTION psiu(zL) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
287 |
CHEAPAML_COARE3_FLUX |
_RL zL |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
292 |
CHEAPAML_COARE3_FLUX |
IF (zL.LT.0.0) THEN |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
293 |
CHEAPAML_COARE3_FLUX |
x = (1. - 15.*zL)**.25 !Kansas unstable |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
295 |
CHEAPAML_COARE3_FLUX |
y = (1. - 10.15 _d 0*zL)**.3333 _d 0 !Convective |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
299 |
CHEAPAML_COARE3_FLUX |
f = zL*zL/(1.+zL*zL) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
302 |
CHEAPAML_COARE3_FLUX |
c = MIN( 50. _d 0, 0.35 _d 0*zL ) !Stable |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
304 |
CHEAPAML_COARE3_FLUX |
psiu = -( (1.+zL) + 0.6667 _d 0*(zL-14.28 _d 0)/EXP(c) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
316 |
CHEAPAML_COARE3_FLUX |
_RL FUNCTION psit(zL) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
325 |
CHEAPAML_COARE3_FLUX |
_RL zL |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
330 |
CHEAPAML_COARE3_FLUX |
IF (zL.LT.0.0) THEN |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
331 |
CHEAPAML_COARE3_FLUX |
x = (1. - 15.*zL)**.5 !Kansas unstable |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
333 |
CHEAPAML_COARE3_FLUX |
y = (1. - 34.15 _d 0*zL)**.3333 _d 0 !Convective |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
337 |
CHEAPAML_COARE3_FLUX |
f = zL*zL/(1.+zL*zL) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
340 |
CHEAPAML_COARE3_FLUX |
c = MIN( 50. _d 0, 0.35 _d 0*zL ) !Stable |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
341 |
CHEAPAML_COARE3_FLUX |
psit = -( (1.+2.*zL/3.)**1.5 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
342 |
CHEAPAML_COARE3_FLUX |
& + 0.6667 _d 0*(zL-14.28 _d 0)/EXP(c) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
60 |
CHEAPAML_COARE3_FLUX |
_RL zo,zot,zoq,RR,zL |