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

Diff of /trunk/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 23 by guez, Mon Dec 14 15:25:16 2009 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
# Line 117  c   ------------------------------------ Line 117  c   ------------------------------------
117    
118        IF( conser )  THEN        IF( conser )  THEN
119          CALL sortvarc          CALL sortvarc
120       $ ( itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time,vcov )       $ ( itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time)
121    
122        ENDIF        ENDIF
123    
Legend:
Removed from v.3  
changed lines
  Added in v.23
  ViewVC Help
Powered by ViewVC 1.1.21