20 |
USE dimphy, ONLY: klon, klev |
USE dimphy, ONLY: klon, klev |
21 |
use SUPHEC_M, only: rcw, rlvtt, rcpd, rcpv, rv |
use SUPHEC_M, only: rcw, rlvtt, rcpd, rcpv, rv |
22 |
|
|
23 |
integer, intent(in):: icb(:), icbs(:) ! (ncum) |
integer, intent(in):: icb(:) ! (ncum) {2 <= icb <= nl - 3} |
24 |
|
|
25 |
|
integer, intent(in):: icbs(:) ! (ncum) |
26 |
! icbs is the first level above LCL (may differ from icb) |
! icbs is the first level above LCL (may differ from icb) |
27 |
|
|
28 |
real, intent(in):: tnk(:), qnk(:), gznk(:) ! (klon) |
real, intent(in):: tnk(:), qnk(:), gznk(:) ! (klon) |