/[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.52 by edhill, Tue Aug 15 04:24:03 2006 UTC revision 1.65 by dfer, Tue Oct 7 19:41:49 2008 UTC
# Line 34  C       |-- EXF_INIT_FIXED Line 34  C       |-- EXF_INIT_FIXED
34  C       |  C       |
35  C       |-- GMREDI_INIT_FIXED  C       |-- GMREDI_INIT_FIXED
36  C       |  C       |
37    C       |-- DWNSLP_INIT_FIXED
38    C       |
39  C       |-- KPP_INIT_FIXED  C       |-- KPP_INIT_FIXED
40  C       |  C       |
41    C       |-- MY82_INIT_FIXED
42    C       |
43    C       |-- GGL90_INIT_FIXED
44    C       |
45  C       |-- OPPS_INIT  C       |-- OPPS_INIT
46  C       |  C       |
47  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
# Line 66  C       |-- PTRACERS_INIT_FIXED Line 72  C       |-- PTRACERS_INIT_FIXED
72  C       |  C       |
73  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
74  C       |  C       |
 C       |-- DIC_INIT_FIXED  
 C       |  
75  C       |-- THSICE_INIT_FIXED  C       |-- THSICE_INIT_FIXED
76  C       |  C       |
77  C       |-- SHELFICE_INIT_FIXED  C       |-- SHELFICE_INIT_FIXED
78  C       |  C       |
 C       |-- MYPACKAGE_INIT_FIXED  
 C       |  
79  C       |-- CPL_INIT_FIXED  C       |-- CPL_INIT_FIXED
80  C       |  C       |
81  C       |-- DIAGNOSTICS_INIT_FIXED  C       |-- ATM2D_INIT_FIXED
82  C       |  C       |
83  C       |-- REGRID_INIT_FIXED  C       |-- REGRID_INIT_FIXED
84    C       |
85    C       |-- SALT_PLUME_INIT_FIXED
86    C       |
87    C       |-- MYPACKAGE_INIT_FIXED
88    C       |
89    C       |-- DIAGNOSTICS_INIT_FIXED
90    
91  C     !USES:  C     !USES:
92        IMPLICIT NONE        IMPLICIT NONE
# Line 109  C-    needs to call DIAGNOSTICS_INIT_EAR Line 117  C-    needs to call DIAGNOSTICS_INIT_EAR
117    
118  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
119  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
120        CALL GAD_INIT( myThid )        CALL GAD_INIT_FIXED( myThid )
121  #endif  #endif
122    
123  #ifdef ALLOW_MOM_COMMON  #ifdef ALLOW_MOM_COMMON
# Line 121  C--   Initialize fixed params for Moment Line 129  C--   Initialize fixed params for Moment
129    
130  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
131        IF (useCDscheme) THEN        IF (useCDscheme) THEN
132         CALL CD_CODE_INIT_FIXED(mythid)         CALL CD_CODE_INIT_FIXED(myThid)
133        ENDIF        ENDIF
134  #endif  #endif
135    
136  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
137  C--   Initialize fixed arrays for EXF  C--   Initialize fixed arrays for EXF
138  c     IF ( useEXF ) THEN        IF ( useEXF ) THEN
139         CALL EXF_INIT_FIXED( myThid )         CALL EXF_INIT_FIXED( myThid )
140  c     ENDIF        ENDIF
141  #endif  #endif
142    
143  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
# Line 139  C--   Initialize fixed arrays for GM-Red Line 147  C--   Initialize fixed arrays for GM-Red
147        ENDIF        ENDIF
148  #endif  #endif
149    
150    #ifdef ALLOW_DOWN_SLOPE
151    C--   Initialize fixed arrays for Down-Slope pkg
152          IF ( useDOWN_SLOPE ) THEN
153           CALL DWNSLP_INIT_FIXED( myThid )
154          ENDIF
155    #endif
156    
157  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
158  C--   Initialize fixed arrays for KPP  C--   Initialize fixed arrays for KPP
159        IF ( useKPP ) THEN        IF ( useKPP ) THEN
# Line 146  C--   Initialize fixed arrays for KPP Line 161  C--   Initialize fixed arrays for KPP
161        ENDIF        ENDIF
162  #endif  #endif
163    
164    #ifdef ALLOW_MY82
165    C--   Initialize fixed arrays for MY82
166          IF ( useMY82 ) THEN
167           CALL MY82_INIT_FIXED( myThid )
168          ENDIF
169    #endif
170    
171    #ifdef ALLOW_GGL90
172    C--   Initialize fixed arrays for GGL90
173          IF ( useGGL90 ) THEN
174           CALL GGL90_INIT_FIXED( myThid )
175          ENDIF
176    #endif
177    
178  #ifdef ALLOW_OPPS  #ifdef ALLOW_OPPS
179        IF (useOPPS) CALL OPPS_INIT( myThid )        IF (useOPPS) CALL OPPS_INIT( myThid )
180  #endif /* ALLOW_OPPS */  #endif /* ALLOW_OPPS */
# Line 196  C AMM Line 225  C AMM
225  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GRIDALT
226  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialise GRIDALT parameters - the alternative grid
227        IF (useGRIDALT) then        IF (useGRIDALT) then
228         CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)         CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',myThid)
229         CALL GRIDALT_INITIALISE( myThid )         CALL GRIDALT_INITIALISE( myThid )
230         CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)         CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',myThid)
231        ENDIF        ENDIF
232    
233  #endif  #endif
# Line 218  C--   Initialise & Read Land package par Line 247  C--   Initialise & Read Land package par
247  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
248  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
249  C--   in order to provide the weight files  C--   in order to provide the weight files
250        CALL SEAICE_COST_INIT_FIXED( myThid )        IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid )
251  #endif  #endif
252    
253  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
# Line 238  C--   Initialise the control variables Line 267  C--   Initialise the control variables
267        _BARRIER        _BARRIER
268  #endif  #endif
269    
270    #ifdef ALLOW_ADMTLM
271    C--   Initialise ADMTLM
272          CALL CTRL_ADMTLM( myThid )
273          _BARRIER
274    #endif
275    
276  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
277        IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)        IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
278  #endif  #endif
279    
280  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
281        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)  
282  #endif  #endif
283    
284  #ifdef ALLOW_RBCS  #ifdef ALLOW_RBCS
285        IF (useRBCS) CALL RBCS_INIT_FIXED(mythid)        IF (useRBCS) CALL RBCS_INIT_FIXED(myThid)
286  #endif  #endif
287    
288  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
289        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)        IF (useThSIce) CALL THSICE_INIT_FIXED(myThid)
290    #endif
291    
292    #ifdef ALLOW_SEAICE
293          IF (useSEAICE) CALL SEAICE_INIT_FIXED(myThid)
294  #endif  #endif
295    
296  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
297        IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )        IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
298  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
299    
300  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_EMBED_FILES
301        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)        IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( myThid )
302    #endif
303    
304    #ifdef ALLOW_REGRID
305          IF ( useREGRID ) CALL REGRID_INIT_FIXED( myThid )
306  #endif  #endif
307    
308  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
309        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )        IF ( useCoupler ) CALL CPL_INIT_FIXED( myThid )
310  #endif  #endif
311    
312  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_ATM2D
313  C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls        IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid )
       IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )  
314  #endif  #endif
315    
316  #ifdef ALLOW_EMBED_FILES  #ifdef ALLOW_SALT_PLUME
317        IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )        IF (useSALT_PLUME) CALL SALT_PLUME_INIT_FIXED(myThid)
318  #endif  #endif
319    
320  #ifdef ALLOW_REGRID  #ifdef ALLOW_MYPACKAGE
321        IF ( useREGRID ) CALL REGRID_INIT_FIXED( mythid )        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(myThid)
322    #endif
323    
324    #ifdef ALLOW_DIAGNOSTICS
325    C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
326          IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
327  #endif  #endif
328    
329        RETURN        RETURN
Legend:
Removed from v.1.52  
changed lines
  Added in v.1.65
  ViewVC Help
Powered by ViewVC 1.1.22