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

Diff of /MITgcm/model/src/initialise_fixed.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 adcroft, Fri Feb 2 21:04:48 2001 UTC
# Line 28  C     == Routine arguments == Line 28  C     == Routine arguments ==
28  CEndOfInterface  CEndOfInterface
29    
30  C     == Local variables ==  C     == Local variables ==
 #ifdef ALLOW_OBCS  
       INTEGER bi,bj,K  
 #endif  
31    
32  C--   Set model parameters.  C--   Set model parameters.
33  C     Parameters are set to defaults and then updates are read from  C     Parameters are set to defaults and then updates are read from
# Line 38  C     an input file called data. Line 35  C     an input file called data.
35        CALL INI_PARMS( myThid )        CALL INI_PARMS( myThid )
36        _BARRIER        _BARRIER
37    
 #ifdef ALLOW_OBCS  
 C--   Open boundaries positions  
       CALL INI_OBCS( myThid )  
 #endif  
       _BARRIER  
   
38  C--   Set model grid.  C--   Set model grid.
39  C     Variables defining model grid spacing are defined.  C     Variables defining model grid spacing are defined.
40        CALL INI_GRID( myThid )        CALL INI_GRID( myThid )
# Line 61  C     Volumes and areas are set accordin Line 52  C     Volumes and areas are set accordin
52  C--   Set coriolis operators  C--   Set coriolis operators
53        CALL INI_CORI( myThid )        CALL INI_CORI( myThid )
54    
55  #ifdef INCLUDE_LAT_CIRC_FFT_FILTER_CODE  C--   Configure packages
56          CALL PACKAGES_BOOT( myThid )
57    
58    C--   Read configuration parameters for packages
59          CALL PACKAGES_READPARMS( myThid )
60    
61    C--   Check dependances between packages
62          CALL PACKAGES_CHECK( myThid )
63    
64    C--   Call fixed data initialization phase of packages
65          CALL PACKAGES_INIT_FIXED( myThid )
66    
67    #ifdef ALLOW_ZONAL_FILT
68  C--   Latitude circle filter initialisation  C--   Latitude circle filter initialisation
69        CALL FILTER_LATCIRC_FFT_INIT(myThid)        CALL ZONAL_FILT_INIT(myThid)
70        _BARRIER        _BARRIER
71  #endif  #endif
72    
# Line 75  C--   Set laplace operators for use in 3 Line 78  C--   Set laplace operators for use in 3
78        CALL INI_CG3D( myThid )        CALL INI_CG3D( myThid )
79  #endif  #endif
80    
 C--   Configure packages  
       CALL PACKAGES_BOOT( myThid )  
   
 C--   Read configuration parameters for packages  
       CALL PACKAGES_READPARMS( myThid )  
   
 C--   Check dependances between packages  
       CALL PACKAGES_CHECK( myThid )  
   
81  C--   Finally summarise the model cofiguration  C--   Finally summarise the model cofiguration
82        CALL CONFIG_SUMMARY( myThid )        CALL CONFIG_SUMMARY( myThid )
83    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22