| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
126 |
CHEAPAML_COARE3_FLUX |
Dt=tsw-Tas-gamma_blk*zt !potential temperature difference. |
|
./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 |
165 |
CHEAPAML_COARE3_FLUX |
tsr=-(Dt)*xkar/(LOG(zt/zot10)-psit(zt/L10)) |
|
./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 |
66 |
CHEAPAML_COARE3_FLUX |
_RL Du,Wg,Dt,Dq,u10,zo10,Cd10,Ch10 |