13 |
! ----------------------------------------------------------------- |
! ----------------------------------------------------------------- |
14 |
LOGICAL llo1 |
LOGICAL llo1 |
15 |
! |
! |
16 |
REAL pten(klon,klev), paph(klon,klev+1) |
REAL, intent(in):: pten(klon,klev), paph(klon,klev+1) |
17 |
REAL pmfus(klon,klev), pmfuq(klon,klev), pmful(klon,klev) |
REAL pmfus(klon,klev), pmfuq(klon,klev), pmful(klon,klev) |
18 |
REAL pmfds(klon,klev), pmfdq(klon,klev) |
REAL pmfds(klon,klev), pmfdq(klon,klev) |
19 |
REAL pdmfup(klon,klev) |
REAL pdmfup(klon,klev) |