/[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.64 by jmc, Sun Aug 17 02:08:24 2008 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       |-- OPPS_INIT
44    C       |
45  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
46  C       |  C       |
47  C       |-- FLT_INIT  C       |-- FLT_INIT
48  C       |  C       |
49    C       |-- TIMEAVE_INIT_FIXED
50    C       |
51    C       |-- SHAP_FILT_INIT_FIZED
52    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       |-- CTRL_INIT
68    C       |
69    C       |-- PTRACERS_INIT_FIXED
70    C       |
71    C       |-- GCHEM_INIT_FIXED
72    C       |
73    C       |-- THSICE_INIT_FIXED
74    C       |
75    C       |-- SHELFICE_INIT_FIXED
76    C       |
77    C       |-- CPL_INIT_FIXED
78    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       |-- MYPACKAGE_INIT_FIXED
86    C       |
87    C       |-- DIAGNOSTICS_INIT_FIXED
88    
89  C     !USES:  C     !USES:
90        IMPLICIT NONE        IMPLICIT NONE
# Line 44  C     myThid -  Number of this instances Line 99  C     myThid -  Number of this instances
99        INTEGER myThid        INTEGER myThid
100  CEOP  CEOP
101    
102    #ifdef ALLOW_RUNCLOCK
103          IF ( useRunClock ) THEN
104            CALL RUNCLOCK_INIT( myThid )
105          ENDIF
106    #endif
107    
108    #ifdef ALLOW_DIAGNOSTICS
109          IF ( useDiagnostics ) THEN
110    C-    needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
111            CALL DIAGNOSTICS_INIT_EARLY( myThid )
112            CALL DIAGNOSTICS_MAIN_INIT( myThid )
113          ENDIF
114    #endif
115    
116    #ifdef ALLOW_GENERIC_ADVDIFF
117  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
118        CALL GAD_INIT( myThid )        CALL GAD_INIT_FIXED( myThid )
119    #endif
120    
121    #ifdef ALLOW_MOM_COMMON
122    C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
123          IF ( momStepping ) THEN
124           CALL MOM_INIT_FIXED( myThid )
125          ENDIF
126    #endif
127    
128    #ifdef ALLOW_CD_CODE
129          IF (useCDscheme) THEN
130           CALL CD_CODE_INIT_FIXED(myThid)
131          ENDIF
132    #endif
133    
134    #ifdef ALLOW_EXF
135    C--   Initialize fixed arrays for EXF
136          IF ( useEXF ) THEN
137           CALL EXF_INIT_FIXED( myThid )
138          ENDIF
139    #endif
140    
141    #ifdef ALLOW_GMREDI
142    C--   Initialize fixed arrays for GM-Redi
143          IF ( useGMRedi ) THEN
144           CALL GMREDI_INIT_FIXED( myThid )
145          ENDIF
146    #endif
147    
148    #ifdef ALLOW_DOWN_SLOPE
149    C--   Initialize fixed arrays for Down-Slope pkg
150          IF ( useDOWN_SLOPE ) THEN
151           CALL DWNSLP_INIT_FIXED( myThid )
152          ENDIF
153    #endif
154    
155    #ifdef ALLOW_KPP
156    C--   Initialize fixed arrays for KPP
157          IF ( useKPP ) THEN
158           CALL KPP_INIT_FIXED( myThid )
159          ENDIF
160    #endif
161    
162    #ifdef ALLOW_MY82
163    C--   Initialize fixed arrays for MY82
164          IF ( useMY82 ) THEN
165           CALL MY82_INIT_FIXED( myThid )
166          ENDIF
167    #endif
168    
169    #ifdef ALLOW_OPPS
170          IF (useOPPS) CALL OPPS_INIT( myThid )
171    #endif /* ALLOW_OPPS */
172    
173  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
174  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 53  C--   Initialize fixed arrays for OBCS Line 176  C--   Initialize fixed arrays for OBCS
176         CALL OBCS_INIT_FIXED( myThid )         CALL OBCS_INIT_FIXED( myThid )
177        ENDIF        ENDIF
178  #endif  #endif
179    
180  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
181  C--   Initialise Float positions  C--   Initialise Float positions
182        IF (useFLT) THEN        IF (useFLT) THEN
# Line 60  C--   Initialise Float positions Line 184  C--   Initialise Float positions
184        _BARRIER        _BARRIER
185        ENDIF        ENDIF
186  #endif  #endif
187    
188    #ifdef ALLOW_TIMEAVE
189    C     IF (useTIMEAVE) THEN
190          IF ( taveFreq.GT.0. ) THEN
191           CALL TIMEAVE_INIT_FIXED( myThid )
192          ENDIF
193    #endif
194    
195    #ifdef ALLOW_SHAP_FILT
196    C--   Shapiro filter initialisation
197          IF (useSHAP_FILT) THEN
198           CALL SHAP_FILT_INIT_FIXED( myThid )
199          ENDIF
200    #endif
201    
202  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
203  C--   Latitude circle filter initialisation  C--   Latitude circle filter initialisation
204        IF (useZONAL_FILT) THEN        IF (useZONAL_FILT) THEN
# Line 76  C--   Initialise & Read AIM physical par Line 215  C--   Initialise & Read AIM physical par
215  C AMM  C AMM
216  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GRIDALT
217  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialise GRIDALT parameters - the alternative grid
218        IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid )        IF (useGRIDALT) then
219           CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',myThid)
220           CALL GRIDALT_INITIALISE( myThid )
221           CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',myThid)
222          ENDIF
223    
224  #endif  #endif
225    
226  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
# Line 90  C--   Initialise & Read Land package par Line 234  C--   Initialise & Read Land package par
234        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
235  #endif  #endif
236    
237    #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
238    C--   Initialise ecco-specific cost function.
239    C--   This needs to preceed the call ctrl_init
240    C--   in order to provide the weight files
241          IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid )
242    #endif
243    
244  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
245  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
246  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
247  C--   in order to provide the weight files  C--   in order to provide the weight files
248        IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )        CALL ECCO_COST_INIT_FIXED( myThid )
249    #endif
250    
251    #ifdef ALLOW_PROFILES
252          CALL PROFILES_INIT_FIXED( myThid )
253  #endif  #endif
254    
255  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
# Line 103  C--   Initialise the control variables Line 258  C--   Initialise the control variables
258        _BARRIER        _BARRIER
259  #endif  #endif
260    
261    #ifdef ALLOW_ADMTLM
262    C--   Initialise ADMTLM
263          CALL CTRL_ADMTLM( myThid )
264          _BARRIER
265    #endif
266    
267  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
268          IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
269    #endif
270    
271  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
272        IF (usePTRACERS) then        IF (useGCHEM) CALL GCHEM_INIT_FIXED(myThid)
273         call GCHEM_INIT_FIXED(mythid)  #endif
274        ENDIF  
275    #ifdef ALLOW_RBCS
276          IF (useRBCS) CALL RBCS_INIT_FIXED(myThid)
277    #endif
278    
279    #ifdef ALLOW_THSICE
280          IF (useThSIce) CALL THSICE_INIT_FIXED(myThid)
281    #endif
282    
283    #ifdef ALLOW_SEAICE
284          IF (useSEAICE) CALL SEAICE_INIT_FIXED(myThid)
285    #endif
286    
287    #ifdef ALLOW_SHELFICE
288          IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
289    #endif /* ALLOW_SHELFICE */
290    
291    #ifdef ALLOW_EMBED_FILES
292          IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( myThid )
293    #endif
294    
295    #ifdef ALLOW_REGRID
296          IF ( useREGRID ) CALL REGRID_INIT_FIXED( myThid )
297    #endif
298    
299    #ifdef COMPONENT_MODULE
300          IF ( useCoupler ) CALL CPL_INIT_FIXED( myThid )
301  #endif  #endif
302    
303    #ifdef ALLOW_ATM2D
304          IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid )
305    #endif
306    
307    #ifdef ALLOW_SALT_PLUME
308          IF (useSALT_PLUME) CALL SALT_PLUME_INIT_FIXED(myThid)
309    #endif
310    
311    #ifdef ALLOW_MYPACKAGE
312          IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(myThid)
313  #endif  #endif
314    
 CAMM  
315  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
316        IF (usediagnostics) then  C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
317         call diagnostics_initialise(mythid)        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
       ENDIF  
318  #endif  #endif
 CAMM  
319    
320        RETURN        RETURN
321        END        END
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.64
  ViewVC Help
Powered by ViewVC 1.1.22