/[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.50 by heimbach, Wed Jun 28 21:24:54 2006 UTC
# Line 19  C     \ev Line 19  C     \ev
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       |-- ATM_DIAGNOSTICS_INIT
52    C       |
53  C       |-- AIM_INITIALISE  C       |-- AIM_INITIALISE
54  C       |  C       |
55    C       |-- GRIDALT_INITIALISE
56    C       |
57    C       |-- FIZHI_INIT_FIXED
58    C       |
59  C       |-- LAND_INITIALISE  C       |-- LAND_INITIALISE
60    C       |
61    C       |-- SEAICE_COST_INIT_FIXED
62    C       |
63    C       |-- ECCO_COST_INIT_FIXED
64    C       |
65    C       |-- CTRL_INIT
66    C       |
67    C       |-- PTRACERS_INIT_FIXED
68    C       |
69    C       |-- GCHEM_INIT_FIXED
70    C       |
71    C       |-- DIC_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       |-- DIAGNOSTICS_INIT_FIXED
80    
81  C     !USES:  C     !USES:
82        IMPLICIT NONE        IMPLICIT NONE
# Line 44  C     myThid -  Number of this instances Line 91  C     myThid -  Number of this instances
91        INTEGER myThid        INTEGER myThid
92  CEOP  CEOP
93    
94    #ifdef ALLOW_RUNCLOCK
95          IF ( useRunClock ) THEN
96            CALL RUNCLOCK_INIT( myThid )
97          ENDIF
98    #endif
99    
100    #ifdef ALLOW_DIAGNOSTICS
101          IF ( useDiagnostics ) THEN
102            CALL DIAGNOSTICS_INIT_EARLY( myThid )
103            CALL DIAGNOSTICS_MAIN_INIT( myThid )
104          ENDIF
105    #endif
106    
107    #ifdef ALLOW_GENERIC_ADVDIFF
108  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
109        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
110    #endif
111    
112    #ifdef ALLOW_MOM_COMMON
113    C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
114          IF ( momStepping ) THEN
115           CALL MOM_INIT_FIXED( myThid )
116          ENDIF
117    #endif
118    
119    #ifdef ALLOW_CD_CODE
120          IF (useCDscheme) THEN
121           CALL CD_CODE_INIT_FIXED(mythid)
122          ENDIF
123    #endif
124    
125    #ifdef ALLOW_EXF
126    C--   Initialize fixed arrays for EXF
127    c     IF ( useEXF ) THEN
128           CALL EXF_INIT_FIXED( myThid )
129    c     ENDIF
130    #endif
131    
132    #ifdef ALLOW_GMREDI
133    C--   Initialize fixed arrays for GM-Redi
134          IF ( useGMRedi ) THEN
135           CALL GMREDI_INIT_FIXED( myThid )
136          ENDIF
137    #endif
138    
139    #ifdef ALLOW_KPP
140    C--   Initialize fixed arrays for KPP
141          IF ( useKPP ) THEN
142           CALL KPP_INIT_FIXED( myThid )
143          ENDIF
144    #endif
145    
146    #ifdef ALLOW_OPPS
147          IF (useOPPS) CALL OPPS_INIT( myThid )
148    #endif /* ALLOW_OPPS */
149    
150  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
151  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 53  C--   Initialize fixed arrays for OBCS Line 153  C--   Initialize fixed arrays for OBCS
153         CALL OBCS_INIT_FIXED( myThid )         CALL OBCS_INIT_FIXED( myThid )
154        ENDIF        ENDIF
155  #endif  #endif
156    
157  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
158  C--   Initialise Float positions  C--   Initialise Float positions
159        IF (useFLT) THEN        IF (useFLT) THEN
# Line 60  C--   Initialise Float positions Line 161  C--   Initialise Float positions
161        _BARRIER        _BARRIER
162        ENDIF        ENDIF
163  #endif  #endif
164    
165    #ifdef ALLOW_TIMEAVE
166    C     IF (useTIMEAVE) THEN
167          IF ( taveFreq.GT.0. ) THEN
168           CALL TIMEAVE_INIT_FIXED( myThid )
169          ENDIF
170    #endif
171    
172    #ifdef ALLOW_SHAP_FILT
173    C--   Shapiro filter initialisation
174          IF (useSHAP_FILT) THEN
175           CALL SHAP_FILT_INIT_FIXED( myThid )
176          ENDIF
177    #endif
178    
179  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
180  C--   Latitude circle filter initialisation  C--   Latitude circle filter initialisation
181        IF (useZONAL_FILT) THEN        IF (useZONAL_FILT) THEN
# Line 76  C--   Initialise & Read AIM physical par Line 192  C--   Initialise & Read AIM physical par
192  C AMM  C AMM
193  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GRIDALT
194  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialise GRIDALT parameters - the alternative grid
195        IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid )        IF (useGRIDALT) then
196           CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
197           CALL GRIDALT_INITIALISE( myThid )
198           CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
199          ENDIF
200    
201  #endif  #endif
202    
203  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
# Line 90  C--   Initialise & Read Land package par Line 211  C--   Initialise & Read Land package par
211        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
212  #endif  #endif
213    
214    #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
215    C--   Initialise ecco-specific cost function.
216    C--   This needs to preceed the call ctrl_init
217    C--   in order to provide the weight files
218          CALL SEAICE_COST_INIT_FIXED( myThid )
219    #endif
220    
221  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
222  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
223  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
224  C--   in order to provide the weight files  C--   in order to provide the weight files
225        IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )        CALL ECCO_COST_INIT_FIXED( myThid )
226    #endif
227    
228    #ifdef ALLOW_PROFILES
229          CALL PROFILES_INIT_FIXED( myThid )
230  #endif  #endif
231    
232  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
# Line 104  C--   Initialise the control variables Line 236  C--   Initialise the control variables
236  #endif  #endif
237    
238  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
239          IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
240    #endif
241    
242  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
243        IF (usePTRACERS) then        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
244         call GCHEM_INIT_FIXED(mythid)  #endif
245        ENDIF  
246    #ifdef ALLOW_DIC
247    C     IF (useDIC)
248          CALL DIC_INIT_FIXED(mythid)
249    #endif
250    
251    #ifdef ALLOW_RBCS
252          IF (useRBCS) CALL RBCS_INIT_FIXED(mythid)
253  #endif  #endif
254    
255    
256    #ifdef ALLOW_THSICE
257          IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
258    #endif
259    
260    #ifdef ALLOW_SHELFICE
261          IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
262    #endif /* ALLOW_SHELFICE */
263    
264    #ifdef COMPONENT_MODULE
265          IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
266  #endif  #endif
267    
 CAMM  
268  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
269        IF (usediagnostics) then        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
270         call diagnostics_initialise(mythid)  #endif
271        ENDIF  
272    #ifdef ALLOW_EMBED_FILES
273          IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )
274    #endif
275    
276    #ifdef ALLOW_MYPACKAGE
277          IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)
278  #endif  #endif
 CAMM  
279    
280        RETURN        RETURN
281        END        END
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22