/[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.18 by molod, Thu Feb 12 16:01:32 2004 UTC revision 1.58 by heimbach, Wed Apr 18 23:56:06 2007 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       |-- 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       |-- AIM_INITIALISE  C       |-- AIM_INITIALISE
52  C       |  C       |
53    C       |-- GRIDALT_INITIALISE
54    C       |
55    C       |-- FIZHI_INIT_FIXED
56    C       |
57  C       |-- LAND_INITIALISE  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       |-- DIAGNOSTICS_INIT_FIXED
82    C       |
83    C       |-- REGRID_INIT_FIXED
84    
85  C     !USES:  C     !USES:
86        IMPLICIT NONE        IMPLICIT NONE
# Line 44  C     myThid -  Number of this instances Line 95  C     myThid -  Number of this instances
95        INTEGER myThid        INTEGER myThid
96  CEOP  CEOP
97    
98    #ifdef ALLOW_RUNCLOCK
99          IF ( useRunClock ) THEN
100            CALL RUNCLOCK_INIT( myThid )
101          ENDIF
102    #endif
103    
104    #ifdef ALLOW_DIAGNOSTICS
105          IF ( useDiagnostics ) THEN
106    C-    needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
107            CALL DIAGNOSTICS_INIT_EARLY( myThid )
108            CALL DIAGNOSTICS_MAIN_INIT( myThid )
109          ENDIF
110    #endif
111    
112    #ifdef ALLOW_GENERIC_ADVDIFF
113  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
114        CALL GAD_INIT( myThid )        CALL GAD_INIT_FIXED( myThid )
115    #endif
116    
117    #ifdef ALLOW_MOM_COMMON
118    C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
119          IF ( momStepping ) THEN
120           CALL MOM_INIT_FIXED( myThid )
121          ENDIF
122    #endif
123    
124    #ifdef ALLOW_CD_CODE
125          IF (useCDscheme) THEN
126           CALL CD_CODE_INIT_FIXED(mythid)
127          ENDIF
128    #endif
129    
130    #ifdef ALLOW_EXF
131    C--   Initialize fixed arrays for EXF
132          IF ( useEXF ) THEN
133           CALL EXF_INIT_FIXED( myThid )
134          ENDIF
135    #endif
136    
137    #ifdef ALLOW_GMREDI
138    C--   Initialize fixed arrays for GM-Redi
139          IF ( useGMRedi ) THEN
140           CALL GMREDI_INIT_FIXED( myThid )
141          ENDIF
142    #endif
143    
144    #ifdef ALLOW_KPP
145    C--   Initialize fixed arrays for KPP
146          IF ( useKPP ) THEN
147           CALL KPP_INIT_FIXED( myThid )
148          ENDIF
149    #endif
150    
151    #ifdef ALLOW_OPPS
152          IF (useOPPS) CALL OPPS_INIT( myThid )
153    #endif /* ALLOW_OPPS */
154    
155  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
156  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 53  C--   Initialize fixed arrays for OBCS Line 158  C--   Initialize fixed arrays for OBCS
158         CALL OBCS_INIT_FIXED( myThid )         CALL OBCS_INIT_FIXED( myThid )
159        ENDIF        ENDIF
160  #endif  #endif
161    
162  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
163  C--   Initialise Float positions  C--   Initialise Float positions
164        IF (useFLT) THEN        IF (useFLT) THEN
# Line 60  C--   Initialise Float positions Line 166  C--   Initialise Float positions
166        _BARRIER        _BARRIER
167        ENDIF        ENDIF
168  #endif  #endif
169    
170    #ifdef ALLOW_TIMEAVE
171    C     IF (useTIMEAVE) THEN
172          IF ( taveFreq.GT.0. ) THEN
173           CALL TIMEAVE_INIT_FIXED( myThid )
174          ENDIF
175    #endif
176    
177    #ifdef ALLOW_SHAP_FILT
178    C--   Shapiro filter initialisation
179          IF (useSHAP_FILT) THEN
180           CALL SHAP_FILT_INIT_FIXED( myThid )
181          ENDIF
182    #endif
183    
184  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
185  C--   Latitude circle filter initialisation  C--   Latitude circle filter initialisation
186        IF (useZONAL_FILT) THEN        IF (useZONAL_FILT) THEN
# Line 76  C--   Initialise & Read AIM physical par Line 197  C--   Initialise & Read AIM physical par
197  C AMM  C AMM
198  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GRIDALT
199  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialise GRIDALT parameters - the alternative grid
200        IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid )        IF (useGRIDALT) then
201           CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
202           CALL GRIDALT_INITIALISE( myThid )
203           CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
204          ENDIF
205    
206  #endif  #endif
207    
208  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
# Line 90  C--   Initialise & Read Land package par Line 216  C--   Initialise & Read Land package par
216        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
217  #endif  #endif
218    
219    #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
220    C--   Initialise ecco-specific cost function.
221    C--   This needs to preceed the call ctrl_init
222    C--   in order to provide the weight files
223          IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid )
224    #endif
225    
226  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
227  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
228  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
229  C--   in order to provide the weight files  C--   in order to provide the weight files
230        IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )        CALL ECCO_COST_INIT_FIXED( myThid )
231    #endif
232    
233    #ifdef ALLOW_PROFILES
234          CALL PROFILES_INIT_FIXED( myThid )
235  #endif  #endif
236    
237  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
# Line 104  C--   Initialise the control variables Line 241  C--   Initialise the control variables
241  #endif  #endif
242    
243  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
244          IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
245    #endif
246    
247  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
248        IF (usePTRACERS) then        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
249         call GCHEM_INIT_FIXED(mythid)  #endif
250        ENDIF  
251    #ifdef ALLOW_DIC
252    C     IF (useDIC)
253          CALL DIC_INIT_FIXED(mythid)
254    #endif
255    
256    #ifdef ALLOW_RBCS
257          IF (useRBCS) CALL RBCS_INIT_FIXED(mythid)
258    #endif
259    
260    #ifdef ALLOW_THSICE
261          IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
262    #endif
263    
264    #ifdef ALLOW_SEAICE
265          IF (useSEAICE) CALL SEAICE_INIT_FIXED(mythid)
266  #endif  #endif
267    
268    #ifdef ALLOW_SHELFICE
269          IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
270    #endif /* ALLOW_SHELFICE */
271    
272    #ifdef ALLOW_EMBED_FILES
273          IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )
274    #endif
275    
276    #ifdef ALLOW_REGRID
277          IF ( useREGRID ) CALL REGRID_INIT_FIXED( mythid )
278    #endif
279    
280    #ifdef ALLOW_MYPACKAGE
281          IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)
282    #endif
283    
284    #ifdef COMPONENT_MODULE
285          IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
286    #endif
287    
288    #ifdef ALLOW_ATM2D
289          IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid )
290  #endif  #endif
291    
 CAMM  
292  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
293        IF (usediagnostics) then  C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
294         call diagnostics_init(mythid)        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
       ENDIF  
295  #endif  #endif
 CAMM  
296    
297        RETURN        RETURN
298        END        END
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.58
  ViewVC Help
Powered by ViewVC 1.1.22