22 |
USE dimphy, ONLY: klev, klon |
USE dimphy, ONLY: klev, klon |
23 |
|
|
24 |
integer, intent(in):: icb1(klon) |
integer, intent(in):: icb1(klon) |
25 |
|
! first level above LCL, 2 <= icb1 <= nl - 2 |
26 |
|
|
27 |
real, intent(in):: plcl1(klon), p1(klon, klev) |
real, intent(in):: plcl1(klon), p1(klon, klev) |
28 |
real, intent(in):: th1(klon, klev), tv1(klon, klev), tvp1(klon, klev) |
real, intent(in):: th1(:, :) ! (klon, nl) |
29 |
|
real, intent(in):: tv1(klon, klev), tvp1(klon, klev) |
30 |
|
|
31 |
real, intent(out):: pbase1(klon), buoybase1(klon) |
real, intent(out):: pbase1(klon), buoybase1(klon) |
32 |
|
|