/[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.34 by jmc, Sun Dec 19 00:14:56 2004 UTC revision 1.35 by jmc, Tue Jan 4 00:29:06 2005 UTC
# Line 24  C       |-- DIAGNOSTICS_MAIN_INIT Line 24  C       |-- DIAGNOSTICS_MAIN_INIT
24  C       |  C       |
25  C       |-- GAD_INIT  C       |-- GAD_INIT
26  C       |  C       |
27    C       |-- CD_CODE_INIT_FIXED
28    C       |
29    C       |-- GMREDI_INIT_FIXED
30    C       |
31    C       |-- OPPS_INIT
32    C       |
33  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
34  C       |  C       |
35  C       |-- FLT_INIT  C       |-- FLT_INIT
# Line 50  C       |-- PTRACERS_INITIALISE Line 56  C       |-- PTRACERS_INITIALISE
56  C       |  C       |
57  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
58  C       |  C       |
59  C       |-- CD_CODE_INIT_FIXED  C       |-- THSICE_INIT_FIXED
 C       |  
 C       |-- OPPS_INIT  
60  C       |  C       |
61  C       |-- CPL_INIT_FIXED  C       |-- CPL_INIT_FIXED
62  C       |  C       |
# Line 83  C--   Initialize fixed params for GAD Line 87  C--   Initialize fixed params for GAD
87        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
88  #endif  #endif
89    
90    #ifdef ALLOW_CD_CODE
91          IF (useCDscheme) THEN
92           CALL CD_CODE_INIT_FIXED(mythid)
93          ENDIF
94    #endif
95    
96    #ifdef ALLOW_GMREDI
97    C--   Initialize fixed arrays for GM-Redi
98          IF ( useGMRedi ) THEN
99           CALL GMREDI_INIT_FIXED( myThid )
100          ENDIF
101    #endif
102    
103    #ifdef ALLOW_OPPS
104          IF (useOPPS) CALL OPPS_INIT( myThid )
105    #endif /* ALLOW_OPPS */
106    
107  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
108  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
109        IF (useOBCS) THEN        IF (useOBCS) THEN
# Line 163  C--   Initialise the control variables Line 184  C--   Initialise the control variables
184        IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)        IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
185  #endif  #endif
186    
 #ifdef ALLOW_PTRACERS  
187  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
188        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
189  #endif  #endif
 #endif  
190    
191  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_THSICE
192        IF (useCDscheme) THEN        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
        CALL CD_CODE_INIT_FIXED(mythid)  
       ENDIF  
193  #endif  #endif
194    
 #ifdef ALLOW_OPPS  
       IF (useOPPS) CALL OPPS_INIT( myThid )  
 #endif /* ALLOW_OPPS */  
   
195  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
196        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
197  #endif  #endif
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
  ViewVC Help
Powered by ViewVC 1.1.22