62 |
INTEGER ntra,ntrac !number of tracers; if no tracer transport |
INTEGER ntra,ntrac !number of tracers; if no tracer transport |
63 |
! is needed, set ntra = 1 (or 0) |
! is needed, set ntra = 1 (or 0) |
64 |
PARAMETER (ntrac=nqmx-2) |
PARAMETER (ntrac=nqmx-2) |
65 |
REAL dtime |
REAL, intent(in):: dtime |
66 |
c |
c |
67 |
REAL d_t2(klon,klev), d_q2(klon,klev) ! sbl |
REAL d_t2(klon,klev), d_q2(klon,klev) ! sbl |
68 |
REAL d_u2(klon,klev), d_v2(klon,klev) ! sbl |
REAL d_u2(klon,klev), d_v2(klon,klev) ! sbl |
249 |
|
|
250 |
c -- appel schema de nuages: |
c -- appel schema de nuages: |
251 |
|
|
|
c CALL CLOUDS_SUB_LS(klev,em_q,em_qs,em_t |
|
|
c i ,em_p,em_ph,dtime,em_qcondc |
|
|
c o ,em_cldf,em_cldq,em_pradj,em_ftadj,em_fradj,em_ifc) |
|
|
|
|
252 |
do k = 1, klev |
do k = 1, klev |
253 |
cldf(i,k) = em_cldf(k) ! cloud fraction (0-1) |
cldf(i,k) = em_cldf(k) ! cloud fraction (0-1) |
254 |
cldq(i,k) = em_cldq(k) ! in-cloud water content (kg/kg) |
cldq(i,k) = em_cldq(k) ! in-cloud water content (kg/kg) |