/[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.31 by molod, Mon Dec 15 23:00:44 2003 UTC revision 1.55 by jscott, Wed Sep 13 14:11:43 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       |-- DIAGNOSTICS_INIT_VARIA
24    C       |
25  C       |-- CD_CODE_INI_VARS  C       |-- CD_CODE_INI_VARS
26  C       |  C       |
27  C       |-- GMREDI_INIT  C       |-- GMREDI_INIT
# Line 26  C       | Line 29  C       |
29  C       |-- KPP_INIT  C       |-- KPP_INIT
30  C       |-- KPP_OPEN_DIAGS  C       |-- KPP_OPEN_DIAGS
31  C       |  C       |
32    C       |-- PP81_INIT
33    C       |
34    C       |-- MY82_INIT
35    C       |
36    C       |-- GGL90_INIT
37    C       |
38  C       |-- SEAICE_INIT  C       |-- SEAICE_INIT
 C       |  
 C       |-- OBCS_INIT_VARIABLES  
39  C       |  C       |
40  C       |-- PTRACERS_INIT  C       |-- PTRACERS_INIT_VARIA
41    C       |
42    C       |-- GCHEM_INIT_VARI
43  C       |  C       |
44  C       |-- LAND_INI_VARS  C       |-- LAND_INI_VARS
45  C       |  C       |
46    C       |-- CTRL_INIT_VARIABLES
47    C       |-- CTRL_MAP_INI_ECCO
48  C       |-- CTRL_MAP_INI  C       |-- CTRL_MAP_INI
49  C       |  C       |
50  C       |-- EXF_INIT  C       |-- EXF_INIT
51  C       |  C       |
52  C       |-- INI_FORCING  C       |-- INI_FORCING
53  C       |  C       |
54  C       |-- ECCO_INIT  C       |-- EBM_INI_VARS
55    C       |
56    C       |-- COST_INIT_VARIA
57  C       |  C       |
58  C       |-- COST_INIT  C       |-- PROFILES_INIT_VARIA
59    C       |
60    C       |-- OBCS_INIT_VARIABLES
61  C       |  C       |
62  C       |-- BULKF_INIT  C       |-- BULKF_INIT_VARIA
63  C       |  C       |
64  C       |-- THSICE_INI_VARS  C       |-- THSICE_INI_VARS
65  C       |  C       |
66  C       |-- CPL_INI_VARS  C       |-- CPL_INI_VARS
67    C       |
68    C       |-- ATM2D_INIT_VARS
69    C       |
70    C       |-- FIZHI_INI_VARS
71    C       |
72    C       |-- MATRIX_INIT
73    C       |
74    C       |-- RBCS_INIT_VARIA
75    C       |
76    C       |-- REGRID_INIT_VARIA
77    C       |
78    C       |-- MYPACKAGE_INIT_VARIA
79    
80  C     !USES:  C     !USES:
81        IMPLICIT NONE        IMPLICIT NONE
# Line 56  C     === Global variables === Line 83  C     === Global variables ===
83  #include "SIZE.h"  #include "SIZE.h"
84  #include "EEPARAMS.h"  #include "EEPARAMS.h"
85  #include "PARAMS.h"  #include "PARAMS.h"
86    #ifdef ALLOW_AUTODIFF_TAMC
87    # include "DYNVARS.h"
88    # include "tamc.h"
89    # include "tamc_keys.h"
90    #endif
91    
92  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
93  C     === Routine arguments ===  C     === Routine arguments ===
# Line 63  C     myThid -  Number of this instances Line 95  C     myThid -  Number of this instances
95        INTEGER myThid        INTEGER myThid
96  CEOP  CEOP
97    
98    #ifdef ALLOW_DEBUG
99          IF (debugMode)
100         &     CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid)
101    #endif
102    
103    #ifdef ALLOW_DIAGNOSTICS
104          IF ( useDiagnostics ) THEN
105            CALL DIAGNOSTICS_INIT_VARIA( myThid )
106          ENDIF
107    #endif
108    
109  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
110  C--   Initialize CD_CODE variables:  C--   Initialize CD_CODE variables:
111  C- note(jmc): before packaging CD_CODE, was done within ini_fields (=called before),  C- note(jmc): before packaging CD_CODE, was done within ini_fields (=called before),
112  C             therefore call CD-ini-vars before others pkg.  C             therefore call CD-ini-vars before others pkg.
113    #ifdef ALLOW_DEBUG
114          IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI',myThid)
115    #endif
116        IF (useCDscheme) CALL CD_CODE_INI_VARS( myThid )        IF (useCDscheme) CALL CD_CODE_INI_VARS( myThid )
117  #endif  #endif
118    
119  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
120  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
121    #ifdef ALLOW_DEBUG
122          IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI',myThid)
123    #endif
124        IF (useGMRedi) CALL GMREDI_INIT( myThid )        IF (useGMRedi) CALL GMREDI_INIT( myThid )
125  #endif  #endif
126    
127  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
128  C--   Initialize KPP vertical mixing scheme.  C--   Initialize KPP vertical mixing scheme.
129        IF (useKPP) THEN        IF (useKPP) THEN
130    #ifdef ALLOW_DEBUG
131           IF (debugMode)
132         &       CALL DEBUG_CALL('KPP_INIT + KPP_OPEN_DIAGS',myThid)
133    #endif
134         CALL KPP_INIT( myThid )         CALL KPP_INIT( myThid )
135         CALL KPP_OPEN_DIAGS( myThid )         CALL KPP_OPEN_DIAGS( myThid )
136        ENDIF        ENDIF
137  #endif  #endif
138    
139    #ifdef ALLOW_PP81
140    C--   Initialize PP81 vertical mixing scheme.
141          IF (usePP81) THEN
142    #ifdef ALLOW_DEBUG
143          IF (debugMode) CALL DEBUG_CALL('PP81_INIT',myThid)
144    #endif
145           CALL PP81_INIT( myThid )
146          ENDIF
147    #endif
148    
149    #ifdef ALLOW_MY82
150    C--   Initialize MY82 vertical mixing scheme.
151          IF (useMY82) THEN
152           CALL MY82_INIT( myThid )
153          ENDIF
154    #endif
155    
156    #ifdef ALLOW_GGL90
157    C--   Initialize GGL90 vertical mixing scheme.
158          IF (useGGL90) THEN
159    #ifdef ALLOW_DEBUG
160          IF (debugMode) CALL DEBUG_CALL('GGL90_INIT',myThid)
161    #endif
162           CALL GGL90_INIT( myThid )
163          ENDIF
164    #endif
165    
166  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
167  C--   Initialize SEAICE model.  C--   Initialize SEAICE model.
168    #ifdef ALLOW_DEBUG
169          IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT',myThid)
170    #endif
171        IF (useSEAICE) CALL SEAICE_INIT( myThid )        IF (useSEAICE) CALL SEAICE_INIT( myThid )
172  #endif  #endif
173    
# Line 100  cph#endif Line 183  cph#endif
183  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
184        IF ( usePTRACERS ) THEN        IF ( usePTRACERS ) THEN
185  # endif  # endif
186           CALL PTRACERS_INIT( mythid )  #ifdef ALLOW_DEBUG
187          IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid)
188    #endif
189             CALL PTRACERS_INIT_VARIA( myThid )
190  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
191           CALL GCHEM_INIT_VARI( mythid )  # ifndef ALLOW_AUTODIFF_TAMC
192             IF (useGCHEM) THEN
193    # endif
194              CALL GCHEM_INIT_VARI( mythid )
195    # ifndef ALLOW_AUTODIFF_TAMC
196             ENDIF
197    # endif
198  #endif  #endif
199  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
200        ENDIF        ENDIF
# Line 110  cph#endif Line 202  cph#endif
202  #endif  #endif
203    
204  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
205    #ifdef ALLOW_DEBUG
206          IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid)
207    #endif
208        IF ( useLAND ) CALL LAND_INI_VARS( mythid )        IF ( useLAND ) CALL LAND_INI_VARS( mythid )
209  #endif  #endif
210    
211  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
212    CADJ STORE theta = tapelev_init, key = 1
213  c--   Initialise auxiliary xx_ fields  c--   Initialise auxiliary xx_ fields
214        CALL CTRL_INIT_VARIABLES ( mythid )        CALL CTRL_INIT_VARIABLES ( mythid )
215  c--   Map the control variables onto the model state.  c--   Map the control variables onto the model state.
216    # ifdef ALLOW_ECCO
217          CALL CTRL_MAP_INI_ECCO( mythid )
218    # else
219        CALL CTRL_MAP_INI( mythid )        CALL CTRL_MAP_INI( mythid )
220    # endif
221        _BARRIER        _BARRIER
222  #endif  #endif
223    
224  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
225    #ifdef ALLOW_DEBUG
226          IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid)
227    #endif
228        CALL EXF_INIT( mythid )        CALL EXF_INIT( mythid )
229  #else  #endif
230    
231    #ifdef ALLOW_DEBUG
232          IF (debugMode) CALL DEBUG_CALL('INI_FORCING',myThid)
233    #endif
234        CALL INI_FORCING( mythid )        CALL INI_FORCING( mythid )
235    
236    #ifdef ALLOW_EBM
237    # ifdef ALLOW_AUTODIFF
238    CADJ STORE theta = tapelev_init, key = 1
239    # endif
240          IF (useEBM) CALL EBM_INI_VARS( mythid )
241  #endif  #endif
242    
243  #ifdef ALLOW_COST  #ifdef ALLOW_COST
244  c--   Initialise the cost function.  c--   Initialise the cost function.
245  ceh3 needs an IF ( useCOST ) THEN  ceh3 needs an IF ( useCOST ) THEN
246        CALL COST_INITVARIA( mythid )        CALL COST_INIT_VARIA( mythid )
247          _BARRIER
248    #endif
249    
250    #ifdef ALLOW_PROFILES
251    c--   Initialise the cost function.
252          CALL PROFILES_INIT_VARIA( mythid )
253        _BARRIER        _BARRIER
254  #endif  #endif
255    
256  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
257  C--   Open boundaries data  C--   Open boundaries data
258    #ifdef ALLOW_DEBUG
259          IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)
260    #endif
261        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
262  #endif  #endif
263    
264  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
265        IF (useBulkForce) CALL BULKF_INIT( mythid)        IF (useBulkForce) CALL BULKF_INIT_VARIA( mythid)
266  #endif  #endif
267    
268  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
269    #ifdef ALLOW_DEBUG
270          IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid)
271    #endif
272        IF (useThSIce) CALL THSICE_INI_VARS( mythid)        IF (useThSIce) CALL THSICE_INI_VARS( mythid)
273  #endif  #endif
274    
275  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
276        IF ( useCoupler ) CALL CPL_INI_VARS( mythid )  #ifdef ALLOW_DEBUG
277          IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid)
278    #endif
279          IF (useCoupler) CALL CPL_INI_VARS( mythid )
280    #endif
281    
282    #ifdef ALLOW_ATM2D
283    #ifdef ALLOW_DEBUG
284          IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_VARS',myThid)
285    #endif
286          IF (useAtm2d) CALL ATM2D_INIT_VARS( myThid )
287  #endif  #endif
288    
 C AMM  
289  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
290  C Initialize FIZHI state variables  C Initialize FIZHI state variables
291        IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)  #ifdef ALLOW_DEBUG
292          IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)
293    #endif
294          IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid )
295    #endif
296    
297    #ifdef ALLOW_MATRIX
298    #ifdef ALLOW_DEBUG
299          IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)
300    #endif
301          IF ( useMATRIX ) CALL MATRIX_INIT( myThid )
302    #endif
303    
304    #ifdef ALLOW_RBCS
305          IF ( useRBCS ) CALL RBCS_INIT_VARIA( myThid )
306    #endif
307    
308    #ifdef ALLOW_REGRID
309          IF ( useREGRID ) CALL REGRID_INIT_VARIA( myThid )
310    #endif
311    
312    #ifdef ALLOW_MYPACKAGE
313          IF ( useMYPACKAGE ) CALL MYPACKAGE_INIT_VARIA( myThid )
314    #endif
315    
316    #ifdef ALLOW_DEBUG
317          IF (debugMode)
318         &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)
319  #endif  #endif
 C AMM  
320    
321        RETURN        RETURN
322        END        END
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.55
  ViewVC Help
Powered by ViewVC 1.1.22