/[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.34 by jmc, Tue Aug 5 22:02:23 2008 UTC revision 1.35 by jmc, Sun Jan 4 01:00:19 2009 UTC
# Line 108  c      ENDIF Line 108  c      ENDIF
108  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
109  C     Write restart file for floats  C     Write restart file for floats
110        IF (useFLT) THEN        IF (useFLT) THEN
111          CALL FLT_RESTART(myTime, myIter, myThid)          CALL FLT_WRITE_PICKUP(
112         &                  suffix, myTime, myIter, myThid )
113        ENDIF        ENDIF
114  #endif  #endif
115    
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
  ViewVC Help
Powered by ViewVC 1.1.22