/[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.9 by jmc, Tue Mar 6 17:19:25 2001 UTC revision 1.10 by heimbach, Sun Mar 25 22:33:53 2001 UTC
# Line 48  C       CALL THE_CORRECTION_STEP(startTi Line 48  C       CALL THE_CORRECTION_STEP(startTi
48  C     ENDIF  C     ENDIF
49    
50  C--   Initial conditions are convectively adjusted (for historical reasons)  C--   Initial conditions are convectively adjusted (for historical reasons)
51    #ifndef ALLOW_AUTODIFF_TAMC
52        IF ( startTime .EQ. 0. ) THEN        IF ( startTime .EQ. 0. ) THEN
53          DO bj = myByLo(myThid), myByHi(myThid)          DO bj = myByLo(myThid), myByHi(myThid)
54           DO bi = myBxLo(myThid), myBxHi(myThid)           DO bi = myBxLo(myThid), myBxHi(myThid)
# Line 62  C--   Initial conditions are convectivel Line 63  C--   Initial conditions are convectivel
63          ENDDO          ENDDO
64          _BARRIER          _BARRIER
65        END IF        END IF
66    #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.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22