Changeset 990

Timestamp:

Aug 5, 2008, 5:15:02 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Correction probleme de dimension sur une variable passee a un sous-programme
JYG
LF

File:

• LMDZ4/trunk/libf/phylmd/calwake.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/calwake.F

@@ -70 +70 @@
       REAL aire
       REAL p(klon,klev),ph(klon,klev+1),pi(klon,klev)
-      REAL te(klon,klev),qe(klon,klev),omgbe(klon,klev)
+      REAL te(klon,klev),qe(klon,klev),omgbe(klon,klev+1)
       REAL dtdwn(klon,klev),dqdwn(klon,klev)
       REAL dta(klon,klev),dqa(klon,klev)
@@ -94 +94 @@
       RDCP=1./3.5
 
+
 c-----------------------------------------------------------
 cIM 290108     DO 999 i=1,klon   ! a vectoriser
@@ -119 +120 @@
       ENDDO
       ENDDO
+
+      omgbe(:,klev+1) = 0.
       
       DO i=1,klon