/[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.3 by adcroft, Thu Sep 13 17:43:55 2001 UTC revision 1.61 by dimitri, Wed Nov 28 09:26:16 2007 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       |-- 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:
88          IMPLICIT NONE
89  C     === Global variables ===  C     === Global variables ===
90  #include "SIZE.h"  #include "SIZE.h"
91  #include "EEPARAMS.h"  #include "EEPARAMS.h"
92  #include "PARAMS.h"  #include "PARAMS.h"
93    
94    C     !INPUT/OUTPUT PARAMETERS:
95  C     === Routine arguments ===  C     === Routine arguments ===
96  C     myThid -  Number of this instances  C     myThid -  Number of this instances
97        INTEGER myThid        INTEGER myThid
98    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
116          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_OPPS
154          IF (useOPPS) CALL OPPS_INIT( myThid )
155    #endif /* ALLOW_OPPS */
156    
157  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
158  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 26  C--   Initialize fixed arrays for OBCS Line 160  C--   Initialize fixed arrays for OBCS
160         CALL OBCS_INIT_FIXED( myThid )         CALL OBCS_INIT_FIXED( myThid )
161        ENDIF        ENDIF
162  #endif  #endif
163    
164  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
165  C--   Initialise Float positions  C--   Initialise Float positions
166        IF (useFLT) then        IF (useFLT) THEN
167         CALL FLT_INIT(nIter0,startTime,myThid )         CALL FLT_INIT(nIter0,startTime,myThid )
168        _BARRIER        _BARRIER
169        ENDIF        ENDIF
170  #endif  #endif
171    
172    #ifdef ALLOW_TIMEAVE
173    C     IF (useTIMEAVE) THEN
174          IF ( taveFreq.GT.0. ) THEN
175           CALL TIMEAVE_INIT_FIXED( myThid )
176          ENDIF
177    #endif
178    
179    #ifdef ALLOW_SHAP_FILT
180    C--   Shapiro filter initialisation
181          IF (useSHAP_FILT) THEN
182           CALL SHAP_FILT_INIT_FIXED( myThid )
183          ENDIF
184    #endif
185    
186    #ifdef ALLOW_ZONAL_FILT
187    C--   Latitude circle filter initialisation
188          IF (useZONAL_FILT) THEN
189           CALL ZONAL_FILT_INIT(myThid)
190          _BARRIER
191          ENDIF
192    #endif
193    
194    #ifdef ALLOW_AIM
195    C--   Initialise & Read AIM physical parameters
196          IF (useAIM) CALL AIM_INITIALISE( myThid )
197    #endif
198    
199    C AMM
200    #ifdef ALLOW_GRIDALT
201    C--   Initialise GRIDALT parameters - the alternative grid
202          IF (useGRIDALT) then
203           CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
204           CALL GRIDALT_INITIALISE( myThid )
205           CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
206          ENDIF
207    
208    #endif
209    
210    #ifdef ALLOW_FIZHI
211    C--   Initialise & Read FIZHI physical parameters
212          IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
213    #endif
214    C AMM
215    
216    #ifdef ALLOW_LAND
217    C--   Initialise & Read Land package parameters
218          IF (useLand) CALL LAND_INITIALISE( myThid )
219    #endif
220    
221    #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
222    C--   Initialise ecco-specific cost function.
223    C--   This needs to preceed the call ctrl_init
224    C--   in order to provide the weight files
225          IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid )
226    #endif
227    
228    #if (defined (ALLOW_ECCO) && 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          CALL ECCO_COST_INIT_FIXED( myThid )
233    #endif
234    
235    #ifdef ALLOW_PROFILES
236          CALL PROFILES_INIT_FIXED( myThid )
237    #endif
238    
239    #ifdef ALLOW_AUTODIFF
240    C--   Initialise the control variables
241          CALL CTRL_INIT( myThid )
242          _BARRIER
243    #endif
244    
245    #ifdef ALLOW_ADMTLM
246    C--   Initialise ADMTLM
247          CALL CTRL_ADMTLM( myThid )
248          _BARRIER
249    #endif
250    
251    #ifdef ALLOW_PTRACERS
252          IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
253    #endif
254    
255    #ifdef ALLOW_GCHEM
256          IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
257    #endif
258    
259    #ifdef ALLOW_DIC
260    C     IF (useDIC)
261          CALL DIC_INIT_FIXED(mythid)
262    #endif
263    
264    #ifdef ALLOW_RBCS
265          IF (useRBCS) CALL RBCS_INIT_FIXED(mythid)
266    #endif
267    
268    #ifdef ALLOW_THSICE
269          IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
270    #endif
271    
272    #ifdef ALLOW_SEAICE
273          IF (useSEAICE) CALL SEAICE_INIT_FIXED(mythid)
274    #endif
275    
276    #ifdef ALLOW_SHELFICE
277          IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
278    #endif /* ALLOW_SHELFICE */
279    
280    #ifdef ALLOW_EMBED_FILES
281          IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )
282    #endif
283    
284    #ifdef ALLOW_REGRID
285          IF ( useREGRID ) CALL REGRID_INIT_FIXED( mythid )
286    #endif
287    
288    #ifdef ALLOW_MYPACKAGE
289          IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)
290    #endif
291    
292    #ifdef COMPONENT_MODULE
293          IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
294    #endif
295    
296    #ifdef ALLOW_ATM2D
297          IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid )
298    #endif
299    
300    #ifdef ALLOW_SALT_PLUME
301          IF (useSALT_PLUME) CALL SALT_PLUME_INIT_FIXED(mythid)
302    #endif
303    
304    #ifdef ALLOW_DIAGNOSTICS
305    C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
306          IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
307    #endif
308    
309        RETURN        RETURN
310        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.61
  ViewVC Help
Powered by ViewVC 1.1.22