/[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.28 by dimitri, Sat Dec 22 23:58:45 2007 UTC revision 1.29 by jmc, Sun Jan 27 20:55:43 2008 UTC
# Line 152  C     Write restart file for passive tra Line 152  C     Write restart file for passive tra
152        ENDIF        ENDIF
153  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
154    
155    #ifdef ALLOW_MYPACKAGE
156          IF (useMYPACKAGE) THEN
157            CALL MYPACKAGE_WRITE_PICKUP( permPickup,
158         &                      suffix, myIter, myTime, myThid )
159          ENDIF
160    #endif /* ALLOW_MYPACKAGE */
161    
162  C--   Every one else must wait until writing is done.  C--   Every one else must wait until writing is done.
163        _BARRIER        _BARRIER
164    
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22