141 |
REAL run_off_lic_0(klon), y_run_off_lic_0(klon) |
REAL run_off_lic_0(klon), y_run_off_lic_0(klon) |
142 |
|
|
143 |
REAL flux_u(klon,klev, nbsrf), flux_v(klon,klev, nbsrf) |
REAL flux_u(klon,klev, nbsrf), flux_v(klon,klev, nbsrf) |
144 |
REAL rugmer(klon), agesno(klon,nbsrf),rugoro(klon) |
REAL rugmer(klon), agesno(klon,nbsrf) |
145 |
|
real, intent(in):: rugoro(klon) |
146 |
REAL cdragh(klon), cdragm(klon) |
REAL cdragh(klon), cdragm(klon) |
147 |
integer jour ! jour de l'annee en cours |
integer jour ! jour de l'annee en cours |
148 |
real rmu0(klon) ! cosinus de l'angle solaire zenithal |
real rmu0(klon) ! cosinus de l'angle solaire zenithal |
254 |
LOGICAL first_appel |
LOGICAL first_appel |
255 |
SAVE first_appel |
SAVE first_appel |
256 |
DATA first_appel/.true./ |
DATA first_appel/.true./ |
257 |
LOGICAL debugindex |
LOGICAL:: debugindex = .false. |
|
SAVE debugindex |
|
|
DATA debugindex/.false./ |
|
258 |
integer idayref |
integer idayref |
259 |
REAL t2m(klon,nbsrf), q2m(klon,nbsrf) |
REAL t2m(klon,nbsrf), q2m(klon,nbsrf) |
260 |
REAL u10m(klon,nbsrf), v10m(klon,nbsrf) |
REAL u10m(klon,nbsrf), v10m(klon,nbsrf) |