/[MITgcm]/MITgcm/model/src/packages_init_variables.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_init_variables.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.28 by jmc, Sun Nov 23 01:28:05 2003 UTC revision 1.53 by edhill, Tue Aug 15 04:24:03 2006 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5    #include "AD_CONFIG.h"
6  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
7    
8  CBOP  CBOP
# Line 11  C     !INTERFACE: Line 12  C     !INTERFACE:
12    
13  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
14  C     *==========================================================*  C     *==========================================================*
15  C     | SUBROUTINE PACKAGES_INIT_VARIABLES                          C     | SUBROUTINE PACKAGES_INIT_VARIABLES
16  C     | o Does initialisation of package-related variable data      C     | o Does initialisation of package-related variable data
17  C     *==========================================================*  C     *==========================================================*
18  C     \ev  C     \ev
19    
20  C     !CALLING SEQUENCE:  C     !CALLING SEQUENCE:
21  C     PACKAGES_INIT_VARIABLES  C     PACKAGES_INIT_VARIABLES
22  C       |  C       |
23    C       |-- CD_CODE_INI_VARS
24    C       |
25  C       |-- GMREDI_INIT  C       |-- GMREDI_INIT
26  C       |  C       |
27  C       |-- KPP_INIT  C       |-- KPP_INIT
28  C       |-- KPP_OPEN_DIAGS  C       |-- KPP_OPEN_DIAGS
29  C       |  C       |
30    C       |-- PP81_INIT
31    C       |
32    C       |-- MY82_INIT
33    C       |
34    C       |-- GGL90_INIT
35    C       |
36  C       |-- SEAICE_INIT  C       |-- SEAICE_INIT
37  C       |  C       |
38  C       |-- OBCS_INIT_VARIABLES  C       |-- OBCS_INIT_VARIABLES
39  C       |  C       |
40  C       |-- PTRACERS_INIT  C       |-- PTRACERS_INIT_VARIA
41  C       |  C       |
42  C       |-- LAND_INI_VARS  C       |-- LAND_INI_VARS
43  C       |  C       |
# Line 42  C       |-- ECCO_INIT Line 51  C       |-- ECCO_INIT
51  C       |  C       |
52  C       |-- COST_INIT  C       |-- COST_INIT
53  C       |  C       |
54  C       |-- BULKF_INIT  C       |-- BULKF_INIT_VARIA
55  C       |  C       |
56  C       |-- THSICE_INI_VARS  C       |-- THSICE_INI_VARS
57    C       |
58    C       |-- CPL_INI_VARS
59    C       |
60    C       |-- REGRID_INIT_FIXED
61    
62  C     !USES:  C     !USES:
63        IMPLICIT NONE        IMPLICIT NONE
# Line 52  C     === Global variables === Line 65  C     === Global variables ===
65  #include "SIZE.h"  #include "SIZE.h"
66  #include "EEPARAMS.h"  #include "EEPARAMS.h"
67  #include "PARAMS.h"  #include "PARAMS.h"
68    #ifdef ALLOW_AUTODIFF_TAMC
69    # include "DYNVARS.h"
70    # include "tamc.h"
71    # include "tamc_keys.h"
72    #endif
73    
74  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
75  C     === Routine arguments ===  C     === Routine arguments ===
# Line 59  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_DEBUG
81          IF (debugMode)
82         &     CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid)
83    #endif
84    
85    #ifdef ALLOW_DIAGNOSTICS
86          IF ( useDiagnostics ) THEN
87            CALL DIAGNOSTICS_INIT_VARIA( myThid )
88          ENDIF
89    #endif
90    
91    #ifdef ALLOW_CD_CODE
92    C--   Initialize CD_CODE variables:
93    C- note(jmc): before packaging CD_CODE, was done within ini_fields (=called before),
94    C             therefore call CD-ini-vars before others pkg.
95    #ifdef ALLOW_DEBUG
96          IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI',myThid)
97    #endif
98          IF (useCDscheme) CALL CD_CODE_INI_VARS( myThid )
99    #endif
100    
101  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
102  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
103    #ifdef ALLOW_DEBUG
104          IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI',myThid)
105    #endif
106        IF (useGMRedi) CALL GMREDI_INIT( myThid )        IF (useGMRedi) CALL GMREDI_INIT( myThid )
107  #endif  #endif
108    
109  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
110  C--   Initialize KPP vertical mixing scheme.  C--   Initialize KPP vertical mixing scheme.
111        IF (useKPP) THEN        IF (useKPP) THEN
112    #ifdef ALLOW_DEBUG
113           IF (debugMode)
114         &       CALL DEBUG_CALL('KPP_INIT + KPP_OPEN_DIAGS',myThid)
115    #endif
116         CALL KPP_INIT( myThid )         CALL KPP_INIT( myThid )
117         CALL KPP_OPEN_DIAGS( myThid )         CALL KPP_OPEN_DIAGS( myThid )
118        ENDIF        ENDIF
119  #endif  #endif
120    
121    #ifdef ALLOW_PP81
122    C--   Initialize PP81 vertical mixing scheme.
123          IF (usePP81) THEN
124    #ifdef ALLOW_DEBUG
125          IF (debugMode) CALL DEBUG_CALL('PP81_INIT',myThid)
126    #endif
127           CALL PP81_INIT( myThid )
128          ENDIF
129    #endif
130    
131    #ifdef ALLOW_MY82
132    C--   Initialize MY82 vertical mixing scheme.
133          IF (useMY82) THEN
134           CALL MY82_INIT( myThid )
135          ENDIF
136    #endif
137    
138    #ifdef ALLOW_GGL90
139    C--   Initialize GGL90 vertical mixing scheme.
140          IF (useGGL90) THEN
141    #ifdef ALLOW_DEBUG
142          IF (debugMode) CALL DEBUG_CALL('GGL90_INIT',myThid)
143    #endif
144           CALL GGL90_INIT( myThid )
145          ENDIF
146    #endif
147    
148  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
149  C--   Initialize SEAICE model.  C--   Initialize SEAICE model.
150    #ifdef ALLOW_DEBUG
151          IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT',myThid)
152    #endif
153        IF (useSEAICE) CALL SEAICE_INIT( myThid )        IF (useSEAICE) CALL SEAICE_INIT( myThid )
154  #endif  #endif
155    
# Line 89  cph#endif Line 165  cph#endif
165  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
166        IF ( usePTRACERS ) THEN        IF ( usePTRACERS ) THEN
167  # endif  # endif
168           CALL PTRACERS_INIT( mythid )  #ifdef ALLOW_DEBUG
169          IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid)
170    #endif
171             CALL PTRACERS_INIT_VARIA( myThid )
172  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
173           CALL GCHEM_INIT_VARI( mythid )  # ifndef ALLOW_AUTODIFF_TAMC
174             IF (useGCHEM) THEN
175    # endif
176              CALL GCHEM_INIT_VARI( mythid )
177    # ifndef ALLOW_AUTODIFF_TAMC
178             ENDIF
179    # endif
180  #endif  #endif
181  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
182        ENDIF        ENDIF
# Line 99  cph#endif Line 184  cph#endif
184  #endif  #endif
185    
186  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
187    #ifdef ALLOW_DEBUG
188          IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid)
189    #endif
190        IF ( useLAND ) CALL LAND_INI_VARS( mythid )        IF ( useLAND ) CALL LAND_INI_VARS( mythid )
191  #endif  #endif
192    
193  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
194    CADJ STORE theta = tapelev_init, key = 1
195  c--   Initialise auxiliary xx_ fields  c--   Initialise auxiliary xx_ fields
196        CALL CTRL_INIT_VARIABLES ( mythid )        CALL CTRL_INIT_VARIABLES ( mythid )
197  c--   Map the control variables onto the model state.  c--   Map the control variables onto the model state.
198    # ifdef ALLOW_ECCO
199          CALL CTRL_MAP_INI_ECCO( mythid )
200    # else
201        CALL CTRL_MAP_INI( mythid )        CALL CTRL_MAP_INI( mythid )
202    # endif
203        _BARRIER        _BARRIER
204  #endif  #endif
205    
206  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
207    #ifdef ALLOW_DEBUG
208          IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid)
209    #endif
210        CALL EXF_INIT( mythid )        CALL EXF_INIT( mythid )
211  #else  #endif
212    
213    #ifdef ALLOW_DEBUG
214          IF (debugMode) CALL DEBUG_CALL('INI_FORCING',myThid)
215    #endif
216        CALL INI_FORCING( mythid )        CALL INI_FORCING( mythid )
217    
218    #ifdef ALLOW_EBM
219    # ifdef ALLOW_AUTODIFF
220    CADJ STORE theta = tapelev_init, key = 1
221    # endif
222          IF (useEBM) CALL EBM_INI_VARS( mythid )
223  #endif  #endif
224    
225  #ifdef ALLOW_COST  #ifdef ALLOW_COST
226  c--   Initialise the cost function.  c--   Initialise the cost function.
227  ceh3 needs an IF ( useCOST ) THEN  ceh3 needs an IF ( useCOST ) THEN
228        CALL COST_INITVARIA( mythid )        CALL COST_INIT_VARIA( mythid )
229          _BARRIER
230    #endif
231    
232    #ifdef ALLOW_PROFILES
233    c--   Initialise the cost function.
234          CALL PROFILES_INIT_VARIA( mythid )
235        _BARRIER        _BARRIER
236  #endif  #endif
237    
238  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
239  C--   Open boundaries data  C--   Open boundaries data
240    #ifdef ALLOW_DEBUG
241          IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)
242    #endif
243        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
244  #endif  #endif
245    
246  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
247        IF (useBulkForce) CALL BULKF_INIT( mythid)        IF (useBulkForce) CALL BULKF_INIT_VARIA( mythid)
248  #endif  #endif
249    
250  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
251    #ifdef ALLOW_DEBUG
252          IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid)
253    #endif
254        IF (useThSIce) CALL THSICE_INI_VARS( mythid)        IF (useThSIce) CALL THSICE_INI_VARS( mythid)
255  #endif  #endif
256    
257    #ifdef COMPONENT_MODULE
258    #ifdef ALLOW_DEBUG
259          IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid)
260    #endif
261          IF (useCoupler) CALL CPL_INI_VARS( mythid )
262    #endif
263    
264    #ifdef ALLOW_FIZHI
265    C Initialize FIZHI state variables
266    #ifdef ALLOW_DEBUG
267          IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)
268    #endif
269          IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid )
270    #endif
271    
272    #ifdef ALLOW_MATRIX
273    #ifdef ALLOW_DEBUG
274          IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)
275    #endif
276          IF ( useMATRIX ) CALL MATRIX_INIT( myThid )
277    #endif
278    
279    #ifdef ALLOW_RBCS
280          IF ( useRBCS ) CALL RBCS_INIT_VARIA( myThid )
281    #endif
282    
283    #ifdef ALLOW_MYPACKAGE
284          IF ( useMYPACKAGE ) CALL MYPACKAGE_INIT_VARIA( myThid )
285    #endif
286    
287    #ifdef ALLOW_DEBUG
288          IF (debugMode)
289         &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)
290    #endif
291    
292    #ifdef ALLOW_REGRID
293          IF ( useREGRID ) CALL REGRID_INIT_VARIA( myThid )
294    #endif
295    
296        RETURN        RETURN
297        END        END
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.53
  ViewVC Help
Powered by ViewVC 1.1.22