/[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.2 by adcroft, Wed Jun 21 19:02:52 2000 UTC revision 1.3 by heimbach, Mon Sep 11 23:05:56 2000 UTC
# Line 38  C     an input file called data. Line 38  C     an input file called data.
38        CALL INI_PARMS( myThid )        CALL INI_PARMS( myThid )
39        _BARRIER        _BARRIER
40    
 C--   Configure packages  
       CALL PACKAGE_INIT( myThid )  
   
41  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
42  C--   Open boundaries positions  C--   Open boundaries positions
43        CALL INI_OBCS( myThid )        CALL INI_OBCS( myThid )
# Line 61  C     Volumes and areas are set accordin Line 58  C     Volumes and areas are set accordin
58        CALL INI_MASKS_ETC( myThid )        CALL INI_MASKS_ETC( myThid )
59        _BARRIER        _BARRIER
60    
61    C--   Set coriolis operators
62          CALL INI_CORI( myThid )
63    
64  #ifdef INCLUDE_LAT_CIRC_FFT_FILTER_CODE  #ifdef INCLUDE_LAT_CIRC_FFT_FILTER_CODE
65  C--   Latitude circle filter initialisation  C--   Latitude circle filter initialisation
66        CALL FILTER_LATCIRC_FFT_INIT(myThid)        CALL FILTER_LATCIRC_FFT_INIT(myThid)
67        _BARRIER        _BARRIER
68  #endif  #endif
69    
 C--   Set coriolis operators  
       CALL INI_CORI( myThid )  
   
70  C--   Set laplace operators for use in 2D conjugate gradient solver.  C--   Set laplace operators for use in 2D conjugate gradient solver.
71        CALL INI_CG2D( myThid )        CALL INI_CG2D( myThid )
72    
# Line 78  C--   Set laplace operators for use in 3 Line 75  C--   Set laplace operators for use in 3
75        CALL INI_CG3D( myThid )        CALL INI_CG3D( myThid )
76  #endif  #endif
77    
78  C--   Finally summarise the model cofiguration  C--   Configure packages
79        CALL CONFIG_SUMMARY( myThid )        CALL PACKAGES_BOOT( myThid )
80    
81    C--   Read configuration parameters for packages
82          CALL PACKAGES_READPARMS( myThid )
83    
84  C--   Check dependances between packages  C--   Check dependances between packages
85        CALL PACKAGE_CHECK( myThid )        CALL PACKAGES_CHECK( myThid )
86    
87    C--   Finally summarise the model cofiguration
88          CALL CONFIG_SUMMARY( myThid )
89    
90        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22