/[lmdze]/trunk/libf/phylmd/conema3.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/conema3.f90

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

revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC revision 17 by guez, Tue Aug 5 13:31:32 2008 UTC
# Line 62  c Line 62  c
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
# Line 72  c Line 72  c
72        REAL, intent(in):: paprs(klon,klev+1)        REAL, intent(in):: paprs(klon,klev+1)
73        real, intent(in):: pplay(klon,klev)        real, intent(in):: pplay(klon,klev)
74        REAL t(klon,klev), q(klon,klev), d_t(klon,klev), d_q(klon,klev)        REAL t(klon,klev), q(klon,klev), d_t(klon,klev), d_q(klon,klev)
75        REAL u(klon,klev), v(klon,klev), tra(klon,klev,ntra)        REAL u(klon,klev), v(klon,klev)
76          real, intent(in):: tra(klon,klev,ntra)
77        REAL d_u(klon,klev), d_v(klon,klev), d_tra(klon,klev,ntra)        REAL d_u(klon,klev), d_v(klon,klev), d_tra(klon,klev,ntra)
78        REAL work1(klon,klev), work2(klon,klev)        REAL work1(klon,klev), work2(klon,klev)
79        REAL upwd(klon,klev), dnwd(klon,klev), dnwdbis(klon,klev)        REAL upwd(klon,klev), dnwd(klon,klev), dnwdbis(klon,klev)
# Line 249  c       CALL cv_thermo(iflagcon) Line 250  c       CALL cv_thermo(iflagcon)
250    
251  c -- appel schema de nuages:  c -- appel schema de nuages:
252    
 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)  
   
253          do k = 1, klev          do k = 1, klev
254           cldf(i,k)  = em_cldf(k)  ! cloud fraction (0-1)           cldf(i,k)  = em_cldf(k)  ! cloud fraction (0-1)
255           cldq(i,k)  = em_cldq(k)  ! in-cloud water content (kg/kg)           cldq(i,k)  = em_cldq(k)  ! in-cloud water content (kg/kg)
Legend:
Removed from v.10  
changed lines
  Added in v.17
  ViewVC Help
Powered by ViewVC 1.1.21