/[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.2 by adcroft, Fri Feb 2 21:04:48 2001 UTC revision 1.37 by dimitri, Fri Apr 29 18:47:02 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       |-- DIAGNOSTICS_INIT_EARLY
23    C       |-- DIAGNOSTICS_MAIN_INIT
24    C       |
25    C       |-- GAD_INIT
26    C       |
27    C       |-- CD_CODE_INIT_FIXED
28    C       |
29    C       |-- GMREDI_INIT_FIXED
30    C       |
31    C       |-- KPP_INIT_FIXED
32    C       |
33    C       |-- OPPS_INIT
34    C       |
35    C       |-- OBCS_INIT_FIXED
36    C       |
37    C       |-- FLT_INIT
38    C       |
39    C       |-- TIMEAVE_INIT_FIXED
40    C       |
41    C       |-- SHAP_FILT_INIT_FIZED
42    C       |
43    C       |-- ZONAL_FILT_INIT
44    C       |
45    C       |-- ATM_DIAGNOSTICS_INIT
46    C       |
47    C       |-- AIM_INITIALISE
48    C       |
49    C       |-- GRIDALT_INITIALISE
50    C       |
51    C       |-- FIZHI_INIT_FIXED
52    C       |
53    C       |-- LAND_INITIALISE
54    C       |
55    C       |-- ECCO_COST_INIT_FIXED
56    C       |
57    C       |-- CTRL_INIT
58    C       |
59    C       |-- PTRACERS_INITIALISE
60    C       |
61    C       |-- GCHEM_INIT_FIXED
62    C       |
63    C       |-- THSICE_INIT_FIXED
64    C       |
65    C       |-- CPL_INIT_FIXED
66    C       |
67    C       |-- DIAGNOSTICS_INIT_FIXED
68    
69    C     !USES:
70          IMPLICIT NONE
71  C     === Global variables ===  C     === Global variables ===
72  #include "SIZE.h"  #include "SIZE.h"
73  #include "EEPARAMS.h"  #include "EEPARAMS.h"
74  #include "PARAMS.h"  #include "PARAMS.h"
75    
76    C     !INPUT/OUTPUT PARAMETERS:
77  C     === Routine arguments ===  C     === Routine arguments ===
78  C     myThid -  Number of this instances  C     myThid -  Number of this instances
79        INTEGER myThid        INTEGER myThid
80    CEOP
81    
82    #ifdef ALLOW_DIAGNOSTICS
83          IF ( useDiagnostics ) THEN
84            CALL DIAGNOSTICS_INIT_EARLY( myThid )
85            CALL DIAGNOSTICS_MAIN_INIT( myThid )
86          ENDIF
87    #endif
88    
89    #ifdef ALLOW_GENERIC_ADVDIFF
90    C--   Initialize fixed params for GAD
91          CALL GAD_INIT( myThid )
92    #endif
93    
94    #ifdef ALLOW_CD_CODE
95          IF (useCDscheme) THEN
96           CALL CD_CODE_INIT_FIXED(mythid)
97          ENDIF
98    #endif
99    
100    #ifdef ALLOW_GMREDI
101    C--   Initialize fixed arrays for GM-Redi
102          IF ( useGMRedi ) THEN
103           CALL GMREDI_INIT_FIXED( myThid )
104          ENDIF
105    #endif
106    
107    #ifdef ALLOW_KPP
108    C--   Initialize fixed arrays for KPP
109          IF ( useKPP ) THEN
110           CALL KPP_INIT_FIXED( myThid )
111          ENDIF
112    #endif
113    
114    #ifdef ALLOW_OPPS
115          IF (useOPPS) CALL OPPS_INIT( myThid )
116    #endif /* ALLOW_OPPS */
117    
118  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
119  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 27  C--   Initialize fixed arrays for OBCS Line 122  C--   Initialize fixed arrays for OBCS
122        ENDIF        ENDIF
123  #endif  #endif
124    
125    #ifdef ALLOW_FLT
126    C--   Initialise Float positions
127          IF (useFLT) THEN
128           CALL FLT_INIT(nIter0,startTime,myThid )
129          _BARRIER
130          ENDIF
131    #endif
132    
133    #ifdef ALLOW_TIMEAVE
134    C     IF (useTIMEAVE) THEN
135          IF ( taveFreq.GT.0. ) THEN
136           CALL TIMEAVE_INIT_FIXED( myThid )
137          ENDIF
138    #endif
139    
140    #ifdef ALLOW_SHAP_FILT
141    C--   Shapiro filter initialisation
142          IF (useSHAP_FILT) THEN
143           CALL SHAP_FILT_INIT_FIXED( myThid )
144          ENDIF
145    #endif
146    
147    #ifdef ALLOW_ZONAL_FILT
148    C--   Latitude circle filter initialisation
149          IF (useZONAL_FILT) THEN
150           CALL ZONAL_FILT_INIT(myThid)
151          _BARRIER
152          ENDIF
153    #endif
154    
155    #ifdef ALLOW_ATM_COMMON
156    C--   Initialise parameters shared by atmospheric physics packages
157          IF ( (useAIM.OR.useFIZHI)  .AND. useDiagnostics ) THEN
158            CALL ATM_DIAGNOSTICS_INIT( myThid )
159          ENDIF
160    #endif
161    
162    #ifdef ALLOW_AIM
163    C--   Initialise & Read AIM physical parameters
164          IF (useAIM) CALL AIM_INITIALISE( myThid )
165    #endif
166    
167    C AMM
168    #ifdef ALLOW_GRIDALT
169    C--   Initialise GRIDALT parameters - the alternative grid
170          IF (useGRIDALT) then
171           CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
172           CALL GRIDALT_INITIALISE( myThid )
173           CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
174          ENDIF
175    
176    #endif
177    
178    #ifdef ALLOW_FIZHI
179    C--   Initialise & Read FIZHI physical parameters
180          IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
181    #endif
182    C AMM
183    
184    #ifdef ALLOW_LAND
185    C--   Initialise & Read Land package parameters
186          IF (useLand) CALL LAND_INITIALISE( myThid )
187    #endif
188    
189    #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
190    C--   Initialise ecco-specific cost function.
191    C--   This needs to preceed the call ctrl_init
192    C--   in order to provide the weight files
193          IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )
194    #endif
195    
196    #ifdef ALLOW_AUTODIFF
197    C--   Initialise the control variables
198          CALL CTRL_INIT( myThid )
199          _BARRIER
200    #endif
201    
202    #ifdef ALLOW_PTRACERS
203          IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
204    #endif
205    
206    #ifdef ALLOW_GCHEM
207          IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
208    #endif
209    
210    #ifdef ALLOW_THSICE
211          IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
212    #endif
213    
214    #ifdef COMPONENT_MODULE
215          IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
216    #endif
217    
218    #ifdef ALLOW_DIAGNOSTICS
219          IF ( useDiagnostics ) THEN
220            CALL DIAGNOSTICS_INIT_FIXED( myThid )
221          ENDIF
222    #endif
223    
224        RETURN        RETURN
225        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22