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

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

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

revision 1.21 by jmc, Fri Mar 17 04:24:34 2006 UTC revision 1.23 by jmc, Sun May 17 20:15:22 2009 UTC
# Line 39  C     Set model variables to initial/res Line 39  C     Set model variables to initial/res
39  #endif  #endif
40          IF (nonHydrostatic) CALL INI_PNH( myThid )          IF (nonHydrostatic) CALL INI_PNH( myThid )
41        ELSEIF ( .NOT.useOffLine ) THEN        ELSEIF ( .NOT.useOffLine ) THEN
42  c       IF ( nIter0 .EQ. 0 ) THEN          CALL READ_PICKUP( nIter0, myThid )
 c         nIter0 = INT(startTime/deltaTClock )  
 c       ENDIF  
         CALL READ_CHECKPOINT( nIter0, myThid )  
43    
44  CEH3        IF (pickup_write_immed) THEN  c       IF (pickup_write_immed) THEN
45  CEH3          CALL WRITE_CHECKPOINT(  c         CALL WRITE_PICKUP(
46  CEH3     &         .TRUE., myCurrentTime, myCurrentIter, myThid)  c    I                       .TRUE., startTime, nIter0, myThid )
47  CEH3        ENDIF  c       ENDIF
48    
49        ENDIF        ENDIF
50    
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22