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