/[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.2 by adcroft, Fri Feb 2 21:04:48 2001 UTC revision 1.51 by jmc, Sat Jul 29 21:00:09 2006 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7    CBOP
8    C     !ROUTINE: PACKAGES_INIT_FIXED
9    C     !INTERFACE:
10        SUBROUTINE PACKAGES_INIT_FIXED( myThid )        SUBROUTINE PACKAGES_INIT_FIXED( myThid )
 C     /==========================================================\  
 C     | SUBROUTINE PACKAGES_INIT_FIXED                           |  
 C     | o Does initialisation of package-related fixed fields    |  
 C     |==========================================================|  
 C     \==========================================================/  
       IMPLICIT NONE  
11    
12    C     !DESCRIPTION: \bv
13    C     *==========================================================*
14    C     | SUBROUTINE PACKAGES_INIT_FIXED
15    C     | o Does initialisation of package-related fixed fields
16    C     *==========================================================*
17    C     \ev
18    
19    C     !CALLING SEQUENCE:
20    C     PACKAGES_INIT_FIXED
21    C       |
22    C       |-- RUNCLOCK_INIT
23    C       |
24    C       |-- DIAGNOSTICS_INIT_EARLY
25    C       |-- DIAGNOSTICS_MAIN_INIT
26    C       |
27    C       |-- GAD_INIT
28    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
42    C       |
43    C       |-- FLT_INIT
44    C       |
45    C       |-- TIMEAVE_INIT_FIXED
46    C       |
47    C       |-- SHAP_FILT_INIT_FIZED
48    C       |
49    C       |-- ZONAL_FILT_INIT
50    C       |
51    C       |-- AIM_INITIALISE
52    C       |
53    C       |-- GRIDALT_INITIALISE
54    C       |
55    C       |-- FIZHI_INIT_FIXED
56    C       |
57    C       |-- LAND_INITIALISE
58    C       |
59    C       |-- SEAICE_COST_INIT_FIXED
60    C       |
61    C       |-- ECCO_COST_INIT_FIXED
62    C       |
63    C       |-- CTRL_INIT
64    C       |
65    C       |-- PTRACERS_INIT_FIXED
66    C       |
67    C       |-- GCHEM_INIT_FIXED
68    C       |
69    C       |-- DIC_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       |-- DIAGNOSTICS_INIT_FIXED
80    
81    C     !USES:
82          IMPLICIT NONE
83  C     === Global variables ===  C     === Global variables ===
84  #include "SIZE.h"  #include "SIZE.h"
85  #include "EEPARAMS.h"  #include "EEPARAMS.h"
86  #include "PARAMS.h"  #include "PARAMS.h"
87    
88    C     !INPUT/OUTPUT PARAMETERS:
89  C     === Routine arguments ===  C     === Routine arguments ===
90  C     myThid -  Number of this instances  C     myThid -  Number of this instances
91        INTEGER myThid        INTEGER myThid
92    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    C-    needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
103            CALL DIAGNOSTICS_INIT_EARLY( myThid )
104            CALL DIAGNOSTICS_MAIN_INIT( myThid )
105          ENDIF
106    #endif
107    
108    #ifdef ALLOW_GENERIC_ADVDIFF
109    C--   Initialize fixed params for GAD
110          CALL GAD_INIT( myThid )
111    #endif
112    
113    #ifdef ALLOW_MOM_COMMON
114    C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
115          IF ( momStepping ) THEN
116           CALL MOM_INIT_FIXED( myThid )
117          ENDIF
118    #endif
119    
120    #ifdef ALLOW_CD_CODE
121          IF (useCDscheme) THEN
122           CALL CD_CODE_INIT_FIXED(mythid)
123          ENDIF
124    #endif
125    
126    #ifdef ALLOW_EXF
127    C--   Initialize fixed arrays for EXF
128    c     IF ( useEXF ) THEN
129           CALL EXF_INIT_FIXED( myThid )
130    c     ENDIF
131    #endif
132    
133    #ifdef ALLOW_GMREDI
134    C--   Initialize fixed arrays for GM-Redi
135          IF ( useGMRedi ) THEN
136           CALL GMREDI_INIT_FIXED( myThid )
137          ENDIF
138    #endif
139    
140    #ifdef ALLOW_KPP
141    C--   Initialize fixed arrays for KPP
142          IF ( useKPP ) THEN
143           CALL KPP_INIT_FIXED( myThid )
144          ENDIF
145    #endif
146    
147    #ifdef ALLOW_OPPS
148          IF (useOPPS) CALL OPPS_INIT( myThid )
149    #endif /* ALLOW_OPPS */
150    
151  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
152  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 27  C--   Initialize fixed arrays for OBCS Line 155  C--   Initialize fixed arrays for OBCS
155        ENDIF        ENDIF
156  #endif  #endif
157    
158    #ifdef ALLOW_FLT
159    C--   Initialise Float positions
160          IF (useFLT) THEN
161           CALL FLT_INIT(nIter0,startTime,myThid )
162          _BARRIER
163          ENDIF
164    #endif
165    
166    #ifdef ALLOW_TIMEAVE
167    C     IF (useTIMEAVE) THEN
168          IF ( taveFreq.GT.0. ) THEN
169           CALL TIMEAVE_INIT_FIXED( myThid )
170          ENDIF
171    #endif
172    
173    #ifdef ALLOW_SHAP_FILT
174    C--   Shapiro filter initialisation
175          IF (useSHAP_FILT) THEN
176           CALL SHAP_FILT_INIT_FIXED( myThid )
177          ENDIF
178    #endif
179    
180    #ifdef ALLOW_ZONAL_FILT
181    C--   Latitude circle filter initialisation
182          IF (useZONAL_FILT) THEN
183           CALL ZONAL_FILT_INIT(myThid)
184          _BARRIER
185          ENDIF
186    #endif
187    
188    #ifdef ALLOW_AIM
189    C--   Initialise & Read AIM physical parameters
190          IF (useAIM) CALL AIM_INITIALISE( myThid )
191    #endif
192    
193    C AMM
194    #ifdef ALLOW_GRIDALT
195    C--   Initialise GRIDALT parameters - the alternative grid
196          IF (useGRIDALT) then
197           CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
198           CALL GRIDALT_INITIALISE( myThid )
199           CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
200          ENDIF
201    
202    #endif
203    
204    #ifdef ALLOW_FIZHI
205    C--   Initialise & Read FIZHI physical parameters
206          IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
207    #endif
208    C AMM
209    
210    #ifdef ALLOW_LAND
211    C--   Initialise & Read Land package parameters
212          IF (useLand) CALL LAND_INITIALISE( myThid )
213    #endif
214    
215    #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
216    C--   Initialise ecco-specific cost function.
217    C--   This needs to preceed the call ctrl_init
218    C--   in order to provide the weight files
219          CALL SEAICE_COST_INIT_FIXED( myThid )
220    #endif
221    
222    #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
223    C--   Initialise ecco-specific cost function.
224    C--   This needs to preceed the call ctrl_init
225    C--   in order to provide the weight files
226          CALL ECCO_COST_INIT_FIXED( myThid )
227    #endif
228    
229    #ifdef ALLOW_PROFILES
230          CALL PROFILES_INIT_FIXED( myThid )
231    #endif
232    
233    #ifdef ALLOW_AUTODIFF
234    C--   Initialise the control variables
235          CALL CTRL_INIT( myThid )
236          _BARRIER
237    #endif
238    
239    #ifdef ALLOW_PTRACERS
240          IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
241    #endif
242    
243    #ifdef ALLOW_GCHEM
244          IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
245    #endif
246    
247    #ifdef ALLOW_DIC
248    C     IF (useDIC)
249          CALL DIC_INIT_FIXED(mythid)
250    #endif
251    
252    #ifdef ALLOW_RBCS
253          IF (useRBCS) CALL RBCS_INIT_FIXED(mythid)
254    #endif
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 ALLOW_MYPACKAGE
265          IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)
266    #endif
267    
268    #ifdef COMPONENT_MODULE
269          IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
270    #endif
271    
272    #ifdef ALLOW_DIAGNOSTICS
273    C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
274          IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
275    #endif
276    
277    #ifdef ALLOW_EMBED_FILES
278          IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )
279    #endif
280    
281        RETURN        RETURN
282        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.51
  ViewVC Help
Powered by ViewVC 1.1.22