Changeset 596 for LMDZ.3.3/branches


Ignore:
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

Location:
LMDZ.3.3/branches/rel-LF/libf/dyn3d
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/vlsplt.F

    r462 r596  
    7979      CALL SCOPY(ijp1llm,masse,1,zm,1)
    8080
    81 c       print*,'Entree vlx1'
    8281c       call minmaxq(zq,qmin,qmax,'avant vlx     ')
    8382      call vlx(zq,pente_max,zm,mu)
    84 C       print*,'Sortie vlx1'
    8583c       call minmaxq(zq,qmin,qmax,'apres vlx1    ')
    8684
    87 C        print*,'Entree vly1'
    8885      call vly(zq,pente_max,zm,mv)
    8986c       call minmaxq(zq,qmin,qmax,'apres vly1     ')
    90 C       print*,'Sortie vly1'
    9187      call vlz(zq,pente_max,zm,mw)
    9288c       call minmaxq(zq,qmin,qmax,'apres vlz     ')
     
    347343      ENDDO
    348344
    349       IF(n0.gt.1) THEN
     345      IF(n0.gt.0) THEN
    350346c     PRINT*,'Nombre de points pour lesquels on advect plus que le'
    351347c    &       ,'contenu de la maille : ',n0
     
    795791      SAVE temps0,temps1,temps2,temps3,temps4,temps5
    796792      REAL      SSUM
    797       EXTERNAL  SSUM, convflu
    798       EXTERNAL filtreg
     793      EXTERNAL  SSUM
    799794
    800795      DATA testcpu/.false./
  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/vlspltqs.F

    r99 r596  
    9494
    9595c      PRINT*,'Debut vlsplt version debug sans vlyqs'
     96c       PRINT*,'QSAT'
    9697
    9798        zzpbar = 0.5 * pdt
     
    387388      ENDDO
    388389
    389       IF(n0.gt.1) THEN
     390      IF(n0.gt.0) THEN
    390391ccc      PRINT*,'Nombre de points pour lesquels on advect plus que le'
    391392ccc     &       ,'contenu de la maille : ',n0
Note: See TracChangeset for help on using the changeset viewer.