Changeset 1033 for LMDZ4/trunk/libf

Timestamp:

Oct 24, 2008, 5:41:48 PM (16 years ago)

Author:

lmdzadmin

Message:

Correction bug declaration convection
JYG/IM

File:

• LMDZ4/trunk/libf/phylmd/cv3_routines.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/cv3_routines.F

@@ -2284 +2284 @@
       real ment(nloc,na,na), qent(nloc,na,na), uent(nloc,na,na)
       real hent(nloc,na,na)
-      real vent(nloc,na,na), nent(nloc,na), elij(nloc,na,na)
+cIM bug   real vent(nloc,na,na), nent(nloc,na), elij(nloc,na,na)
+      real vent(nloc,na,na), elij(nloc,na,na)
+      integer nent(nloc,nd)
       real traent(nloc,na,na,ntra)
       real tv(nloc,nd), tvp(nloc,nd), wghti(nloc,nd)