Changeset 596 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/vlspltqs.F

Timestamp:

Feb 24, 2005, 1:20:20 PM (19 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

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/vlspltqs.F (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/vlspltqs.F

@@ -94 +94 @@
 
 c      PRINT*,'Debut vlsplt version debug sans vlyqs'
+c       PRINT*,'QSAT'
 
         zzpbar = 0.5 * pdt
@@ -387 +388 @@
       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