| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
124 |
CHEAPAML_COARE3_FLUX |
Du= SQRT(u + Wg**2 ) !include gustiness in wind spd. difference |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
131 |
CHEAPAML_COARE3_FLUX |
u10 = Du*LOG(10. _d 0/zo)/LOG(zu/zo) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
148 |
CHEAPAML_COARE3_FLUX |
Ribu=-gravity*zu*(Dt+0.61 _d 0*tta*Dq)/(tta*Du**2) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
164 |
CHEAPAML_COARE3_FLUX |
usr= Du*xkar/(LOG(zu/zo10)-psiu(zu/L10)) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
169 |
CHEAPAML_COARE3_FLUX |
IF (Du.GT.10. _d 0) charn=0.011 _d 0 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
170 |
CHEAPAML_COARE3_FLUX |
& + (0.018 _d 0-0.011 _d 0)*(Du-10.)/(18.-10.) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
171 |
CHEAPAML_COARE3_FLUX |
IF (Du.GT.18. _d 0) charn=0.018 _d 0 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
214 |
CHEAPAML_COARE3_FLUX |
usr=Du*xkar/(LOG(zu/zo)-psiu(zu/L)) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
223 |
CHEAPAML_COARE3_FLUX |
Du=SQRT(u**2 + Wg**2) !include gustiness in wind spd. |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
232 |
CHEAPAML_COARE3_FLUX |
cdu = tau/Du |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
66 |
CHEAPAML_COARE3_FLUX |
_RL Du,Wg,Dt,Dq,u10,zo10,Cd10,Ch10 |