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

Timestamp:

Jun 12, 2008, 11:38:46 AM (16 years ago)

Author:

Laurent Fairhead

Message:

Corrections petits bugs divers
LF

File:

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

LMDZ4/trunk/libf/phylmd/cv3_routines.F

@@ -2464 +2464 @@
       enddo
 
+! FH WARNING a modifier :
+      cpinv=0.
+
        do j=2,nl
       IF (iflag_mix .gt. 0) then