28 |
c flux_v---output-R- (diagnostic) flux du vent: (kg m/s)/(m**2 s) |
c flux_v---output-R- (diagnostic) flux du vent: (kg m/s)/(m**2 s) |
29 |
c====================================================================== |
c====================================================================== |
30 |
INTEGER knon |
INTEGER knon |
31 |
REAL dtime |
REAL, intent(in):: dtime |
32 |
REAL u1lay(klon), v1lay(klon) |
REAL u1lay(klon), v1lay(klon) |
33 |
REAL coef(klon,klev) |
REAL coef(klon,klev) |
34 |
REAL t(klon,klev), ven(klon,klev) |
REAL t(klon,klev), ven(klon,klev) |