31 |
! flux_tr--output-R- flux de tr |
! flux_tr--output-R- flux de tr |
32 |
! ====================================================================== |
! ====================================================================== |
33 |
REAL, INTENT (IN) :: dtime |
REAL, INTENT (IN) :: dtime |
34 |
REAL coef(klon, klev) |
REAL coef(:, 2:) ! (klon, 2:klev) |
35 |
REAL, INTENT (IN) :: t(klon, klev) ! temperature (K) |
REAL, INTENT (IN) :: t(klon, klev) ! temperature (K) |
36 |
REAL tr(klon, klev) |
REAL tr(klon, klev) |
37 |
REAL, INTENT (IN) :: paprs(klon, klev+1) |
REAL, INTENT (IN) :: paprs(klon, klev+1) |