/[MITgcm]/MITgcm/model/src/checkpoint.F
ViewVC logotype

Diff of /MITgcm/model/src/checkpoint.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.21 by adcroft, Thu Jun 5 16:03:05 2003 UTC revision 1.22 by jmc, Thu Jun 12 18:21:34 2003 UTC
# Line 470  C--     Write restart file for floats Line 470  C--     Write restart file for floats
470          ENDIF          ENDIF
471  #endif  #endif
472    
473    #ifdef ALLOW_LAND
474    C--     Write pickup file for Lnad package:
475            IF (useLand) THEN
476              CALL LAND_WRITE_PICKUP(fn,myTime,myIter,myThid)
477            ENDIF
478    #endif
479    
480          IF ( .NOT. permCheckPoint ) THEN          IF ( .NOT. permCheckPoint ) THEN
481           nCheckLev = MOD(nCheckLev, maxNoChkptLev)+1           nCheckLev = MOD(nCheckLev, maxNoChkptLev)+1
482          ENDIF          ENDIF
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22