/[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.2 by jmc, Mon Dec 15 02:07:29 2003 UTC revision 1.3 by jmc, Mon Dec 15 18:40:10 2003 UTC
# Line 108  C SPK 4/9/01: Open boundary checkpointin Line 108  C SPK 4/9/01: Open boundary checkpointin
108          ENDIF          ENDIF
109  #endif  /* ALLOW_OBCS */  #endif  /* ALLOW_OBCS */
110    
111    #ifdef  ALLOW_SEAICE
112            IF ( useSEAICE ) THEN
113              CALL SEAICE_WRITE_PICKUP(
114         &               prec, lgf, permCheckPoint, myIter, myThid)
115            ENDIF
116    #endif  /* ALLOW_SEAICE */
117    
118  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
119          IF (useThSIce) THEN          IF (useThSIce) THEN
120            CALL THSICE_WRITE_CHECKPOINT(            CALL THSICE_WRITE_CHECKPOINT(
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22