/[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.37 by jmc, Tue Sep 1 19:42:39 2009 UTC revision 1.38 by jmc, Thu Oct 1 21:28:09 2009 UTC
# Line 71  C     Write restart file for 2nd-Order m Line 71  C     Write restart file for 2nd-Order m
71  #endif /* ALLOW_CD_CODE */  #endif /* ALLOW_CD_CODE */
72    
73  #ifdef  ALLOW_OBCS  #ifdef  ALLOW_OBCS
74  C     SPK 4/9/01: Open boundary checkpointing        IF (useOBCS) THEN
75  c      IF (useOBCS) THEN          CALL OBCS_WRITE_PICKUP(
76  c        CALL OBCS_WRITE_PICKUP(       &                  suffix, myTime, myIter, myThid )
77  c     &                  suffix, myTime, myIter, myThid )        ENDIF
 c      ENDIF  
78  #endif  /* ALLOW_OBCS */  #endif  /* ALLOW_OBCS */
79    
80  #ifdef  ALLOW_SEAICE  #ifdef  ALLOW_SEAICE
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22