Parent Directory | Revision Log | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |