5 |
s d_tr) |
s d_tr) |
6 |
use dimens_m |
use dimens_m |
7 |
use dimphy |
use dimphy |
8 |
use YOMCST |
use SUPHEC_M |
9 |
IMPLICIT none |
IMPLICIT none |
10 |
c====================================================================== |
c====================================================================== |
11 |
c Auteur(s): O. Boucher (LOA/LMD) date: 19961127 |
c Auteur(s): O. Boucher (LOA/LMD) date: 19961127 |
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) |