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

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

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

revision 1.7 by jmc, Wed Feb 14 22:51:27 2001 UTC revision 1.8 by jmc, Fri Feb 23 00:30:03 2001 UTC
# Line 41  C     stored files. Line 41  C     stored files.
41        CALL INI_FIELDS( myThid )        CALL INI_FIELDS( myThid )
42        _BARRIER        _BARRIER
43    
44    C-- IMPORTANT : Need to activate the following call to restart from
45    C     a pickup file written by MITgcmUV_checkpoint34 or earlier.
46    C     IF ( startTime .NE. 0. ) THEN
47    C       CALL THE_CORRECTION_STEP(startTime, nIter0, myThid)
48    C     ENDIF
49    
50  C--   Initial conditions are convectively adjusted (for historical reasons)  C--   Initial conditions are convectively adjusted (for historical reasons)
51        IF ( startTime .EQ. 0. ) THEN        IF ( startTime .EQ. 0. ) THEN
52          DO bj = myByLo(myThid), myByHi(myThid)          DO bj = myByLo(myThid), myByHi(myThid)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22