32 |
REAL paprs(klon, klev+1), pplay(klon, klev) |
REAL paprs(klon, klev+1), pplay(klon, klev) |
33 |
REAL t(klon, klev) |
REAL t(klon, klev) |
34 |
|
|
35 |
REAL, intent(out):: pcfm(:, :), pcfh(:, :) ! (knon, klev) |
REAL, intent(out):: pcfm(:, 2:), pcfh(:, 2:) ! (knon, 2:klev) |
36 |
|
|
37 |
! Quelques constantes et options: |
! Quelques constantes et options: |
38 |
|
|
54 |
!---------------------------------------------------------- |
!---------------------------------------------------------- |
55 |
|
|
56 |
! Initialiser les sorties |
! Initialiser les sorties |
57 |
DO k = 1, klev |
DO k = 2, klev |
58 |
DO i = 1, knon |
DO i = 1, knon |
59 |
pcfm(i, k) = 0.0 |
pcfm(i, k) = 0.0 |
60 |
pcfh(i, k) = 0.0 |
pcfh(i, k) = 0.0 |