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

Timestamp:

Feb 24, 2005, 3:59:35 PM (20 years ago)

Author:

Laurent Fairhead

Message:

Ne passe pas en parallele YM
LF

File:

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

LMDZ4/trunk/libf/phylmd/cv3_routines.F

@@ -1195 +1195 @@
 c=====================================================================
 c
-      do i=1,ncum*nlp
-       hp(i,1)=h(i,1)
+cym      do i=1,ncum*nlp
+cym       hp(i,1)=h(i,1)
+cym      enddo
+
+      do k=1,nlp
+        do i=1,ncum
+          hp(i,k)=h(i,k)
+        enddo
       enddo
 
@@ -2180 +2186 @@
       real water(nloc,na), evap(nloc,na), b(nloc,na)
       real ment(nloc,na,na), qent(nloc,na,na), uent(nloc,na,na)
-      real vent(nloc,na,na), nent(nloc,na), elij(nloc,na,na)
+cym      real vent(nloc,na,na), nent(nloc,na), elij(nloc,na,na)
+      real vent(nloc,na,na), elij(nloc,na,na)
+      integer nent(nloc,na)
       real traent(nloc,na,na,ntra)
       real tv(nloc,nd), tvp(nloc,nd)