/[lmdze]/trunk/dyn3d/ADVN/advnx.f90
ViewVC logotype

Diff of /trunk/dyn3d/ADVN/advnx.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 349 by guez, Mon Dec 23 15:07:24 2019 UTC revision 350 by guez, Mon Dec 23 16:07:24 2019 UTC
# Line 124  SUBROUTINE advnx(q, qg, qd, masse, u_m, Line 124  SUBROUTINE advnx(q, qg, qd, masse, u_m,
124    END DO    END DO
125    
126    IF (n0>1) THEN    IF (n0>1) THEN
     IF (prt_level>9) PRINT *, &  
       'Nombre de points pour lesquels on advect plus que le', &  
       'contenu de la maille : ', n0  
   
127      DO l = 1, llm      DO l = 1, llm
128        IF (nl(l)>0) THEN        IF (nl(l)>0) THEN
129          iju = 0          iju = 0
Legend:
Removed from v.349  
changed lines
  Added in v.350
  ViewVC Help
Powered by ViewVC 1.1.21