/[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.35 by jmc, Tue Jan 4 00:29:06 2005 UTC revision 1.60 by dimitri, Wed Nov 28 00:18:17 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  C       |-- DIAGNOSTICS_INIT_EARLY
25  C       |-- DIAGNOSTICS_MAIN_INIT  C       |-- DIAGNOSTICS_MAIN_INIT
26  C       |  C       |
27  C       |-- GAD_INIT  C       |-- GAD_INIT
28  C       |  C       |
29    C       |-- MOM_INIT_FIXED
30    C       |
31  C       |-- CD_CODE_INIT_FIXED  C       |-- CD_CODE_INIT_FIXED
32  C       |  C       |
33    C       |-- EXF_INIT_FIXED
34    C       |
35  C       |-- GMREDI_INIT_FIXED  C       |-- GMREDI_INIT_FIXED
36  C       |  C       |
37    C       |-- KPP_INIT_FIXED
38    C       |
39  C       |-- OPPS_INIT  C       |-- OPPS_INIT
40  C       |  C       |
41  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
# Line 36  C       |-- FLT_INIT Line 44  C       |-- FLT_INIT
44  C       |  C       |
45  C       |-- TIMEAVE_INIT_FIXED  C       |-- TIMEAVE_INIT_FIXED
46  C       |  C       |
47  C       |-- ZONAL_FILT_INIT  C       |-- SHAP_FILT_INIT_FIZED
48  C       |  C       |
49  C       |-- ATM_DIAGNOSTICS_INIT  C       |-- ZONAL_FILT_INIT
50  C       |  C       |
51  C       |-- AIM_INITIALISE  C       |-- AIM_INITIALISE
52  C       |  C       |
# Line 48  C       |-- FIZHI_INIT_FIXED Line 56  C       |-- FIZHI_INIT_FIXED
56  C       |  C       |
57  C       |-- LAND_INITIALISE  C       |-- LAND_INITIALISE
58  C       |  C       |
59    C       |-- SEAICE_COST_INIT_FIXED
60    C       |
61  C       |-- ECCO_COST_INIT_FIXED  C       |-- ECCO_COST_INIT_FIXED
62  C       |  C       |
63  C       |-- CTRL_INIT  C       |-- CTRL_INIT
64  C       |  C       |
65  C       |-- PTRACERS_INITIALISE  C       |-- PTRACERS_INIT_FIXED
66  C       |  C       |
67  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
68  C       |  C       |
69    C       |-- DIC_INIT_FIXED
70    C       |
71  C       |-- THSICE_INIT_FIXED  C       |-- THSICE_INIT_FIXED
72  C       |  C       |
73    C       |-- SHELFICE_INIT_FIXED
74    C       |
75    C       |-- MYPACKAGE_INIT_FIXED
76    C       |
77  C       |-- CPL_INIT_FIXED  C       |-- CPL_INIT_FIXED
78  C       |  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  C       |-- DIAGNOSTICS_INIT_FIXED
86    
87  C     !USES:  C     !USES:
# Line 75  C     myThid -  Number of this instances Line 97  C     myThid -  Number of this instances
97        INTEGER myThid        INTEGER myThid
98  CEOP  CEOP
99    
100    #ifdef ALLOW_RUNCLOCK
101          IF ( useRunClock ) THEN
102            CALL RUNCLOCK_INIT( myThid )
103          ENDIF
104    #endif
105    
106  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
107        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
108    C-    needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
109          CALL DIAGNOSTICS_INIT_EARLY( myThid )          CALL DIAGNOSTICS_INIT_EARLY( myThid )
110          CALL DIAGNOSTICS_MAIN_INIT( myThid )          CALL DIAGNOSTICS_MAIN_INIT( myThid )
111        ENDIF        ENDIF
# Line 84  CEOP Line 113  CEOP
113    
114  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
115  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
116        CALL GAD_INIT( myThid )        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  #endif
125    
126  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
# Line 93  C--   Initialize fixed params for GAD Line 129  C--   Initialize fixed params for GAD
129        ENDIF        ENDIF
130  #endif  #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  #ifdef ALLOW_GMREDI
140  C--   Initialize fixed arrays for GM-Redi  C--   Initialize fixed arrays for GM-Redi
141        IF ( useGMRedi ) THEN        IF ( useGMRedi ) THEN
# Line 100  C--   Initialize fixed arrays for GM-Red Line 143  C--   Initialize fixed arrays for GM-Red
143        ENDIF        ENDIF
144  #endif  #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  #ifdef ALLOW_OPPS
154        IF (useOPPS) CALL OPPS_INIT( myThid )        IF (useOPPS) CALL OPPS_INIT( myThid )
155  #endif /* ALLOW_OPPS */  #endif /* ALLOW_OPPS */
# Line 121  C--   Initialise Float positions Line 171  C--   Initialise Float positions
171    
172  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
173  C     IF (useTIMEAVE) THEN  C     IF (useTIMEAVE) THEN
174        CALL TIMEAVE_INIT_FIXED( myThid )        IF ( taveFreq.GT.0. ) THEN
175  C     ENDIF         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  #endif
185    
186  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
# Line 133  C--   Latitude circle filter initialisat Line 191  C--   Latitude circle filter initialisat
191        ENDIF        ENDIF
192  #endif  #endif
193    
 #ifdef ALLOW_ATM_COMMON  
 C--   Initialise parameters shared by atmospheric physics packages  
       IF ( (useAIM.OR.useFIZHI)  .AND. useDiagnostics ) THEN  
         CALL ATM_DIAGNOSTICS_INIT( myThid )  
       ENDIF  
 #endif  
   
194  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
195  C--   Initialise & Read AIM physical parameters  C--   Initialise & Read AIM physical parameters
196        IF (useAIM) CALL AIM_INITIALISE( myThid )        IF (useAIM) CALL AIM_INITIALISE( myThid )
# Line 167  C--   Initialise & Read Land package par Line 218  C--   Initialise & Read Land package par
218        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
219  #endif  #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))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
229  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
230  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
231  C--   in order to provide the weight files  C--   in order to provide the weight files
232        IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )        CALL ECCO_COST_INIT_FIXED( myThid )
233    #endif
234    
235    #ifdef ALLOW_PROFILES
236          CALL PROFILES_INIT_FIXED( myThid )
237  #endif  #endif
238    
239  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
# Line 180  C--   Initialise the control variables Line 242  C--   Initialise the control variables
242        _BARRIER        _BARRIER
243  #endif  #endif
244    
245    #ifdef ALLOW_ADMTLM
246    C--   Initialise ADMTLM
247          CALL CTRL_ADMTLM( myThid )
248          _BARRIER
249    #endif
250    
251  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
252        IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)        IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
253  #endif  #endif
254    
255  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
256        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
257  #endif  #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  #ifdef ALLOW_THSICE
269        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
270  #endif  #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  #ifdef COMPONENT_MODULE
293        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
294  #endif  #endif
295    
296    #ifdef ALLOW_ATM2D
297          IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid )
298    #endif
299    
300    #ifdef ALLOW_SALT_PLUME
301          IF (useSaltPlume) CALL SALT_PLUME_INIT_FIXED(mythid)
302    #endif
303    
304  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
305        IF ( useDiagnostics ) THEN  C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
306          CALL DIAGNOSTICS_INIT_FIXED( myThid )        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
       ENDIF  
307  #endif  #endif
308    
309        RETURN        RETURN
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.60
  ViewVC Help
Powered by ViewVC 1.1.22