72 |
REAL, intent(in):: paprs(klon,klev+1) |
REAL, intent(in):: paprs(klon,klev+1) |
73 |
real, intent(in):: pplay(klon,klev) |
real, intent(in):: pplay(klon,klev) |
74 |
REAL t(klon,klev), q(klon,klev), d_t(klon,klev), d_q(klon,klev) |
REAL t(klon,klev), q(klon,klev), d_t(klon,klev), d_q(klon,klev) |
75 |
REAL u(klon,klev), v(klon,klev), tra(klon,klev,ntra) |
REAL u(klon,klev), v(klon,klev) |
76 |
|
real, intent(in):: tra(klon,klev,ntra) |
77 |
REAL d_u(klon,klev), d_v(klon,klev), d_tra(klon,klev,ntra) |
REAL d_u(klon,klev), d_v(klon,klev), d_tra(klon,klev,ntra) |
78 |
REAL work1(klon,klev), work2(klon,klev) |
REAL work1(klon,klev), work2(klon,klev) |
79 |
REAL upwd(klon,klev), dnwd(klon,klev), dnwdbis(klon,klev) |
REAL upwd(klon,klev), dnwd(klon,klev), dnwdbis(klon,klev) |