Changeset 595

Timestamp:

Feb 24, 2005, 1:16:57 PM (20 years ago)

Author:

Laurent Fairhead

Message:

Si il n'y avait qu'un point ou on advectait plus que le contenu de la maille,
il n'etait jamais traite YM
LF

Location:

LMDZ4/trunk/libf/dyn3d

Files:

• vlsplt.F (modified) (1 diff)
• vlspltqs.F (modified) (1 diff)

LMDZ4/trunk/libf/dyn3d/vlsplt.F

@@ -352 +352 @@
       ENDDO
 
-      IF(n0.gt.1) THEN
+      IF(n0.gt.0) THEN
       PRINT*,'Nombre de points pour lesquels on advect plus que le'
      &       ,'contenu de la maille : ',n0

LMDZ4/trunk/libf/dyn3d/vlspltqs.F

@@ -389 +389 @@
       ENDDO
 
-      IF(n0.gt.1) THEN
+      IF(n0.gt.0) THEN
 ccc      PRINT*,'Nombre de points pour lesquels on advect plus que le'
 ccc     &       ,'contenu de la maille : ',n0