/[lmdze]/trunk/phylmd/nuage.f
ViewVC logotype

Diff of /trunk/phylmd/nuage.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 38 by guez, Thu Jan 6 17:52:19 2011 UTC
# Line 10  Line 10 
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
# Line 40  c======================================= Line 40  c=======================================
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)
# Line 231  C Line 231  C
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
# Line 244  c Line 244  c
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)
# Line 315  c Line 315  c
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
# Line 324  c Line 324  c
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
Legend:
Removed from v.3  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.21