/[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.32 by jmc, Fri Dec 3 15:39:11 2004 UTC revision 1.52 by edhill, Tue Aug 15 04:24:03 2006 UTC
# Line 11  C     !INTERFACE: Line 11  C     !INTERFACE:
11    
12  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
13  C     *==========================================================*  C     *==========================================================*
14  C     | SUBROUTINE PACKAGES_INIT_FIXED                              C     | SUBROUTINE PACKAGES_INIT_FIXED
15  C     | o Does initialisation of package-related fixed fields      C     | o Does initialisation of package-related fixed fields
16  C     *==========================================================*  C     *==========================================================*
17  C     \ev  C     \ev
18    
19  C     !CALLING SEQUENCE:  C     !CALLING SEQUENCE:
20  C     PACKAGES_INIT_FIXED  C     PACKAGES_INIT_FIXED
21  C       |  C       |
22    C       |-- RUNCLOCK_INIT
23    C       |
24    C       |-- DIAGNOSTICS_INIT_EARLY
25    C       |-- DIAGNOSTICS_MAIN_INIT
26    C       |
27  C       |-- GAD_INIT  C       |-- GAD_INIT
28  C       |  C       |
29    C       |-- MOM_INIT_FIXED
30    C       |
31    C       |-- CD_CODE_INIT_FIXED
32    C       |
33    C       |-- EXF_INIT_FIXED
34    C       |
35    C       |-- GMREDI_INIT_FIXED
36    C       |
37    C       |-- KPP_INIT_FIXED
38    C       |
39    C       |-- OPPS_INIT
40    C       |
41  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
42  C       |  C       |
43  C       |-- FLT_INIT  C       |-- FLT_INIT
44  C       |  C       |
45    C       |-- TIMEAVE_INIT_FIXED
46    C       |
47    C       |-- SHAP_FILT_INIT_FIZED
48    C       |
49  C       |-- ZONAL_FILT_INIT  C       |-- ZONAL_FILT_INIT
50  C       |  C       |
51  C       |-- AIM_INITIALISE  C       |-- AIM_INITIALISE
# Line 35  C       |-- FIZHI_INIT_FIXED Line 56  C       |-- FIZHI_INIT_FIXED
56  C       |  C       |
57  C       |-- LAND_INITIALISE  C       |-- LAND_INITIALISE
58  C       |  C       |
59    C       |-- SEAICE_COST_INIT_FIXED
60    C       |
61  C       |-- ECCO_COST_INIT_FIXED  C       |-- ECCO_COST_INIT_FIXED
62  C       |  C       |
63  C       |-- CTRL_INIT  C       |-- CTRL_INIT
64  C       |  C       |
65    C       |-- PTRACERS_INIT_FIXED
66    C       |
67  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
68  C       |  C       |
69  C       |-- OPPS_INIT  C       |-- DIC_INIT_FIXED
70    C       |
71    C       |-- THSICE_INIT_FIXED
72    C       |
73    C       |-- SHELFICE_INIT_FIXED
74    C       |
75    C       |-- MYPACKAGE_INIT_FIXED
76    C       |
77    C       |-- CPL_INIT_FIXED
78    C       |
79    C       |-- DIAGNOSTICS_INIT_FIXED
80  C       |  C       |
81  C       |-- DIAGNOSTICS_INITIALISE  C       |-- REGRID_INIT_FIXED
82    
83  C     !USES:  C     !USES:
84        IMPLICIT NONE        IMPLICIT NONE
# Line 58  C     myThid -  Number of this instances Line 93  C     myThid -  Number of this instances
93        INTEGER myThid        INTEGER myThid
94  CEOP  CEOP
95    
96    #ifdef ALLOW_RUNCLOCK
97          IF ( useRunClock ) THEN
98            CALL RUNCLOCK_INIT( myThid )
99          ENDIF
100    #endif
101    
102    #ifdef ALLOW_DIAGNOSTICS
103          IF ( useDiagnostics ) THEN
104    C-    needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
105            CALL DIAGNOSTICS_INIT_EARLY( myThid )
106            CALL DIAGNOSTICS_MAIN_INIT( myThid )
107          ENDIF
108    #endif
109    
110  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
111  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
112        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
113  #endif  #endif
114    
115    #ifdef ALLOW_MOM_COMMON
116    C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
117          IF ( momStepping ) THEN
118           CALL MOM_INIT_FIXED( myThid )
119          ENDIF
120    #endif
121    
122    #ifdef ALLOW_CD_CODE
123          IF (useCDscheme) THEN
124           CALL CD_CODE_INIT_FIXED(mythid)
125          ENDIF
126    #endif
127    
128    #ifdef ALLOW_EXF
129    C--   Initialize fixed arrays for EXF
130    c     IF ( useEXF ) THEN
131           CALL EXF_INIT_FIXED( myThid )
132    c     ENDIF
133    #endif
134    
135    #ifdef ALLOW_GMREDI
136    C--   Initialize fixed arrays for GM-Redi
137          IF ( useGMRedi ) THEN
138           CALL GMREDI_INIT_FIXED( myThid )
139          ENDIF
140    #endif
141    
142    #ifdef ALLOW_KPP
143    C--   Initialize fixed arrays for KPP
144          IF ( useKPP ) THEN
145           CALL KPP_INIT_FIXED( myThid )
146          ENDIF
147    #endif
148    
149    #ifdef ALLOW_OPPS
150          IF (useOPPS) CALL OPPS_INIT( myThid )
151    #endif /* ALLOW_OPPS */
152    
153  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
154  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
155        IF (useOBCS) THEN        IF (useOBCS) THEN
# Line 80  C--   Initialise Float positions Line 167  C--   Initialise Float positions
167    
168  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
169  C     IF (useTIMEAVE) THEN  C     IF (useTIMEAVE) THEN
170        CALL TIMEAVE_INIT_FIXED( myThid )        IF ( taveFreq.GT.0. ) THEN
171  C     ENDIF         CALL TIMEAVE_INIT_FIXED( myThid )
172          ENDIF
173    #endif
174    
175    #ifdef ALLOW_SHAP_FILT
176    C--   Shapiro filter initialisation
177          IF (useSHAP_FILT) THEN
178           CALL SHAP_FILT_INIT_FIXED( myThid )
179          ENDIF
180  #endif  #endif
181    
182  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
# Line 119  C--   Initialise & Read Land package par Line 214  C--   Initialise & Read Land package par
214        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
215  #endif  #endif
216    
217    #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
218    C--   Initialise ecco-specific cost function.
219    C--   This needs to preceed the call ctrl_init
220    C--   in order to provide the weight files
221          CALL SEAICE_COST_INIT_FIXED( myThid )
222    #endif
223    
224  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
225  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
226  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
227  C--   in order to provide the weight files  C--   in order to provide the weight files
228        IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )        CALL ECCO_COST_INIT_FIXED( myThid )
229    #endif
230    
231    #ifdef ALLOW_PROFILES
232          CALL PROFILES_INIT_FIXED( myThid )
233  #endif  #endif
234    
235  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
# Line 133  C--   Initialise the control variables Line 239  C--   Initialise the control variables
239  #endif  #endif
240    
241  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
242        IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)        IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
243  #endif  #endif
244    
 #ifdef ALLOW_PTRACERS  
245  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
246        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
247  #endif  #endif
248    
249    #ifdef ALLOW_DIC
250    C     IF (useDIC)
251          CALL DIC_INIT_FIXED(mythid)
252  #endif  #endif
253    
254  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_RBCS
255        IF (useCDscheme) then        IF (useRBCS) CALL RBCS_INIT_FIXED(mythid)
        call CD_CODE_INIT_FIXED(mythid)  
       ENDIF  
256  #endif  #endif
257    
258  #ifdef ALLOW_OPPS  #ifdef ALLOW_THSICE
259        IF (useOPPS) CALL OPPS_INIT( myThid )        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
260  #endif /* ALLOW_OPPS */  #endif
261    
262  CAMM  #ifdef ALLOW_SHELFICE
263  #ifdef ALLOW_DIAGNOSTICS        IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
264        IF (usediagnostics) then  #endif /* ALLOW_SHELFICE */
265         call diagnostics_initialise(mythid)  
266        ENDIF  #ifdef ALLOW_MYPACKAGE
267          IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)
268  #endif  #endif
 CAMM  
269    
270  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
271        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
272  #endif  #endif
273    
274    #ifdef ALLOW_DIAGNOSTICS
275    C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
276          IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
277    #endif
278    
279    #ifdef ALLOW_EMBED_FILES
280          IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )
281    #endif
282    
283    #ifdef ALLOW_REGRID
284          IF ( useREGRID ) CALL REGRID_INIT_FIXED( mythid )
285    #endif
286    
287        RETURN        RETURN
288        END        END
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.52
  ViewVC Help
Powered by ViewVC 1.1.22