DATA wdensmin/1.e-12/ wdens_ref=8.E-12 CALL getin_p('wdens_ref',wdens_ref) jyg !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!! Population dynamics parameters !!!!!!!!!!!!!!!!!!!!!!!!!!!! WRITE(,) 'wdens_ref=', wdens_ref jyg wdens(:) = wdens_ref jyg
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in), | DIMENSION (klon) | :: | znatsurf | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | p | ||
| real, | intent(in), | DIMENSION (klon, klev+1) | :: | ph | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | pi | ||
| real, | intent(in) | :: | dtime | |||
| real, | intent(in), | DIMENSION (klon, klev) | :: | te0 | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | qe0 | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | omgb | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | dtdwn | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | dqdwn | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | amdwn | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | amup | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | dta | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | dqa | ||
| real, | intent(in), | DIMENSION (klon) | :: | wgen | ||
| real, | intent(in), | DIMENSION (klon) | :: | sigd_con | ||
| real, | intent(in), | DIMENSION (klon) | :: | Cin | ||
| real, | intent(inout), | DIMENSION (klon, klev) | :: | deltatw | ||
| real, | intent(inout), | DIMENSION (klon, klev) | :: | deltaqw | ||
| real, | intent(inout), | DIMENSION (klon) | :: | sigmaw | ||
| real, | intent(inout), | DIMENSION (klon) | :: | awdens | ||
| real, | intent(inout), | DIMENSION (klon) | :: | wdens | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | dth | ||
| real, | intent(out), | DIMENSION (klon) | :: | hw | ||
| real, | intent(out), | DIMENSION (klon) | :: | wape | ||
| real, | intent(out), | DIMENSION (klon) | :: | fip | ||
| real, | intent(out), | DIMENSION (klon) | :: | gfl | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | dtls | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | dqls | ||
| integer, | intent(out), | DIMENSION (klon) | :: | ktopw | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | omgbdth | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | dp_omgb | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | tu | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | qu | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | dtke | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | dqke | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | omg | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | dp_deltomg | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | spread | ||
| real, | intent(out), | DIMENSION (klon) | :: | cstar | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | d_deltat_gw | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | d_deltatw2 | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | d_deltaqw2 | ||
| real, | intent(out), | DIMENSION (klon) | :: | d_sigmaw2 | ||
| real, | intent(out), | DIMENSION (klon) | :: | d_awdens2 | ||
| real, | intent(out), | DIMENSION (klon) | :: | d_wdens2 |
Condition suffisante pour la positivité de ovap
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | nlon | ||||
| integer | :: | nl | ||||
| logical | :: | wk_adv(nlon) | ||||
| real | :: | epsilon | ||||
| real | :: | qe(nlon,nl) | ||||
| real | :: | d_qe(nlon,nl) | ||||
| real | :: | deltaqw(nlon,nl) | ||||
| real | :: | d_deltaqw(nlon,nl) | ||||
| real | :: | sigmaw(nlon) | ||||
| real | :: | d_sigmaw(nlon) | ||||
| real | :: | alpha(nlon) |