/[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.7 by jmc, Mon Mar 12 20:44:27 2001 UTC revision 1.8 by heimbach, Mon May 14 21:36:45 2001 UTC
# Line 141  c        CALL MDSREADFIELD(fn,prec,'RL', Line 141  c        CALL MDSREADFIELD(fn,prec,'RL',
141          ENDIF          ENDIF
142  #endif  #endif
143    
144    C SPK 4/9/01: Open boundary checkpointing
145    #ifdef  ALLOW_OBCS
146            IF (useOBCS) THEN
147              CALL OBCS_READ_CHECKPOINT(prec, myIter, myThid)
148            ENDIF
149    #endif  /* ALLOW_OBCS */
150    
151  #endif  #endif
152    
153  C       Reset default IO precision  C       Reset default IO precision
# Line 363  C--     Write model fields Line 370  C--     Write model fields
370  c        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gWnm1,3,myIter,myThid)  c        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gWnm1,3,myIter,myThid)
371          ENDIF          ENDIF
372  #endif  #endif
373    
374    C SPK 4/9/01: Open boundary checkpointing
375    #ifdef  ALLOW_OBCS
376            IF (useOBCS) THEN
377              CALL OBCS_WRITE_CHECKPOINT(
378         &               prec, lgf, permCheckPoint, myIter, myThid)
379            ENDIF
380    #endif  /* ALLOW_OBCS */
381    
382          IF ( .NOT. permCheckPoint ) THEN          IF ( .NOT. permCheckPoint ) THEN
383           nCheckLev = MOD(nCheckLev, maxNoChkptLev)+1           nCheckLev = MOD(nCheckLev, maxNoChkptLev)+1
384          ENDIF          ENDIF
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22