/[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.45 by stephd, Thu Dec 8 00:15:52 2005 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       |-- ATM_DIAGNOSTICS_INIT
52    C       |
53    C       |-- AIM_INITIALISE
54    C       |
55    C       |-- GRIDALT_INITIALISE
56    C       |
57    C       |-- FIZHI_INIT_FIXED
58    C       |
59    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_INITIALISE
68    C       |
69    C       |-- GCHEM_INIT_FIXED
70    C       |
71    C       |-- DIC_INIT_FIXED
72    C       |
73    C       |-- THSICE_INIT_FIXED
74    C       |
75    C       |-- CPL_INIT_FIXED
76    C       |
77    C       |-- DIAGNOSTICS_INIT_FIXED
78    
79    C     !USES:
80          IMPLICIT NONE
81  C     === Global variables ===  C     === Global variables ===
82  #include "SIZE.h"  #include "SIZE.h"
83  #include "EEPARAMS.h"  #include "EEPARAMS.h"
84  #include "PARAMS.h"  #include "PARAMS.h"
85    
86    C     !INPUT/OUTPUT PARAMETERS:
87  C     === Routine arguments ===  C     === Routine arguments ===
88  C     myThid -  Number of this instances  C     myThid -  Number of this instances
89        INTEGER myThid        INTEGER myThid
90    CEOP
91    
92    #ifdef ALLOW_RUNCLOCK
93          IF ( useRunClock ) THEN
94            CALL RUNCLOCK_INIT( myThid )
95          ENDIF
96    #endif
97    
98    #ifdef ALLOW_DIAGNOSTICS
99          IF ( useDiagnostics ) THEN
100            CALL DIAGNOSTICS_INIT_EARLY( myThid )
101            CALL DIAGNOSTICS_MAIN_INIT( myThid )
102          ENDIF
103    #endif
104    
105    #ifdef ALLOW_GENERIC_ADVDIFF
106    C--   Initialize fixed params for GAD
107          CALL GAD_INIT( myThid )
108    #endif
109    
110    #ifdef ALLOW_MOM_COMMON
111    C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
112          IF ( momStepping ) THEN
113           CALL MOM_INIT_FIXED( myThid )
114          ENDIF
115    #endif
116    
117    #ifdef ALLOW_CD_CODE
118          IF (useCDscheme) THEN
119           CALL CD_CODE_INIT_FIXED(mythid)
120          ENDIF
121    #endif
122    
123    #ifdef ALLOW_EXF
124    C--   Initialize fixed arrays for EXF
125    c     IF ( useEXF ) THEN
126           CALL EXF_INIT_FIXED( myThid )
127    c     ENDIF
128    #endif
129    
130    #ifdef ALLOW_GMREDI
131    C--   Initialize fixed arrays for GM-Redi
132          IF ( useGMRedi ) THEN
133           CALL GMREDI_INIT_FIXED( myThid )
134          ENDIF
135    #endif
136    
137    #ifdef ALLOW_KPP
138    C--   Initialize fixed arrays for KPP
139          IF ( useKPP ) THEN
140           CALL KPP_INIT_FIXED( myThid )
141          ENDIF
142    #endif
143    
144    #ifdef ALLOW_OPPS
145          IF (useOPPS) CALL OPPS_INIT( myThid )
146    #endif /* ALLOW_OPPS */
147    
148  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
149  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 26  C--   Initialize fixed arrays for OBCS Line 151  C--   Initialize fixed arrays for OBCS
151         CALL OBCS_INIT_FIXED( myThid )         CALL OBCS_INIT_FIXED( myThid )
152        ENDIF        ENDIF
153  #endif  #endif
154    
155  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
156  C--   Initialise Float positions  C--   Initialise Float positions
157        IF (useFLT) then        IF (useFLT) THEN
158         CALL FLT_INIT(nIter0,startTime,myThid )         CALL FLT_INIT(nIter0,startTime,myThid )
159        _BARRIER        _BARRIER
160        ENDIF        ENDIF
161  #endif  #endif
162    
163    #ifdef ALLOW_TIMEAVE
164    C     IF (useTIMEAVE) THEN
165          IF ( taveFreq.GT.0. ) THEN
166           CALL TIMEAVE_INIT_FIXED( myThid )
167          ENDIF
168    #endif
169    
170    #ifdef ALLOW_SHAP_FILT
171    C--   Shapiro filter initialisation
172          IF (useSHAP_FILT) THEN
173           CALL SHAP_FILT_INIT_FIXED( myThid )
174          ENDIF
175    #endif
176    
177    #ifdef ALLOW_ZONAL_FILT
178    C--   Latitude circle filter initialisation
179          IF (useZONAL_FILT) THEN
180           CALL ZONAL_FILT_INIT(myThid)
181          _BARRIER
182          ENDIF
183    #endif
184    
185    #ifdef ALLOW_AIM
186    C--   Initialise & Read AIM physical parameters
187          IF (useAIM) CALL AIM_INITIALISE( myThid )
188    #endif
189    
190    C AMM
191    #ifdef ALLOW_GRIDALT
192    C--   Initialise GRIDALT parameters - the alternative grid
193          IF (useGRIDALT) then
194           CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
195           CALL GRIDALT_INITIALISE( myThid )
196           CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
197          ENDIF
198    
199    #endif
200    
201    #ifdef ALLOW_FIZHI
202    C--   Initialise & Read FIZHI physical parameters
203          IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
204    #endif
205    C AMM
206    
207    #ifdef ALLOW_LAND
208    C--   Initialise & Read Land package parameters
209          IF (useLand) CALL LAND_INITIALISE( myThid )
210    #endif
211    
212    #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
213    C--   Initialise ecco-specific cost function.
214    C--   This needs to preceed the call ctrl_init
215    C--   in order to provide the weight files
216          CALL SEAICE_COST_INIT_FIXED( myThid )
217    #endif
218    
219    #if (defined (ALLOW_ECCO) && 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          CALL ECCO_COST_INIT_FIXED( myThid )
224    #endif
225    
226    #ifdef ALLOW_AUTODIFF
227    C--   Initialise the control variables
228          CALL CTRL_INIT( myThid )
229          _BARRIER
230    #endif
231    
232    #ifdef ALLOW_PTRACERS
233          IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
234    #endif
235    
236    #ifdef ALLOW_GCHEM
237          IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
238    #endif
239    
240    #ifdef ALLOW_DIC
241    C     IF (useDIC)
242          CALL DIC_INIT_FIXED(mythid)
243    #endif
244    
245    #ifdef ALLOW_RBCS
246          IF (useRBCS) CALL RBCS_INIT_FIXED(mythid)
247    #endif
248    
249    
250    #ifdef ALLOW_THSICE
251          IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
252    #endif
253    
254    #ifdef COMPONENT_MODULE
255          IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
256    #endif
257    
258    #ifdef ALLOW_DIAGNOSTICS
259          IF ( useDiagnostics ) THEN
260            CALL DIAGNOSTICS_INIT_FIXED( myThid )
261          ENDIF
262    #endif
263    
264        RETURN        RETURN
265        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.45
  ViewVC Help
Powered by ViewVC 1.1.22