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