/[MITgcm]/MITgcm/model/src/packages_write_pickup.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_write_pickup.F

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

revision 1.15 by edhill, Thu Jun 9 16:38:24 2005 UTC revision 1.16 by edhill, Sat Sep 10 18:30:06 2005 UTC
# Line 248  C     Write pickup file for diagnostics Line 248  C     Write pickup file for diagnostics
248  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
249  C     Write restart file for passive tracers  C     Write restart file for passive tracers
250        IF (usePTRACERS) THEN        IF (usePTRACERS) THEN
251          CALL PTRACERS_WRITE_CHECKPOINT(fn,myIter,myTime,myThid)          CALL PTRACERS_WRITE_CHECKPOINT(permCheckPoint,
252         &       fn,myIter,myTime,myThid)
253        ENDIF        ENDIF
254  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
255    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22