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) |
33 |
REAL, intent(in):: paprs(klon,klev+1) |
REAL, intent(in):: paprs(klon,klev+1) |
34 |
real pplay(klon,klev), delp(klon,klev) |
real, intent(in):: pplay(klon,klev) |
35 |
|
real delp(klon,klev) |
36 |
REAL d_tr(klon,klev) |
REAL d_tr(klon,klev) |
37 |
REAL flux(klon), cdrag(klon), tr0(klon) |
REAL flux(klon), cdrag(klon), tr0(klon) |
38 |
c REAL flux_tr(klon,klev) |
c REAL flux_tr(klon,klev) |