/[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.27 by jmc, Fri Oct 19 14:36:47 2007 UTC revision 1.28 by dimitri, Sat Dec 22 23:58:45 2007 UTC
# Line 78  C     Write restart file for 2nd-Order m Line 78  C     Write restart file for 2nd-Order m
78    
79  #ifdef  ALLOW_OBCS  #ifdef  ALLOW_OBCS
80  C     SPK 4/9/01: Open boundary checkpointing  C     SPK 4/9/01: Open boundary checkpointing
81        IF (useOBCS) THEN  c      IF (useOBCS) THEN
82          CALL OBCS_WRITE_CHECKPOINT(  c        CALL OBCS_WRITE_CHECKPOINT(
83       &       prec, lgf, permPickup, myIter, myThid)  c     &       prec, lgf, permPickup, myIter, myThid)
84        ENDIF  c      ENDIF
85  #endif  /* ALLOW_OBCS */  #endif  /* ALLOW_OBCS */
86    
87  #ifdef  ALLOW_SEAICE  #ifdef  ALLOW_SEAICE
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22