10 |
s cldtaupi, re, fl) |
s cldtaupi, re, fl) |
11 |
use dimens_m |
use dimens_m |
12 |
use dimphy |
use dimphy |
13 |
use YOMCST |
use SUPHEC_M |
14 |
IMPLICIT none |
IMPLICIT none |
15 |
c====================================================================== |
c====================================================================== |
16 |
c Auteur(s): Z.X. Li (LMD/CNRS) date: 19930910 |
c Auteur(s): Z.X. Li (LMD/CNRS) date: 19930910 |
40 |
C |
C |
41 |
c |
c |
42 |
REAL, intent(in):: paprs(klon,klev+1) |
REAL, intent(in):: paprs(klon,klev+1) |
43 |
real pplay(klon,klev) |
real, intent(in):: pplay(klon,klev) |
44 |
REAL t(klon,klev) |
REAL t(klon,klev) |
45 |
c |
c |
46 |
REAL pclc(klon,klev) |
REAL pclc(klon,klev) |
231 |
. diafra,dialiq) |
. diafra,dialiq) |
232 |
use dimens_m |
use dimens_m |
233 |
use dimphy |
use dimphy |
234 |
use YOMCST |
use SUPHEC_M |
235 |
IMPLICIT none |
IMPLICIT none |
236 |
c |
c |
237 |
c Laurent Li (LMD/CNRS), le 12 octobre 1998 |
c Laurent Li (LMD/CNRS), le 12 octobre 1998 |
244 |
c |
c |
245 |
c Arguments d'entree: |
c Arguments d'entree: |
246 |
REAL, intent(in):: paprs(klon,klev+1) ! pression (Pa) a inter-couche |
REAL, intent(in):: paprs(klon,klev+1) ! pression (Pa) a inter-couche |
247 |
REAL pplay(klon,klev) ! pression (Pa) au milieu de couche |
REAL, intent(in):: pplay(klon,klev) ! pression (Pa) au milieu de couche |
248 |
REAL t(klon,klev) ! temperature (K) |
REAL t(klon,klev) ! temperature (K) |
249 |
REAL q(klon,klev) ! humidite specifique (Kg/Kg) |
REAL q(klon,klev) ! humidite specifique (Kg/Kg) |
250 |
REAL rain(klon) ! pluie convective (kg/m2/s) |
REAL rain(klon) ! pluie convective (kg/m2/s) |
315 |
SUBROUTINE diagcld2(paprs,pplay,t,q, diafra,dialiq) |
SUBROUTINE diagcld2(paprs,pplay,t,q, diafra,dialiq) |
316 |
use dimens_m |
use dimens_m |
317 |
use dimphy |
use dimphy |
318 |
use YOMCST |
use SUPHEC_M |
319 |
use yoethf |
use yoethf_m |
320 |
c Fonctions thermodynamiques: |
c Fonctions thermodynamiques: |
321 |
use fcttre |
use fcttre |
322 |
IMPLICIT none |
IMPLICIT none |
324 |
c |
c |
325 |
c Arguments d'entree: |
c Arguments d'entree: |
326 |
REAL, intent(in):: paprs(klon,klev+1) ! pression (Pa) a inter-couche |
REAL, intent(in):: paprs(klon,klev+1) ! pression (Pa) a inter-couche |
327 |
REAL pplay(klon,klev) ! pression (Pa) au milieu de couche |
REAL, intent(in):: pplay(klon,klev) ! pression (Pa) au milieu de couche |
328 |
REAL t(klon,klev) ! temperature (K) |
REAL t(klon,klev) ! temperature (K) |
329 |
REAL q(klon,klev) ! humidite specifique (Kg/Kg) |
REAL q(klon,klev) ! humidite specifique (Kg/Kg) |
330 |
c |
c |