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

Diff of /MITgcm/model/src/packages_init_fixed.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.16 by molod, Thu Jan 29 14:10:51 2004 UTC revision 1.20 by edhill, Thu Feb 26 22:31:58 2004 UTC
# Line 47  CEOP Line 47  CEOP
47  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
48        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
49    
50    C--   Initialize MNC look-up tables
51    #ifdef ALLOW_MNC
52    CEH3 NEED RUN-TIME SWITCH:  IF (useOBCS) THEN
53          CALL MNC_INIT(myThid)
54          CALL MNC_CW_INIT(myThid, sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr)
55    
56          CALL INI_MNC_IO(myThid)
57    CEH3 NEED RUN-TIME SWITCH:  ENDIF
58    #endif
59    
60  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
61  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
62        IF (useOBCS) THEN        IF (useOBCS) THEN
# Line 85  C--   Initialise & Read FIZHI physical p Line 95  C--   Initialise & Read FIZHI physical p
95  #endif  #endif
96  C AMM  C AMM
97    
 C AMM  
 #ifdef ALLOW_DIAGNOSTICS  
 C--   Read DIAGNOSTICS namelists and initialise parameters  
       IF (useDIAGNOSTICS) CALL DIAGNOSTICS_INITIALISE( myThid )  
 #endif  
 C AMM  
   
98  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
99  C--   Initialise & Read Land package parameters  C--   Initialise & Read Land package parameters
100        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
# Line 118  C--   Initialise the control variables Line 121  C--   Initialise the control variables
121  #endif  #endif
122  #endif  #endif
123    
124    CAMM
125    #ifdef ALLOW_DIAGNOSTICS
126          IF (usediagnostics) then
127           call diagnostics_initialise(mythid)
128          ENDIF
129    #endif
130    CAMM
131    
132        RETURN        RETURN
133        END        END
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22