Changeset 1334 for LMDZ4/trunk/libf/phylmd/cv3a_uncompress.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/cv3a_uncompress.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/cv3a_uncompress.F

@@ -39 +39 @@
       real ft(nloc,nd), fq(nloc,nd), fu(nloc,nd), fv(nloc,nd)
       real ftra(nloc,nd,ntra)
-      real Ma(nloc,nd),mip(nloc,nd),Vprecip(nloc,nd)
+      real Ma(nloc,nd),mip(nloc,nd),Vprecip(nloc,nd+1)
       real upwd(nloc,nd),dnwd(nloc,nd),dnwd0(nloc,nd)
       real qcondc(nloc,nd)
@@ -55 +55 @@
       real ft1(len,nd), fq1(len,nd), fu1(len,nd), fv1(len,nd)
       real ftra1(len,nd,ntra)
-      real Ma1(len,nd),mip1(len,nd),Vprecip1(len,nd)
+      real Ma1(len,nd),mip1(len,nd),Vprecip1(len,nd+1)
       real upwd1(len,nd),dnwd1(len,nd),dnwd01(len,nd)
       real qcondc1(len,nd)