File |
Line number |
Procedure |
Code |
./pkg/cheapaml/cheapaml_coare3_flux.F |
165 |
CHEAPAML_COARE3_FLUX |
tsr=-(Dt)*xkar/(LOG(zt/zot10)-psit(zt/L10)) |
./pkg/cheapaml/cheapaml_coare3_flux.F |
166 |
CHEAPAML_COARE3_FLUX |
qsr=-(Dq)*xkar/(LOG(zq/zot10)-psit(zq/L10)) |
./pkg/cheapaml/cheapaml_coare3_flux.F |
213 |
CHEAPAML_COARE3_FLUX |
pst=psit(zt/L) |
./pkg/cheapaml/cheapaml_coare3_flux.F |
215 |
CHEAPAML_COARE3_FLUX |
tsr=-(Dt)*xkar/(LOG(zt/zot)-psit(zt/L)) |
./pkg/cheapaml/cheapaml_coare3_flux.F |
216 |
CHEAPAML_COARE3_FLUX |
qsr=-(Dq)*xkar/(LOG(zq/zoq)-psit(zq/L)) |
./pkg/cheapaml/cheapaml_coare3_flux.F |
234 |
CHEAPAML_COARE3_FLUX |
q100=qs+qsr*(LOG(100. _d 0/zoq)-psit(100. _d 0/L)) |
./pkg/cheapaml/cheapaml_coare3_flux.F |
239 |
CHEAPAML_COARE3_FLUX |
& *xkar/(LOG(zt/zot10)-psit(zt/L10)) |
./pkg/cheapaml/cheapaml_coare3_flux.F |
245 |
CHEAPAML_COARE3_FLUX |
dEvapdTs = rhoa*usr*( xkar/(LOG(zq/zoq)-psit(zq/L)) ) |
./pkg/cheapaml/cheapaml_coare3_flux.F |
316 |
CHEAPAML_COARE3_FLUX |
_RL FUNCTION psit(zL) |
./pkg/cheapaml/cheapaml_coare3_flux.F |
338 |
CHEAPAML_COARE3_FLUX |
psit = (1.-f)*psik+f*psic |
./pkg/cheapaml/cheapaml_coare3_flux.F |
341 |
CHEAPAML_COARE3_FLUX |
psit = -( (1.+2.*zL/3.)**1.5 |
./pkg/cheapaml/cheapaml_coare3_flux.F |
65 |
CHEAPAML_COARE3_FLUX |
_RL psiu,psit,zot10,Ct10,CC,Ribu |