/[lmdze]/trunk/libf/dyn3d/caldyn.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/caldyn.f90

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

revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC revision 23 by guez, Mon Dec 14 15:25:16 2009 UTC
# Line 95  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 116  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.10  
changed lines
  Added in v.23
  ViewVC Help
Powered by ViewVC 1.1.21