12 |
use cv_thermo_m, only: cpd, ginv, grav |
use cv_thermo_m, only: cpd, ginv, grav |
13 |
USE dimphy, ONLY: klon, klev |
USE dimphy, ONLY: klon, klev |
14 |
|
|
15 |
! inputs: |
integer, intent(in):: icb(:) ! (ncum) |
16 |
integer, intent(in):: icb(:), inb(:) ! (ncum) |
|
17 |
|
integer, intent(in):: inb(:) ! (ncum) |
18 |
|
! first model level above the level of neutral buoyancy of the |
19 |
|
! parcel (1 <= inb <= nl - 1) |
20 |
|
|
21 |
real, intent(in):: t(:, :), q(:, :), qs(:, :) ! (klon, klev) |
real, intent(in):: t(:, :), q(:, :), qs(:, :) ! (klon, klev) |
22 |
real, intent(in):: gz(:, :) ! (klon, klev) |
real, intent(in):: gz(:, :) ! (klon, klev) |
23 |
real, intent(in):: u(:, :), v(:, :) ! (klon, klev) |
real, intent(in):: u(:, :), v(:, :) ! (klon, klev) |
24 |
real p(klon, klev), ph(klon, klev + 1) |
real, intent(in):: p(klon, klev), ph(klon, klev + 1) |
25 |
real th(klon, klev) |
real, intent(in):: th(klon, klev) |
26 |
real tv(klon, klev) |
real, intent(in):: tv(klon, klev) |
27 |
real lv(klon, klev) |
real, intent(in):: lv(klon, klev) |
28 |
real cpn(klon, klev) |
real, intent(in):: cpn(klon, klev) |
29 |
real, intent(in):: ep(klon, klev), sigp(klon, klev), clw(klon, klev) |
real, intent(in):: ep(:, :), sigp(:, :), clw(:, :) ! (ncum, klev) |
30 |
real m(klon, klev), ment(klon, klev, klev), elij(klon, klev, klev) |
real, intent(in):: m(:, :) ! (ncum, klev) |
31 |
|
real, intent(in):: ment(:, :, :) ! (ncum, klev, klev) |
32 |
|
real, intent(in):: elij(:, :, :) ! (ncum, klev, klev) |
33 |
real, intent(in):: delt |
real, intent(in):: delt |
34 |
real plcl(klon) |
real, intent(in):: plcl(klon) |
35 |
|
|
36 |
! outputs: |
! outputs: |
37 |
real, intent(out):: mp(klon, klev) |
real, intent(out):: mp(klon, klev) |