53 |
integer NTRAC |
integer NTRAC |
54 |
PARAMETER (NTRAC=nqmx-2) |
PARAMETER (NTRAC=nqmx-2) |
55 |
c |
c |
56 |
INTEGER iflag_con |
INTEGER, intent(in):: iflag_con |
57 |
c |
c |
58 |
REAL dtime |
REAL, intent(in):: dtime |
59 |
real, intent(in):: paprs(klon,klev+1) |
real, intent(in):: paprs(klon,klev+1) |
60 |
real pplay(klon,klev) |
real, intent(in):: pplay(klon,klev) |
61 |
REAL t(klon,klev),q(klon,klev),u(klon,klev),v(klon,klev) |
REAL t(klon,klev),q(klon,klev),u(klon,klev),v(klon,klev) |
62 |
REAL tra(klon,klev,ntrac) |
REAL tra(klon,klev,ntrac) |
63 |
INTEGER ntra |
INTEGER ntra |