4 |
use dimens_m |
use dimens_m |
5 |
use dimphy |
use dimphy |
6 |
use iniprint |
use iniprint |
7 |
use YOMCST |
use SUPHEC_M |
8 |
IMPLICIT none |
IMPLICIT none |
9 |
c====================================================================== |
c====================================================================== |
10 |
c Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818 |
c Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818 |
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) |