print *,'dadv, k, dp_deltomg(i,k), (deltomg(i,k)-deltomg(i,k+1))/(ph(i,k)-ph(i,k+1)) ', & k, dp_deltomg(i,k), (deltomg(i,k)-deltomg(i,k+1))/(ph(i,k)-ph(i,k+1))
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | klon | |||
| integer, | intent(in) | :: | klev | |||
| real, | intent(in) | :: | dtime | |||
| real, | intent(in), | DIMENSION (klon, klev+1) | :: | ph | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | ppi | ||
| logical, | intent(in), | DIMENSION (klon) | :: | wk_adv | ||
| integer, | intent(in), | DIMENSION (klon) | :: | kupper | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | deltomg | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | dp_deltomg | ||
| real, | intent(in), | DIMENSION (klon) | :: | sigmaw | ||
| real, | intent(in), | DIMENSION (klon) | :: | dsigspread | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | thw | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | thx | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | qw | ||
| real, | intent(in), | DIMENSION (klon, klev) | :: | qx | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | d_deltat_dadv | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | d_deltaq_dadv | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | d_tb_dadv | ||
| real, | intent(out), | DIMENSION (klon, klev) | :: | d_qb_dadv |