/[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.1 by jmc, Sun Dec 14 23:18:49 2003 UTC revision 1.2 by jmc, Mon Dec 15 02:07:29 2003 UTC
# Line 115  C SPK 4/9/01: Open boundary checkpointin Line 115  C SPK 4/9/01: Open boundary checkpointin
115          ENDIF          ENDIF
116  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
117    
118    #ifdef  COMPONENT_MODULE
119            IF (useCoupler) THEN
120              CALL CPL_WRITE_PICKUP(
121         &               prec, lgf, permCheckPoint, myIter, myThid)
122            ENDIF
123    #endif  /* COMPONENT_MODULE */
124    
125  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
126  C--     Write restart file for floats  C--     Write restart file for floats
127          IF (useFLT) THEN          IF (useFLT) THEN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22