/[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.10 by heimbach, Sun Mar 25 22:33:53 2001 UTC revision 1.11 by heimbach, Tue Apr 10 22:35:25 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          IF ( usePickupBeforeC35 ) THEN
45  C-- IMPORTANT : Need to activate the following call to restart from  C-- IMPORTANT : Need to activate the following call to restart from
46  C     a pickup file written by MITgcmUV_checkpoint34 or earlier.  C     a pickup file written by MITgcmUV_checkpoint34 or earlier.
47  C     IF ( startTime .NE. 0. ) THEN        IF ( startTime .NE. 0. ) THEN
48  C       CALL THE_CORRECTION_STEP(startTime, nIter0, myThid)         CALL THE_CORRECTION_STEP(startTime, nIter0, myThid)
49  C     ENDIF        ENDIF
50          ENDIF
51    
52  C--   Initial conditions are convectively adjusted (for historical reasons)  C--   Initial conditions are convectively adjusted (for historical reasons)
 #ifndef ALLOW_AUTODIFF_TAMC  
53        IF ( startTime .EQ. 0. ) THEN        IF ( startTime .EQ. 0. ) THEN
54          DO bj = myByLo(myThid), myByHi(myThid)          DO bj = myByLo(myThid), myByHi(myThid)
55           DO bi = myBxLo(myThid), myBxHi(myThid)           DO bi = myBxLo(myThid), myBxHi(myThid)
# Line 56  C--   Initial conditions are convectivel Line 57  C--   Initial conditions are convectivel
57             iMax=sNx+Olx             iMax=sNx+Olx
58             jMin=1-Oly             jMin=1-Oly
59             jMax=sNy+Oly             jMax=sNy+Oly
60             CALL CONVECTIVE_ADJUSTMENT(             CALL CONVECTIVE_ADJUSTMENT_INI(
61       I       bi, bj, iMin, iMax, jMin, jMax,       I       bi, bj, iMin, iMax, jMin, jMax,
62       I       startTime, nIter0, myThid )       I       startTime, nIter0, myThid )
63           ENDDO           ENDDO
64          ENDDO          ENDDO
65          _BARRIER          _BARRIER
66        END IF        END IF
 #endif  
67    
68  C--   Initialize variable data for packages  C--   Initialize variable data for packages
69        CALL PACKAGES_INIT_VARIABLES( myThid )        CALL PACKAGES_INIT_VARIABLES( myThid )
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22