/[lmdze]/trunk/Sources/dyn3d/caldyn.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/caldyn.f

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 60  c   ------ Line 60  c   ------
60        REAL bern(ip1jmp1,llm)        REAL bern(ip1jmp1,llm)
61        REAL massebxy(ip1jm,llm)        REAL massebxy(ip1jm,llm)
62            
   
63        INTEGER   ij,l        INTEGER   ij,l
64    
65  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
# Line 96  c   -------------------------------- Line 95  c   --------------------------------
95        ENDDO        ENDDO
96    
97    
98        CALL advect( ang, vcov, teta, w, massebx, masseby, du, dv,dteta )        CALL advect( ang, vcov, teta, w, massebx, masseby, du, dv,dteta,
99         $     conser )
100    
101  C  WARNING probleme de peridocite de dv sur les PC/linux. Pb d'arrondi  C  WARNING probleme de peridocite de dv sur les PC/linux. Pb d'arrondi
102  C          probablement. Observe sur le code compile avec pgf90 3.0-1  C          probablement. Observe sur le code compile avec pgf90 3.0-1
Legend:
Removed from v.3  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21