/[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.36 by edhill, Wed Oct 13 04:37:37 2004 UTC revision 1.37 by edhill, Thu Oct 14 13:44:54 2004 UTC
# Line 27  C     \ev Line 27  C     \ev
27  C     !CALLING SEQUENCE:  C     !CALLING SEQUENCE:
28  C     INITIALISE_FIXED  C     INITIALISE_FIXED
29  C      |  C      |
30    C      |-- PACKAGES_BOOT
31    C      |
32    C      |-- PACKAGES_READPARMS
33    C      |
34  C      |-- INI_PARMS  C      |-- INI_PARMS
35  C      |  C      |
36  C      |-- MNC_INIT + MNC_CW_INIT  C      |-- MNC_INIT + MNC_CW_INIT
# Line 41  C      |-- INI_DEPTHS Line 45  C      |-- INI_DEPTHS
45  C      |  C      |
46  C      |-- INI_MASKS_ETC  C      |-- INI_MASKS_ETC
47  C      |  C      |
 C      |-- PACKAGES_BOOT  
 C      |  
 C      |-- PACKAGES_READPARMS  
 C      |  
48  C      |-- PACKAGES_INIT_FIXED  C      |-- PACKAGES_INIT_FIXED
49  C      |  C      |
50  C      |-- PACKAGES_CHECK  C      |-- PACKAGES_CHECK
# Line 71  C     == Global variables == Line 71  C     == Global variables ==
71  #include "SIZE.h"  #include "SIZE.h"
72  #include "EEPARAMS.h"  #include "EEPARAMS.h"
73  #include "PARAMS.h"  #include "PARAMS.h"
 #ifdef ALLOW_MNC  
 #include "MNC_PARAMS.h"  
 #endif  
74    
75  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
76  C     == Routine arguments ==  C     == Routine arguments ==
# Line 86  C     an input file called data. Line 83  C     an input file called data.
83        CALL INI_PARMS( myThid )        CALL INI_PARMS( myThid )
84        _BARRIER        _BARRIER
85    
86  #ifdef ALLOW_MNC  C--   Configure packages
87  C     Initialize MNC look-up tables        CALL PACKAGES_BOOT( myThid )
88        IF (useMNC) THEN  
89          CALL MNC_INIT(myThid)  C--   Read configuration parameters for packages
90          CALL MNC_CW_INIT(sNx,sNy,OLx,OLy,nSx,nSy,nPx,nPy,        CALL PACKAGES_READPARMS( myThid )
      &       Nr,myThid)  
         IF ( mnc_echo_gvtypes ) THEN  
           CALL MNC_CW_DUMP( myThid )  
         ENDIF  
       ENDIF  
 #endif  
91    
92  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
93  C--   Initialise MONITOR I/O streams so we can report config. info  C--   Initialise MONITOR I/O streams so we can report config. info
# Line 122  C     Volumes and areas are set accordin Line 113  C     Volumes and areas are set accordin
113        CALL INI_MASKS_ETC( myThid )        CALL INI_MASKS_ETC( myThid )
114        _BARRIER        _BARRIER
115    
 C--   Configure packages  
       CALL PACKAGES_BOOT( myThid )  
   
 C--   Read configuration parameters for packages  
       CALL PACKAGES_READPARMS( myThid )  
   
116  C--   Call fixed data initialization phase of packages  C--   Call fixed data initialization phase of packages
117        CALL PACKAGES_INIT_FIXED( myThid )        CALL PACKAGES_INIT_FIXED( myThid )
118    
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22