| 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 |
248 |
CHEAPAML_COARE3_FLUX |
& * 17.502 _d 0 * 240.97 _d 0 / (240.97 _d 0+tsw)**2 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
64 |
CHEAPAML_COARE3_FLUX |
_RL u,q,Tas,tta,zi,es,qs,tsw |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
79 |
CHEAPAML_COARE3_FLUX |
tsw = tSurf(i,j) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
83 |
CHEAPAML_COARE3_FLUX |
Rnl = 0.96 _d 0*(stefan*(tsw+celsius2K)**4) !Net longwave (up = +). |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
87 |
CHEAPAML_COARE3_FLUX |
& *EXP( 17.502 _d 0*tsw/(240.97 _d 0+tsw) ) |