/[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.36 by jmc, Tue Feb 15 01:54:53 2005 UTC
# Line 19  C     \ev Line 19  C     \ev
19  C     !CALLING SEQUENCE:  C     !CALLING SEQUENCE:
20  C     PACKAGES_INIT_FIXED  C     PACKAGES_INIT_FIXED
21  C       |  C       |
22    C       |-- DIAGNOSTICS_INIT_EARLY
23    C       |-- DIAGNOSTICS_MAIN_INIT
24    C       |
25  C       |-- GAD_INIT  C       |-- GAD_INIT
26  C       |  C       |
27    C       |-- CD_CODE_INIT_FIXED
28    C       |
29    C       |-- GMREDI_INIT_FIXED
30    C       |
31    C       |-- OPPS_INIT
32    C       |
33  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
34  C       |  C       |
35  C       |-- FLT_INIT  C       |-- FLT_INIT
36  C       |  C       |
37    C       |-- TIMEAVE_INIT_FIXED
38    C       |
39    C       |-- SHAP_FILT_INIT_FIZED
40    C       |
41  C       |-- ZONAL_FILT_INIT  C       |-- ZONAL_FILT_INIT
42  C       |  C       |
43    C       |-- ATM_DIAGNOSTICS_INIT
44    C       |
45  C       |-- AIM_INITIALISE  C       |-- AIM_INITIALISE
46  C       |  C       |
47    C       |-- GRIDALT_INITIALISE
48    C       |
49    C       |-- FIZHI_INIT_FIXED
50    C       |
51  C       |-- LAND_INITIALISE  C       |-- LAND_INITIALISE
52    C       |
53    C       |-- ECCO_COST_INIT_FIXED
54    C       |
55    C       |-- CTRL_INIT
56    C       |
57    C       |-- PTRACERS_INITIALISE
58    C       |
59    C       |-- GCHEM_INIT_FIXED
60    C       |
61    C       |-- THSICE_INIT_FIXED
62    C       |
63    C       |-- CPL_INIT_FIXED
64    C       |
65    C       |-- DIAGNOSTICS_INIT_FIXED
66    
67  C     !USES:  C     !USES:
68        IMPLICIT NONE        IMPLICIT NONE
# Line 44  C     myThid -  Number of this instances Line 77  C     myThid -  Number of this instances
77        INTEGER myThid        INTEGER myThid
78  CEOP  CEOP
79    
80    #ifdef ALLOW_DIAGNOSTICS
81          IF ( useDiagnostics ) THEN
82            CALL DIAGNOSTICS_INIT_EARLY( myThid )
83            CALL DIAGNOSTICS_MAIN_INIT( myThid )
84          ENDIF
85    #endif
86    
87    #ifdef ALLOW_GENERIC_ADVDIFF
88  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
89        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
90    #endif
91    
92    #ifdef ALLOW_CD_CODE
93          IF (useCDscheme) THEN
94           CALL CD_CODE_INIT_FIXED(mythid)
95          ENDIF
96    #endif
97    
98    #ifdef ALLOW_GMREDI
99    C--   Initialize fixed arrays for GM-Redi
100          IF ( useGMRedi ) THEN
101           CALL GMREDI_INIT_FIXED( myThid )
102          ENDIF
103    #endif
104    
105    #ifdef ALLOW_OPPS
106          IF (useOPPS) CALL OPPS_INIT( myThid )
107    #endif /* ALLOW_OPPS */
108    
109  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
110  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 53  C--   Initialize fixed arrays for OBCS Line 112  C--   Initialize fixed arrays for OBCS
112         CALL OBCS_INIT_FIXED( myThid )         CALL OBCS_INIT_FIXED( myThid )
113        ENDIF        ENDIF
114  #endif  #endif
115    
116  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
117  C--   Initialise Float positions  C--   Initialise Float positions
118        IF (useFLT) THEN        IF (useFLT) THEN
# Line 60  C--   Initialise Float positions Line 120  C--   Initialise Float positions
120        _BARRIER        _BARRIER
121        ENDIF        ENDIF
122  #endif  #endif
123    
124    #ifdef ALLOW_TIMEAVE
125    C     IF (useTIMEAVE) THEN
126          IF ( taveFreq.GT.0. ) THEN
127           CALL TIMEAVE_INIT_FIXED( myThid )
128          ENDIF
129    #endif
130    
131    #ifdef ALLOW_SHAP_FILT
132    C--   Shapiro filter initialisation
133          IF (useSHAP_FILT) THEN
134           CALL SHAP_FILT_INIT_FIXED( myThid )
135          ENDIF
136    #endif
137    
138  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
139  C--   Latitude circle filter initialisation  C--   Latitude circle filter initialisation
140        IF (useZONAL_FILT) THEN        IF (useZONAL_FILT) THEN
# Line 68  C--   Latitude circle filter initialisat Line 143  C--   Latitude circle filter initialisat
143        ENDIF        ENDIF
144  #endif  #endif
145    
146    #ifdef ALLOW_ATM_COMMON
147    C--   Initialise parameters shared by atmospheric physics packages
148          IF ( (useAIM.OR.useFIZHI)  .AND. useDiagnostics ) THEN
149            CALL ATM_DIAGNOSTICS_INIT( myThid )
150          ENDIF
151    #endif
152    
153  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
154  C--   Initialise & Read AIM physical parameters  C--   Initialise & Read AIM physical parameters
155        IF (useAIM) CALL AIM_INITIALISE( myThid )        IF (useAIM) CALL AIM_INITIALISE( myThid )
# Line 76  C--   Initialise & Read AIM physical par Line 158  C--   Initialise & Read AIM physical par
158  C AMM  C AMM
159  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GRIDALT
160  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialise GRIDALT parameters - the alternative grid
161        IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid )        IF (useGRIDALT) then
162           CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
163           CALL GRIDALT_INITIALISE( myThid )
164           CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
165          ENDIF
166    
167  #endif  #endif
168    
169  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
# Line 104  C--   Initialise the control variables Line 191  C--   Initialise the control variables
191  #endif  #endif
192    
193  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
194          IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
195    #endif
196    
197  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
198        IF (usePTRACERS) then        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
        call GCHEM_INIT_FIXED(mythid)  
       ENDIF  
199  #endif  #endif
200    
201    #ifdef ALLOW_THSICE
202          IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
203    #endif
204    
205    #ifdef COMPONENT_MODULE
206          IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
207  #endif  #endif
208    
 CAMM  
209  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
210        IF (usediagnostics) then        IF ( useDiagnostics ) THEN
211         call diagnostics_init(mythid)          CALL DIAGNOSTICS_INIT_FIXED( myThid )
212        ENDIF        ENDIF
213  #endif  #endif
 CAMM  
214    
215        RETURN        RETURN
216        END        END
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22