/[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.4 by molod, Thu Jan 29 14:17:58 2004 UTC revision 1.5 by jmc, Wed Apr 7 23:45:24 2004 UTC
# Line 117  C SPK 4/9/01: Open boundary checkpointin Line 117  C SPK 4/9/01: Open boundary checkpointin
117    
118  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
119          IF (useThSIce) THEN          IF (useThSIce) THEN
120            CALL THSICE_WRITE_CHECKPOINT(            CALL THSICE_WRITE_PICKUP(
121       &               prec, lgf, permCheckPoint, myIter, myThid)       &               prec, lgf, permCheckPoint, myIter, myThid)
122          ENDIF          ENDIF
123  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22