/[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.16 by edhill, Sat Sep 10 18:30:06 2005 UTC revision 1.17 by edhill, Sat Sep 10 20:40:26 2005 UTC
# Line 213  C     Write restart file for floats Line 213  C     Write restart file for floats
213  #endif  #endif
214    
215  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
216  C     Write pickup file for Lnad package:  C     Write pickup file for Land package:
217        IF (useLand) THEN        IF (useLand) THEN
218          CALL LAND_WRITE_PICKUP(fn,myTime,myIter,myThid)          CALL LAND_WRITE_PICKUP(permCheckPoint,fn,
219         &       myTime,myIter,myThid)
220        ENDIF        ENDIF
221  #endif  #endif
222    
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22