Changeset 1334 for LMDZ4/trunk/libf/phylmd/cv3_routines.F

Timestamp:

Mar 31, 2010, 2:54:07 PM (14 years ago)

Author:

idelkadi

Message:

• Rajout de champs de sorties
• Correction dans la partie convection (nouvelle physique)

File:

• LMDZ4/trunk/libf/phylmd/cv3_routines.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/cv3_routines.F

@@ -2319 +2319 @@
       real upwd(nloc,nd), dnwd(nloc,nd), ma(nloc,nd)
       real dnwd0(nloc,nd), mip(nloc,nd)
-      real Vprecip(nloc,nd)
+      real Vprecip(nloc,nd+1)
       real tls(nloc,nd), tps(nloc,nd)
       real qcondc(nloc,nd)                               ! cld
@@ -2355 +2355 @@
       do il=1,ncum
        precip(il)=0.0
-c       Vprecip(il,nd+1)=0.0
+       Vprecip(il,nd+1)=0.0
        wd(il)=0.0     ! gust
       enddo