12 |
USE cv3_param_m, ONLY: nl |
USE cv3_param_m, ONLY: nl |
13 |
use dimphy, only: klon, klev |
use dimphy, only: klon, klev |
14 |
|
|
|
! inputs: |
|
15 |
integer, intent(in):: idcum(:) ! (ncum) |
integer, intent(in):: idcum(:) ! (ncum) |
16 |
integer, intent(in):: iflag(klon) |
integer, intent(in):: iflag(klon) |
17 |
real, intent(in):: precip(klon) |
real, intent(in):: precip(klon) |
39 |
real, intent(inout):: da1(klon, klev), phi1(klon, klev, klev) |
real, intent(inout):: da1(klon, klev), phi1(klon, klev, klev) |
40 |
real, intent(inout):: mp1(klon, klev) |
real, intent(inout):: mp1(klon, klev) |
41 |
|
|
42 |
! local variables: |
! Local: |
43 |
integer ncum, i, k, j |
integer ncum, i, k, j |
44 |
|
|
45 |
!------------------------------------------------------------------- |
!------------------------------------------------------------------- |