/[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.3 by heimbach, Mon Sep 11 23:05:56 2000 UTC revision 1.4 by heimbach, Mon Nov 13 16:32:58 2000 UTC
# Line 38  C     stored files. Line 38  C     stored files.
38        CALL INI_FIELDS( myThid )        CALL INI_FIELDS( myThid )
39        _BARRIER        _BARRIER
40    
 C--   Check dependances between packages  
       CALL PACKAGES_INIT( myThid )  
   
41  C--   Initialise time-stepping (predictor variables are carried in G)  C--   Initialise time-stepping (predictor variables are carried in G)
42        IF ( startTime .EQ. 0. ) THEN        IF ( startTime .EQ. 0. ) THEN
43          CALL INI_PREDICTOR( myThid )          CALL INI_PREDICTOR( myThid )
44          _BARRIER          _BARRIER
45        END IF        END IF
46    
47    C--   Check dependances between packages
48          CALL PACKAGES_INIT( myThid )
49    
50  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
51  C--   Calculate values on open boundaries at iter=nIter0  C--   Calculate values on open boundaries at iter=nIter0
52        IF (openBoundaries) THEN        IF (openBoundaries) THEN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22