/[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.19 by molod, Thu Feb 26 19:41:48 2004 UTC revision 1.69 by rpa, Wed Sep 16 21:36:11 2009 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       |-- DWNSLP_INIT_FIXED
38    C       |
39    C       |-- KPP_INIT_FIXED
40    C       |
41    C       |-- MY82_INIT_FIXED
42    C       |
43    C       |-- GGL90_INIT_FIXED
44    C       |
45    C       |-- OPPS_INIT
46    C       |
47  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
48  C       |  C       |
49  C       |-- FLT_INIT  C       |-- TIMEAVE_INIT_FIXED
50    C       |
51    C       |-- SHAP_FILT_INIT_FIZED
52  C       |  C       |
53  C       |-- ZONAL_FILT_INIT  C       |-- ZONAL_FILT_INIT
54  C       |  C       |
55  C       |-- AIM_INITIALISE  C       |-- AIM_INITIALISE
56  C       |  C       |
57    C       |-- GRIDALT_INITIALISE
58    C       |
59    C       |-- FIZHI_INIT_FIXED
60    C       |
61  C       |-- LAND_INITIALISE  C       |-- LAND_INITIALISE
62    C       |
63    C       |-- SEAICE_COST_INIT_FIXED
64    C       |
65    C       |-- ECCO_COST_INIT_FIXED
66    C       |
67    C       |-- PROFILES_INIT_FIXED
68    C       |
69    C       |-- CTRL_INIT
70    C       |
71    C       |-- FLT_INIT_FIXED
72    C       |
73    C       |-- LONGSTEP_INIT_FIXED
74    C       |
75    C       |-- PTRACERS_INIT_FIXED
76    C       |
77    C       |-- GCHEM_INIT_FIXED
78    C       |
79    C       |-- THSICE_INIT_FIXED
80    C       |
81    C       |-- SHELFICE_INIT_FIXED
82    C       |
83    C       |-- CPL_INIT_FIXED
84    C       |
85    C       |-- ATM2D_INIT_FIXED
86    C       |
87    C       |-- REGRID_INIT_FIXED
88    C       |
89    C       |-- LAYERS_INIT_FIXED
90    C       |
91    C       |-- SALT_PLUME_INIT_FIXED
92    C       |
93    C       |-- MYPACKAGE_INIT_FIXED
94    C       |
95    C       |-- DIAGNOSTICS_INIT_FIXED
96    
97    
98  C     !USES:  C     !USES:
99        IMPLICIT NONE        IMPLICIT NONE
# Line 44  C     myThid -  Number of this instances Line 108  C     myThid -  Number of this instances
108        INTEGER myThid        INTEGER myThid
109  CEOP  CEOP
110    
111    #ifdef ALLOW_RUNCLOCK
112          IF ( useRunClock ) THEN
113            CALL RUNCLOCK_INIT( myThid )
114          ENDIF
115    #endif
116    
117    #ifdef ALLOW_DIAGNOSTICS
118          IF ( useDiagnostics ) THEN
119    C-    needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
120            CALL DIAGNOSTICS_INIT_EARLY( myThid )
121            CALL DIAGNOSTICS_MAIN_INIT( myThid )
122          ENDIF
123    #endif
124    
125    #ifdef ALLOW_GENERIC_ADVDIFF
126  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
127        CALL GAD_INIT( myThid )        CALL GAD_INIT_FIXED( myThid )
128    #endif
129    
130    #ifdef ALLOW_MOM_COMMON
131    C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
132          IF ( momStepping ) THEN
133           CALL MOM_INIT_FIXED( myThid )
134          ENDIF
135    #endif
136    
137    #ifdef ALLOW_CD_CODE
138          IF (useCDscheme) THEN
139           CALL CD_CODE_INIT_FIXED(myThid)
140          ENDIF
141    #endif
142    
143    #ifdef ALLOW_EXF
144    C--   Initialize fixed arrays for EXF
145          IF ( useEXF ) THEN
146           CALL EXF_INIT_FIXED( myThid )
147          ENDIF
148    #endif
149    
150    #ifdef ALLOW_GMREDI
151    C--   Initialize fixed arrays for GM-Redi
152          IF ( useGMRedi ) THEN
153           CALL GMREDI_INIT_FIXED( myThid )
154          ENDIF
155    #endif
156    
157    #ifdef ALLOW_DOWN_SLOPE
158    C--   Initialize fixed arrays for Down-Slope pkg
159          IF ( useDOWN_SLOPE ) THEN
160           CALL DWNSLP_INIT_FIXED( myThid )
161          ENDIF
162    #endif
163    
164    #ifdef ALLOW_KPP
165    C--   Initialize fixed arrays for KPP
166          IF ( useKPP ) THEN
167           CALL KPP_INIT_FIXED( myThid )
168          ENDIF
169    #endif
170    
171    #ifdef ALLOW_MY82
172    C--   Initialize fixed arrays for MY82
173          IF ( useMY82 ) THEN
174           CALL MY82_INIT_FIXED( myThid )
175          ENDIF
176    #endif
177    
178    #ifdef ALLOW_GGL90
179    C--   Initialize fixed arrays for GGL90
180          IF ( useGGL90 ) THEN
181           CALL GGL90_INIT_FIXED( myThid )
182          ENDIF
183    #endif
184    
185    #ifdef ALLOW_OPPS
186          IF (useOPPS) CALL OPPS_INIT( myThid )
187    #endif /* ALLOW_OPPS */
188    
189  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
190  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 53  C--   Initialize fixed arrays for OBCS Line 192  C--   Initialize fixed arrays for OBCS
192         CALL OBCS_INIT_FIXED( myThid )         CALL OBCS_INIT_FIXED( myThid )
193        ENDIF        ENDIF
194  #endif  #endif
195  #ifdef ALLOW_FLT  
196  C--   Initialise Float positions  #ifdef ALLOW_TIMEAVE
197        IF (useFLT) THEN  C     IF (useTIMEAVE) THEN
198         CALL FLT_INIT(nIter0,startTime,myThid )        IF ( taveFreq.GT.0. ) THEN
199        _BARRIER         CALL TIMEAVE_INIT_FIXED( myThid )
200          ENDIF
201    #endif
202    
203    #ifdef ALLOW_SHAP_FILT
204    C--   Shapiro filter initialisation
205          IF (useSHAP_FILT) THEN
206           CALL SHAP_FILT_INIT_FIXED( myThid )
207        ENDIF        ENDIF
208  #endif  #endif
209    
210  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
211  C--   Latitude circle filter initialisation  C--   Latitude circle filter initialisation
212        IF (useZONAL_FILT) THEN        IF (useZONAL_FILT) THEN
213         CALL ZONAL_FILT_INIT(myThid)         CALL ZONAL_FILT_INIT(myThid)
       _BARRIER  
214        ENDIF        ENDIF
215  #endif  #endif
216    
# Line 76  C--   Initialise & Read AIM physical par Line 222  C--   Initialise & Read AIM physical par
222  C AMM  C AMM
223  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GRIDALT
224  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialise GRIDALT parameters - the alternative grid
225        IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid )        IF (useGRIDALT) then
226           CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',myThid)
227           CALL GRIDALT_INITIALISE( myThid )
228           CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',myThid)
229          ENDIF
230    
231  #endif  #endif
232    
233  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
# Line 90  C--   Initialise & Read Land package par Line 241  C--   Initialise & Read Land package par
241        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
242  #endif  #endif
243    
244    #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
245    C--   Initialise ecco-specific cost function.
246    C--   This needs to preceed the call ctrl_init
247    C--   in order to provide the weight files
248          IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid )
249    #endif
250    
251  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
252  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
253  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
254  C--   in order to provide the weight files  C--   in order to provide the weight files
255        IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )        CALL ECCO_COST_INIT_FIXED( myThid )
256    #endif
257    
258    #ifdef ALLOW_PROFILES
259          CALL PROFILES_INIT_FIXED( myThid )
260  #endif  #endif
261    
262  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
263  C--   Initialise the control variables  C--   Initialise the control variables
264        CALL CTRL_INIT( myThid )        CALL CTRL_INIT( myThid )
265        _BARRIER  #endif
266    
267    #ifdef ALLOW_ADMTLM
268    C--   Initialise ADMTLM
269          CALL CTRL_ADMTLM( myThid )
270    #endif
271    
272    #ifdef ALLOW_FLT
273    C--   Initialise fixed array for Float pkg
274          IF ( useFLT ) CALL FLT_INIT_FIXED( myThid )
275    #endif
276    
277    #ifdef ALLOW_LONGSTEP
278          IF (usePTRACERS) CALL LONGSTEP_INIT_FIXED(myThid)
279  #endif  #endif
280    
281  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
282          IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
283    #endif
284    
285  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
286        IF (usePTRACERS) then        IF (useGCHEM) CALL GCHEM_INIT_FIXED(myThid)
        call GCHEM_INIT_FIXED(mythid)  
       ENDIF  
287  #endif  #endif
288    
289    #ifdef ALLOW_RBCS
290          IF (useRBCS) CALL RBCS_INIT_FIXED(myThid)
291    #endif
292    
293    #ifdef ALLOW_THSICE
294          IF (useThSIce) CALL THSICE_INIT_FIXED(myThid)
295    #endif
296    
297    #ifdef ALLOW_SEAICE
298          IF (useSEAICE) CALL SEAICE_INIT_FIXED(myThid)
299    #endif
300    
301    #ifdef ALLOW_SHELFICE
302          IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
303    #endif /* ALLOW_SHELFICE */
304    
305    #ifdef ALLOW_EMBED_FILES
306          IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( myThid )
307    #endif
308    
309    #ifdef ALLOW_REGRID
310          IF ( useREGRID ) CALL REGRID_INIT_FIXED( myThid )
311    #endif
312    
313    #ifdef ALLOW_LAYERS
314          IF ( useLayers ) CALL LAYERS_INIT_FIXED( myThid )
315    #endif /* ALLOW_LAYERS */
316    
317    #ifdef COMPONENT_MODULE
318          IF ( useCoupler ) CALL CPL_INIT_FIXED( myThid )
319    #endif
320    
321    #ifdef ALLOW_ATM2D
322          IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid )
323    #endif
324    
325    #ifdef ALLOW_SALT_PLUME
326          IF (useSALT_PLUME) CALL SALT_PLUME_INIT_FIXED(myThid)
327    #endif
328    
329    #ifdef ALLOW_MYPACKAGE
330          IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(myThid)
331  #endif  #endif
332    
 CAMM  
333  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
334        IF (usediagnostics) then  C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
335         call diagnostics_initialise(mythid)        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
       ENDIF  
336  #endif  #endif
 CAMM  
337    
338        RETURN        RETURN
339        END        END
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.69
  ViewVC Help
Powered by ViewVC 1.1.22