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

LMDZ4/trunk/libf/phylmd/cva_driver.F

@@ -151 +151 @@
       real Ma1(len,nd)
       real mip1(len,nd)
-      real Vprecip1(len,nd)
+!      real Vprecip1(len,nd) Correction abderr le 23 03 10
+      real Vprecip1(len,nd+1)
       real upwd1(len,nd)
       real dnwd1(len,nd)
@@ -404 +405 @@
       real tps(nloc,klev), qprime(nloc), tprime(nloc)
       real precip(nloc)
-      real Vprecip(nloc,klev)
+!      real Vprecip(nloc,klev)
+      real Vprecip(nloc,klev+1)
       real tra(nloc,klev,ntra), trap(nloc,klev,ntra)
       real ftra(nloc,klev,ntra), traent(nloc,klev,klev,ntra)
@@ -488 +490 @@
       call  zilch(Ma1     ,nword2)
       call  zilch(mip1    ,nword2)
-      call  zilch(Vprecip1,nword2)
+!      call  zilch(Vprecip1,nword2)
+      Vprecip1=0.
       call  zilch(upwd1   ,nword2)
       call  zilch(dnwd1   ,nword2)