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

Diff of /trunk/Sources/dyn3d/leapfrog.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 5 by guez, Mon Mar 3 16:32:04 2008 UTC
# Line 332  contains Line 332  contains
332            ENDIF            ENDIF
333    
334            IF (itau == itaufin) THEN            IF (itau == itaufin) THEN
335               CALL dynredem1("restart.nc", 0.0, &               CALL dynredem1("restart.nc", 0., vcov, ucov, teta, q, masse, ps)
                   vcov, ucov, teta, q, nqmx, masse, ps)  
336               CLOSE(99)               CLOSE(99)
337            ENDIF            ENDIF
338    
Legend:
Removed from v.3  
changed lines
  Added in v.5
  ViewVC Help
Powered by ViewVC 1.1.21