/[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.29 by edhill, Wed Oct 13 20:42:30 2004 UTC revision 1.38 by dimitri, Thu May 5 16:41: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       |-- EXF_INIT_FIXED
30    C       |
31    C       |-- GMREDI_INIT_FIXED
32    C       |
33    C       |-- KPP_INIT_FIXED
34    C       |
35    C       |-- OPPS_INIT
36    C       |
37  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
38  C       |  C       |
39  C       |-- FLT_INIT  C       |-- FLT_INIT
40  C       |  C       |
41    C       |-- TIMEAVE_INIT_FIXED
42    C       |
43    C       |-- SHAP_FILT_INIT_FIZED
44    C       |
45  C       |-- ZONAL_FILT_INIT  C       |-- ZONAL_FILT_INIT
46  C       |  C       |
47    C       |-- ATM_DIAGNOSTICS_INIT
48    C       |
49  C       |-- AIM_INITIALISE  C       |-- AIM_INITIALISE
50  C       |  C       |
51  C       |-- GRIDALT_INITIALISE  C       |-- GRIDALT_INITIALISE
# Line 39  C       |-- ECCO_COST_INIT_FIXED Line 58  C       |-- ECCO_COST_INIT_FIXED
58  C       |  C       |
59  C       |-- CTRL_INIT  C       |-- CTRL_INIT
60  C       |  C       |
61    C       |-- PTRACERS_INITIALISE
62    C       |
63  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
64  C       |  C       |
65  C       |-- OPPS_INIT  C       |-- THSICE_INIT_FIXED
66    C       |
67    C       |-- CPL_INIT_FIXED
68  C       |  C       |
69  C       |-- DIAGNOSTICS_INITIALISE  C       |-- DIAGNOSTICS_INIT_FIXED
70    
71  C     !USES:  C     !USES:
72        IMPLICIT NONE        IMPLICIT NONE
# Line 58  C     myThid -  Number of this instances Line 81  C     myThid -  Number of this instances
81        INTEGER myThid        INTEGER myThid
82  CEOP  CEOP
83    
84    #ifdef ALLOW_DIAGNOSTICS
85          IF ( useDiagnostics ) THEN
86            CALL DIAGNOSTICS_INIT_EARLY( myThid )
87            CALL DIAGNOSTICS_MAIN_INIT( myThid )
88          ENDIF
89    #endif
90    
91    #ifdef ALLOW_GENERIC_ADVDIFF
92  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
93        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
94    #endif
95    
96    #ifdef ALLOW_CD_CODE
97          IF (useCDscheme) THEN
98           CALL CD_CODE_INIT_FIXED(mythid)
99          ENDIF
100    #endif
101    
102    #ifdef ALLOW_EXF
103    C--   Initialize fixed arrays for EXF
104    c     IF ( useEXF ) THEN
105           CALL EXF_INIT_FIXED( myThid )
106    c     ENDIF
107    #endif
108    
109    #ifdef ALLOW_GMREDI
110    C--   Initialize fixed arrays for GM-Redi
111          IF ( useGMRedi ) THEN
112           CALL GMREDI_INIT_FIXED( myThid )
113          ENDIF
114    #endif
115    
116    #ifdef ALLOW_KPP
117    C--   Initialize fixed arrays for KPP
118          IF ( useKPP ) THEN
119           CALL KPP_INIT_FIXED( myThid )
120          ENDIF
121    #endif
122    
123    #ifdef ALLOW_OPPS
124          IF (useOPPS) CALL OPPS_INIT( myThid )
125    #endif /* ALLOW_OPPS */
126    
127  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
128  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 78  C--   Initialise Float positions Line 141  C--   Initialise Float positions
141    
142  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
143  C     IF (useTIMEAVE) THEN  C     IF (useTIMEAVE) THEN
144        CALL TIMEAVE_INIT_FIXED( myThid )        IF ( taveFreq.GT.0. ) THEN
145  C     ENDIF         CALL TIMEAVE_INIT_FIXED( myThid )
146          ENDIF
147    #endif
148    
149    #ifdef ALLOW_SHAP_FILT
150    C--   Shapiro filter initialisation
151          IF (useSHAP_FILT) THEN
152           CALL SHAP_FILT_INIT_FIXED( myThid )
153          ENDIF
154  #endif  #endif
155    
156  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
# Line 90  C--   Latitude circle filter initialisat Line 161  C--   Latitude circle filter initialisat
161        ENDIF        ENDIF
162  #endif  #endif
163    
164    #ifdef ALLOW_ATM_COMMON
165    C--   Initialise parameters shared by atmospheric physics packages
166          IF ( (useAIM.OR.useFIZHI)  .AND. useDiagnostics ) THEN
167            CALL ATM_DIAGNOSTICS_INIT( myThid )
168          ENDIF
169    #endif
170    
171  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
172  C--   Initialise & Read AIM physical parameters  C--   Initialise & Read AIM physical parameters
173        IF (useAIM) CALL AIM_INITIALISE( myThid )        IF (useAIM) CALL AIM_INITIALISE( myThid )
# Line 134  C--   Initialise the control variables Line 212  C--   Initialise the control variables
212        IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)        IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
213  #endif  #endif
214    
 #ifdef ALLOW_PTRACERS  
215  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
216        IF (usePTRACERS) then        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
        call GCHEM_INIT_FIXED(mythid)  
       ENDIF  
 #endif  
217  #endif  #endif
218    
219  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_THSICE
220        IF (useCDscheme) then        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
        call CD_CODE_INIT_FIXED(mythid)  
       ENDIF  
221  #endif  #endif
222    
223  #ifdef ALLOW_OPPS  #ifdef COMPONENT_MODULE
224        IF (useOPPS) CALL OPPS_INIT( myThid )        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
225  #endif /* ALLOW_OPPS */  #endif
226    
 CAMM  
227  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
228        IF (usediagnostics) then        IF ( useDiagnostics ) THEN
229         call diagnostics_initialise(mythid)          CALL DIAGNOSTICS_INIT_FIXED( myThid )
230        ENDIF        ENDIF
231  #endif  #endif
 CAMM  
232    
233        RETURN        RETURN
234        END        END
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22