/[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.60 by dimitri, Wed Nov 28 00:18:17 2007 UTC revision 1.69 by rpa, Wed Sep 16 21:36:11 2009 UTC
# Line 34  C       |-- EXF_INIT_FIXED Line 34  C       |-- EXF_INIT_FIXED
34  C       |  C       |
35  C       |-- GMREDI_INIT_FIXED  C       |-- GMREDI_INIT_FIXED
36  C       |  C       |
37    C       |-- DWNSLP_INIT_FIXED
38    C       |
39  C       |-- KPP_INIT_FIXED  C       |-- KPP_INIT_FIXED
40  C       |  C       |
41    C       |-- MY82_INIT_FIXED
42    C       |
43    C       |-- GGL90_INIT_FIXED
44    C       |
45  C       |-- OPPS_INIT  C       |-- OPPS_INIT
46  C       |  C       |
47  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
48  C       |  C       |
 C       |-- FLT_INIT  
 C       |  
49  C       |-- TIMEAVE_INIT_FIXED  C       |-- TIMEAVE_INIT_FIXED
50  C       |  C       |
51  C       |-- SHAP_FILT_INIT_FIZED  C       |-- SHAP_FILT_INIT_FIZED
# Line 60  C       |-- SEAICE_COST_INIT_FIXED Line 64  C       |-- SEAICE_COST_INIT_FIXED
64  C       |  C       |
65  C       |-- ECCO_COST_INIT_FIXED  C       |-- ECCO_COST_INIT_FIXED
66  C       |  C       |
67    C       |-- PROFILES_INIT_FIXED
68    C       |
69  C       |-- CTRL_INIT  C       |-- CTRL_INIT
70  C       |  C       |
71    C       |-- FLT_INIT_FIXED
72    C       |
73    C       |-- LONGSTEP_INIT_FIXED
74    C       |
75  C       |-- PTRACERS_INIT_FIXED  C       |-- PTRACERS_INIT_FIXED
76  C       |  C       |
77  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
78  C       |  C       |
 C       |-- DIC_INIT_FIXED  
 C       |  
79  C       |-- THSICE_INIT_FIXED  C       |-- THSICE_INIT_FIXED
80  C       |  C       |
81  C       |-- SHELFICE_INIT_FIXED  C       |-- SHELFICE_INIT_FIXED
82  C       |  C       |
 C       |-- MYPACKAGE_INIT_FIXED  
 C       |  
83  C       |-- CPL_INIT_FIXED  C       |-- CPL_INIT_FIXED
84  C       |  C       |
85  C       |-- ATM2D_INIT_FIXED  C       |-- ATM2D_INIT_FIXED
86  C       |  C       |
87  C       |-- REGRID_INIT_FIXED  C       |-- REGRID_INIT_FIXED
88  C       |  C       |
89    C       |-- LAYERS_INIT_FIXED
90    C       |
91  C       |-- SALT_PLUME_INIT_FIXED  C       |-- SALT_PLUME_INIT_FIXED
92  C       |  C       |
93    C       |-- MYPACKAGE_INIT_FIXED
94    C       |
95  C       |-- DIAGNOSTICS_INIT_FIXED  C       |-- DIAGNOSTICS_INIT_FIXED
96    
97    
98  C     !USES:  C     !USES:
99        IMPLICIT NONE        IMPLICIT NONE
100  C     === Global variables ===  C     === Global variables ===
# Line 125  C--   Initialize fixed params for Moment Line 136  C--   Initialize fixed params for Moment
136    
137  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
138        IF (useCDscheme) THEN        IF (useCDscheme) THEN
139         CALL CD_CODE_INIT_FIXED(mythid)         CALL CD_CODE_INIT_FIXED(myThid)
140        ENDIF        ENDIF
141  #endif  #endif
142    
# Line 143  C--   Initialize fixed arrays for GM-Red Line 154  C--   Initialize fixed arrays for GM-Red
154        ENDIF        ENDIF
155  #endif  #endif
156    
157    #ifdef ALLOW_DOWN_SLOPE
158    C--   Initialize fixed arrays for Down-Slope pkg
159          IF ( useDOWN_SLOPE ) THEN
160           CALL DWNSLP_INIT_FIXED( myThid )
161          ENDIF
162    #endif
163    
164  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
165  C--   Initialize fixed arrays for KPP  C--   Initialize fixed arrays for KPP
166        IF ( useKPP ) THEN        IF ( useKPP ) THEN
# Line 150  C--   Initialize fixed arrays for KPP Line 168  C--   Initialize fixed arrays for KPP
168        ENDIF        ENDIF
169  #endif  #endif
170    
171    #ifdef ALLOW_MY82
172    C--   Initialize fixed arrays for MY82
173          IF ( useMY82 ) THEN
174           CALL MY82_INIT_FIXED( myThid )
175          ENDIF
176    #endif
177    
178    #ifdef ALLOW_GGL90
179    C--   Initialize fixed arrays for GGL90
180          IF ( useGGL90 ) THEN
181           CALL GGL90_INIT_FIXED( myThid )
182          ENDIF
183    #endif
184    
185  #ifdef ALLOW_OPPS  #ifdef ALLOW_OPPS
186        IF (useOPPS) CALL OPPS_INIT( myThid )        IF (useOPPS) CALL OPPS_INIT( myThid )
187  #endif /* ALLOW_OPPS */  #endif /* ALLOW_OPPS */
# Line 161  C--   Initialize fixed arrays for OBCS Line 193  C--   Initialize fixed arrays for OBCS
193        ENDIF        ENDIF
194  #endif  #endif
195    
 #ifdef ALLOW_FLT  
 C--   Initialise Float positions  
       IF (useFLT) THEN  
        CALL FLT_INIT(nIter0,startTime,myThid )  
       _BARRIER  
       ENDIF  
 #endif  
   
196  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
197  C     IF (useTIMEAVE) THEN  C     IF (useTIMEAVE) THEN
198        IF ( taveFreq.GT.0. ) THEN        IF ( taveFreq.GT.0. ) THEN
# Line 187  C--   Shapiro filter initialisation Line 211  C--   Shapiro filter initialisation
211  C--   Latitude circle filter initialisation  C--   Latitude circle filter initialisation
212        IF (useZONAL_FILT) THEN        IF (useZONAL_FILT) THEN
213         CALL ZONAL_FILT_INIT(myThid)         CALL ZONAL_FILT_INIT(myThid)
       _BARRIER  
214        ENDIF        ENDIF
215  #endif  #endif
216    
# Line 200  C AMM Line 223  C AMM
223  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GRIDALT
224  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialise GRIDALT parameters - the alternative grid
225        IF (useGRIDALT) then        IF (useGRIDALT) then
226         CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)         CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',myThid)
227         CALL GRIDALT_INITIALISE( myThid )         CALL GRIDALT_INITIALISE( myThid )
228         CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)         CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',myThid)
229        ENDIF        ENDIF
230    
231  #endif  #endif
# Line 239  C--   in order to provide the weight fil Line 262  C--   in order to provide the weight fil
262  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
263  C--   Initialise the control variables  C--   Initialise the control variables
264        CALL CTRL_INIT( myThid )        CALL CTRL_INIT( myThid )
       _BARRIER  
265  #endif  #endif
266    
267  #ifdef ALLOW_ADMTLM  #ifdef ALLOW_ADMTLM
268  C--   Initialise ADMTLM  C--   Initialise ADMTLM
269        CALL CTRL_ADMTLM( myThid )        CALL CTRL_ADMTLM( myThid )
270        _BARRIER  #endif
271    
272    #ifdef ALLOW_FLT
273    C--   Initialise fixed array for Float pkg
274          IF ( useFLT ) CALL FLT_INIT_FIXED( myThid )
275    #endif
276    
277    #ifdef ALLOW_LONGSTEP
278          IF (usePTRACERS) CALL LONGSTEP_INIT_FIXED(myThid)
279  #endif  #endif
280    
281  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
# Line 253  C--   Initialise ADMTLM Line 283  C--   Initialise ADMTLM
283  #endif  #endif
284    
285  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
286        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)        IF (useGCHEM) CALL GCHEM_INIT_FIXED(myThid)
 #endif  
   
 #ifdef ALLOW_DIC  
 C     IF (useDIC)  
       CALL DIC_INIT_FIXED(mythid)  
287  #endif  #endif
288    
289  #ifdef ALLOW_RBCS  #ifdef ALLOW_RBCS
290        IF (useRBCS) CALL RBCS_INIT_FIXED(mythid)        IF (useRBCS) CALL RBCS_INIT_FIXED(myThid)
291  #endif  #endif
292    
293  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
294        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)        IF (useThSIce) CALL THSICE_INIT_FIXED(myThid)
295  #endif  #endif
296    
297  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
298        IF (useSEAICE) CALL SEAICE_INIT_FIXED(mythid)        IF (useSEAICE) CALL SEAICE_INIT_FIXED(myThid)
299  #endif  #endif
300    
301  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
# Line 278  C     IF (useDIC) Line 303  C     IF (useDIC)
303  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
304    
305  #ifdef ALLOW_EMBED_FILES  #ifdef ALLOW_EMBED_FILES
306        IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )        IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( myThid )
307  #endif  #endif
308    
309  #ifdef ALLOW_REGRID  #ifdef ALLOW_REGRID
310        IF ( useREGRID ) CALL REGRID_INIT_FIXED( mythid )        IF ( useREGRID ) CALL REGRID_INIT_FIXED( myThid )
311  #endif  #endif
312    
313  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_LAYERS
314        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)        IF ( useLayers ) CALL LAYERS_INIT_FIXED( myThid )
315  #endif  #endif /* ALLOW_LAYERS */
316    
317  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
318        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )        IF ( useCoupler ) CALL CPL_INIT_FIXED( myThid )
319  #endif  #endif
320    
321  #ifdef ALLOW_ATM2D  #ifdef ALLOW_ATM2D
# Line 298  C     IF (useDIC) Line 323  C     IF (useDIC)
323  #endif  #endif
324    
325  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_SALT_PLUME
326        IF (useSaltPlume) CALL SALT_PLUME_INIT_FIXED(mythid)        IF (useSALT_PLUME) CALL SALT_PLUME_INIT_FIXED(myThid)
327    #endif
328    
329    #ifdef ALLOW_MYPACKAGE
330          IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(myThid)
331  #endif  #endif
332    
333  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
Legend:
Removed from v.1.60  
changed lines
  Added in v.1.69
  ViewVC Help
Powered by ViewVC 1.1.22