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