| File |
Line number |
Procedure |
Code |
|
./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 |
149 |
CHEAPAML_COARE3_FLUX |
IF (Ribu.LT.0. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
150 |
CHEAPAML_COARE3_FLUX |
zetu=CC*Ribu/(1. _d 0+Ribu/Ribcu) ! Unstable G and F |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
152 |
CHEAPAML_COARE3_FLUX |
zetu=CC*Ribu*(1. _d 0 +27. _d 0/9. _d 0*Ribu/CC) ! Stable |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
65 |
CHEAPAML_COARE3_FLUX |
_RL psiu,psit,zot10,Ct10,CC,Ribu |