/[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.51 by jmc, Sat Jul 29 21:00:09 2006 UTC revision 1.63 by mlosch, Mon Apr 14 09:45:18 2008 UTC
# Line 36  C       |-- GMREDI_INIT_FIXED Line 36  C       |-- GMREDI_INIT_FIXED
36  C       |  C       |
37  C       |-- KPP_INIT_FIXED  C       |-- KPP_INIT_FIXED
38  C       |  C       |
39    C       |-- MY82_INIT_FIXED
40    C       |
41  C       |-- OPPS_INIT  C       |-- OPPS_INIT
42  C       |  C       |
43  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
# Line 66  C       |-- PTRACERS_INIT_FIXED Line 68  C       |-- PTRACERS_INIT_FIXED
68  C       |  C       |
69  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
70  C       |  C       |
 C       |-- DIC_INIT_FIXED  
 C       |  
71  C       |-- THSICE_INIT_FIXED  C       |-- THSICE_INIT_FIXED
72  C       |  C       |
73  C       |-- SHELFICE_INIT_FIXED  C       |-- SHELFICE_INIT_FIXED
# Line 76  C       |-- MYPACKAGE_INIT_FIXED Line 76  C       |-- MYPACKAGE_INIT_FIXED
76  C       |  C       |
77  C       |-- CPL_INIT_FIXED  C       |-- CPL_INIT_FIXED
78  C       |  C       |
79    C       |-- ATM2D_INIT_FIXED
80    C       |
81    C       |-- REGRID_INIT_FIXED
82    C       |
83    C       |-- SALT_PLUME_INIT_FIXED
84    C       |
85  C       |-- DIAGNOSTICS_INIT_FIXED  C       |-- DIAGNOSTICS_INIT_FIXED
86    
87  C     !USES:  C     !USES:
# Line 107  C-    needs to call DIAGNOSTICS_INIT_EAR Line 113  C-    needs to call DIAGNOSTICS_INIT_EAR
113    
114  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
115  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
116        CALL GAD_INIT( myThid )        CALL GAD_INIT_FIXED( myThid )
117  #endif  #endif
118    
119  #ifdef ALLOW_MOM_COMMON  #ifdef ALLOW_MOM_COMMON
# Line 119  C--   Initialize fixed params for Moment Line 125  C--   Initialize fixed params for Moment
125    
126  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
127        IF (useCDscheme) THEN        IF (useCDscheme) THEN
128         CALL CD_CODE_INIT_FIXED(mythid)         CALL CD_CODE_INIT_FIXED(myThid)
129        ENDIF        ENDIF
130  #endif  #endif
131    
132  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
133  C--   Initialize fixed arrays for EXF  C--   Initialize fixed arrays for EXF
134  c     IF ( useEXF ) THEN        IF ( useEXF ) THEN
135         CALL EXF_INIT_FIXED( myThid )         CALL EXF_INIT_FIXED( myThid )
136  c     ENDIF        ENDIF
137  #endif  #endif
138    
139  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
# Line 144  C--   Initialize fixed arrays for KPP Line 150  C--   Initialize fixed arrays for KPP
150        ENDIF        ENDIF
151  #endif  #endif
152    
153    #ifdef ALLOW_MY82
154    C--   Initialize fixed arrays for MY82
155          IF ( useMY82 ) THEN
156           CALL MY82_INIT_FIXED( myThid )
157          ENDIF
158    #endif
159    
160  #ifdef ALLOW_OPPS  #ifdef ALLOW_OPPS
161        IF (useOPPS) CALL OPPS_INIT( myThid )        IF (useOPPS) CALL OPPS_INIT( myThid )
162  #endif /* ALLOW_OPPS */  #endif /* ALLOW_OPPS */
# Line 194  C AMM Line 207  C AMM
207  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GRIDALT
208  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialise GRIDALT parameters - the alternative grid
209        IF (useGRIDALT) then        IF (useGRIDALT) then
210         CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)         CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',myThid)
211         CALL GRIDALT_INITIALISE( myThid )         CALL GRIDALT_INITIALISE( myThid )
212         CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)         CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',myThid)
213        ENDIF        ENDIF
214    
215  #endif  #endif
# Line 216  C--   Initialise & Read Land package par Line 229  C--   Initialise & Read Land package par
229  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
230  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
231  C--   in order to provide the weight files  C--   in order to provide the weight files
232        CALL SEAICE_COST_INIT_FIXED( myThid )        IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid )
233  #endif  #endif
234    
235  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
# Line 236  C--   Initialise the control variables Line 249  C--   Initialise the control variables
249        _BARRIER        _BARRIER
250  #endif  #endif
251    
252    #ifdef ALLOW_ADMTLM
253    C--   Initialise ADMTLM
254          CALL CTRL_ADMTLM( myThid )
255          _BARRIER
256    #endif
257    
258  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
259        IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)        IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
260  #endif  #endif
261    
262  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
263        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)        IF (useGCHEM) CALL GCHEM_INIT_FIXED(myThid)
 #endif  
   
 #ifdef ALLOW_DIC  
 C     IF (useDIC)  
       CALL DIC_INIT_FIXED(mythid)  
264  #endif  #endif
265    
266  #ifdef ALLOW_RBCS  #ifdef ALLOW_RBCS
267        IF (useRBCS) CALL RBCS_INIT_FIXED(mythid)        IF (useRBCS) CALL RBCS_INIT_FIXED(myThid)
268  #endif  #endif
269    
270  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
271        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)        IF (useThSIce) CALL THSICE_INIT_FIXED(myThid)
272    #endif
273    
274    #ifdef ALLOW_SEAICE
275          IF (useSEAICE) CALL SEAICE_INIT_FIXED(myThid)
276  #endif  #endif
277    
278  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
279        IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )        IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
280  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
281    
282    #ifdef ALLOW_EMBED_FILES
283          IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( myThid )
284    #endif
285    
286    #ifdef ALLOW_REGRID
287          IF ( useREGRID ) CALL REGRID_INIT_FIXED( myThid )
288    #endif
289    
290  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
291        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(myThid)
292  #endif  #endif
293    
294  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
295        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )        IF ( useCoupler ) CALL CPL_INIT_FIXED( myThid )
296    #endif
297    
298    #ifdef ALLOW_ATM2D
299          IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid )
300    #endif
301    
302    #ifdef ALLOW_SALT_PLUME
303          IF (useSALT_PLUME) CALL SALT_PLUME_INIT_FIXED(myThid)
304  #endif  #endif
305    
306  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
# Line 274  C-    needs to call DIAGNOSTICS_INIT_FIX Line 308  C-    needs to call DIAGNOSTICS_INIT_FIX
308        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
309  #endif  #endif
310    
 #ifdef ALLOW_EMBED_FILES  
       IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )  
 #endif  
   
311        RETURN        RETURN
312        END        END
Legend:
Removed from v.1.51  
changed lines
  Added in v.1.63
  ViewVC Help
Powered by ViewVC 1.1.22