Parent Directory | Revision Log | Revision Graph | Patch
revision 1.22 by jmc, Thu Aug 24 01:15:45 2006 UTC | revision 1.23 by jmc, Sun May 17 20:15:22 2009 UTC | |
---|---|---|
# | Line 41 C Set model variables to initial/res | Line 41 C Set model variables to initial/res |
41 | ELSEIF ( .NOT.useOffLine ) THEN | ELSEIF ( .NOT.useOffLine ) THEN |
42 | CALL READ_PICKUP( nIter0, myThid ) | CALL READ_PICKUP( 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |