26 |
c d_tr-----output-R- le changement de tr |
c d_tr-----output-R- le changement de tr |
27 |
c flux_tr--output-R- flux de tr |
c flux_tr--output-R- flux de tr |
28 |
c====================================================================== |
c====================================================================== |
29 |
REAL dtime |
REAL, intent(in):: dtime |
30 |
REAL coef(klon,klev) |
REAL coef(klon,klev) |
31 |
REAL, intent(in):: t(klon,klev) ! temperature (K) |
REAL, intent(in):: t(klon,klev) ! temperature (K) |
32 |
real tr(klon,klev) |
real tr(klon,klev) |