14 |
|
|
15 |
USE indicesol, ONLY: is_oce |
USE indicesol, ONLY: is_oce |
16 |
USE dimphy, ONLY: klev, klon |
USE dimphy, ONLY: klev, klon |
|
USE conf_gcm_m, ONLY: prt_level |
|
17 |
USE suphec_m, ONLY: rcpd, rd, retv, rg, rkappa, rlstt, rlvtt, rtt |
USE suphec_m, ONLY: rcpd, rd, retv, rg, rkappa, rlstt, rlvtt, rtt |
18 |
USE yoethf_m, ONLY: r2es, r5ies, r5les, rvtmp2 |
USE yoethf_m, ONLY: r2es, r5ies, r5les, rvtmp2 |
19 |
USE fcttre, ONLY: dqsatl, dqsats, foede, foeew, qsatl, qsats, thermcep |
USE fcttre, ONLY: dqsatl, dqsats, foede, foeew, qsatl, qsats, thermcep |
73 |
LOGICAL, PARAMETER:: opt_ec = .FALSE. |
LOGICAL, PARAMETER:: opt_ec = .FALSE. |
74 |
! formule du Centre Europeen dans l'atmosphere |
! formule du Centre Europeen dans l'atmosphere |
75 |
|
|
76 |
INTEGER i, k, kk |
INTEGER i, k |
77 |
REAL zgeop(klon, klev) |
REAL zgeop(klon, klev) |
78 |
REAL zmgeom(klon) |
REAL zmgeom(klon) |
79 |
REAL ri(klon) |
REAL ri(klon) |