13 |
use cv_thermo_m, only: cpd, ginv, grav |
use cv_thermo_m, only: cpd, ginv, grav |
14 |
|
|
15 |
integer, intent(in):: icb(:) ! (ncum) |
integer, intent(in):: icb(:) ! (ncum) |
16 |
|
! {2 <= icb <= nl - 3} |
17 |
|
! {ph(i, icb(i) + 1) < plcl(i) <= ph(i, icb(i))} |
18 |
|
|
19 |
integer, intent(in):: inb(:) ! (ncum) |
integer, intent(in):: inb(:) ! (ncum) |
20 |
! first model level above the level of neutral buoyancy of the |
! first model level above the level of neutral buoyancy of the |
24 |
real, intent(in):: gz(:, :) ! (klon, klev) |
real, intent(in):: gz(:, :) ! (klon, klev) |
25 |
real, intent(in):: u(:, :), v(:, :) ! (klon, klev) |
real, intent(in):: u(:, :), v(:, :) ! (klon, klev) |
26 |
real, intent(in):: p(:, :) ! (klon, klev) pressure at full level, in hPa |
real, intent(in):: p(:, :) ! (klon, klev) pressure at full level, in hPa |
27 |
real, intent(in):: ph(:, :) ! (klon, klev + 1) |
real, intent(in):: ph(:, :) ! (ncum, klev + 1) |
28 |
real, intent(in):: th(:, :) ! (ncum, nl - 1) |
real, intent(in):: th(:, :) ! (ncum, nl - 1) |
29 |
real, intent(in):: tv(:, :) ! (klon, klev) |
real, intent(in):: tv(:, :) ! (klon, klev) |
30 |
real, intent(in):: lv(:, :) ! (klon, klev) |
real, intent(in):: lv(:, :) ! (klon, klev) |
35 |
real, intent(in):: ment(:, :, :) ! (ncum, klev, klev) |
real, intent(in):: ment(:, :, :) ! (ncum, klev, klev) |
36 |
real, intent(in):: elij(:, :, :) ! (ncum, klev, klev) |
real, intent(in):: elij(:, :, :) ! (ncum, klev, klev) |
37 |
real, intent(in):: delt |
real, intent(in):: delt |
38 |
real, intent(in):: plcl(:) ! (klon) |
real, intent(in):: plcl(:) ! (ncum) |
39 |
|
|
40 |
real, intent(out):: mp(:, :) ! (klon, klev) |
real, intent(out):: mp(:, :) ! (klon, klev) |
41 |
real, intent(out):: qp(:, :), up(:, :), vp(:, :) ! (ncum, nl) |
real, intent(out):: qp(:, :), up(:, :), vp(:, :) ! (ncum, nl) |