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

Timestamp:

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

File:

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

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

@@ -79 +79 @@
       CALL SCOPY(ijp1llm,masse,1,zm,1)
 
-c       print*,'Entree vlx1'
 c       call minmaxq(zq,qmin,qmax,'avant vlx     ')
       call vlx(zq,pente_max,zm,mu)
-C       print*,'Sortie vlx1'
 c       call minmaxq(zq,qmin,qmax,'apres vlx1    ')
 
-C        print*,'Entree vly1'
       call vly(zq,pente_max,zm,mv)
 c       call minmaxq(zq,qmin,qmax,'apres vly1     ')
-C       print*,'Sortie vly1'
       call vlz(zq,pente_max,zm,mw)
 c       call minmaxq(zq,qmin,qmax,'apres vlz     ')
@@ -347 +343 @@
       ENDDO
 
-      IF(n0.gt.1) THEN
+      IF(n0.gt.0) THEN
 c     PRINT*,'Nombre de points pour lesquels on advect plus que le'
 c    &       ,'contenu de la maille : ',n0
@@ -795 +791 @@
       SAVE temps0,temps1,temps2,temps3,temps4,temps5
       REAL      SSUM
-      EXTERNAL  SSUM, convflu
-      EXTERNAL filtreg
+      EXTERNAL  SSUM
 
       DATA testcpu/.false./