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