/[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.27 by edhill, Sat Nov 1 04:50:02 2003 UTC revision 1.60 by gforget, Tue Jun 19 03:35:17 2007 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
37  C       |  C       |
38  C       |-- PTRACERS_INIT  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       |  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       |
56    C       |-- COST_INIT_VARIA
57    C       |
58    C       |-- PROFILES_INIT_VARIA
59  C       |  C       |
60  C       |-- ECCO_INIT  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       |  C       |
70  C       |-- COST_INIT  C       |-- FIZHI_INI_VARS
71  C       |  C       |
72  C       |-- BULKF_INIT  C       |-- MATRIX_INIT
73  C       |  C       |
74  C       |-- ICE_INIT  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 52  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 59  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_GENERIC_ADVDIFF
110    #ifdef ALLOW_DEBUG
111          IF (debugMode) CALL DEBUG_CALL('GAD_INIT_VARIA',myThid)
112    #endif
113          IF ( useGAD ) CALL GAD_INIT_VARIA( myThid )
114    #endif /* ALLOW_GENERIC_ADVDIFF */
115    
116    #ifdef ALLOW_CD_CODE
117    C--   Initialize CD_CODE variables:
118    C- note(jmc): before packaging CD_CODE, was done within ini_fields (=called before),
119    C             therefore call CD-ini-vars before others pkg.
120    #ifdef ALLOW_DEBUG
121          IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI',myThid)
122    #endif
123          IF (useCDscheme) CALL CD_CODE_INI_VARS( myThid )
124    #endif
125    
126  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
127  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
128    #ifdef ALLOW_DEBUG
129          IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT',myThid)
130    #endif
131        IF (useGMRedi) CALL GMREDI_INIT( myThid )        IF (useGMRedi) CALL GMREDI_INIT( myThid )
132  #endif  #endif
133    
134  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
135  C--   Initialize KPP vertical mixing scheme.  C--   Initialize KPP vertical mixing scheme.
136        IF (useKPP) THEN        IF (useKPP) THEN
137    #ifdef ALLOW_DEBUG
138           IF (debugMode)
139         &       CALL DEBUG_CALL('KPP_INIT + KPP_OPEN_DIAGS',myThid)
140    #endif
141         CALL KPP_INIT( myThid )         CALL KPP_INIT( myThid )
142         CALL KPP_OPEN_DIAGS( myThid )         CALL KPP_OPEN_DIAGS( myThid )
143        ENDIF        ENDIF
144  #endif  #endif
145    
146    #ifdef ALLOW_PP81
147    C--   Initialize PP81 vertical mixing scheme.
148          IF (usePP81) THEN
149    #ifdef ALLOW_DEBUG
150          IF (debugMode) CALL DEBUG_CALL('PP81_INIT',myThid)
151    #endif
152           CALL PP81_INIT( myThid )
153          ENDIF
154    #endif
155    
156    #ifdef ALLOW_MY82
157    C--   Initialize MY82 vertical mixing scheme.
158          IF (useMY82) THEN
159           CALL MY82_INIT( myThid )
160          ENDIF
161    #endif
162    
163    #ifdef ALLOW_GGL90
164    C--   Initialize GGL90 vertical mixing scheme.
165          IF (useGGL90) THEN
166    #ifdef ALLOW_DEBUG
167          IF (debugMode) CALL DEBUG_CALL('GGL90_INIT',myThid)
168    #endif
169           CALL GGL90_INIT( myThid )
170          ENDIF
171    #endif
172    
173  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
174  C--   Initialize SEAICE model.  C--   Initialize SEAICE model.
175        IF (useSEAICE) CALL SEAICE_INIT( myThid )  #ifdef ALLOW_DEBUG
176          IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_VARIA',myThid)
177    #endif
178          IF (useSEAICE) CALL SEAICE_INIT_VARIA( myThid )
179  #endif  #endif
180    
181  cph-- moved further down  cph-- moved further down
# Line 89  cph#endif Line 190  cph#endif
190  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
191        IF ( usePTRACERS ) THEN        IF ( usePTRACERS ) THEN
192  # endif  # endif
193           CALL PTRACERS_INIT( mythid )  #ifdef ALLOW_DEBUG
194          IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid)
195    #endif
196             CALL PTRACERS_INIT_VARIA( myThid )
197  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
198           CALL GCHEM_INIT_VARI( mythid )  # ifndef ALLOW_AUTODIFF_TAMC
199             IF (useGCHEM) THEN
200    # endif
201              CALL GCHEM_INIT_VARI( myThid )
202    # ifndef ALLOW_AUTODIFF_TAMC
203             ENDIF
204    # endif
205  #endif  #endif
206  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
207        ENDIF        ENDIF
# Line 99  cph#endif Line 209  cph#endif
209  #endif  #endif
210    
211  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
212        IF ( useLAND ) CALL LAND_INI_VARS( mythid )  #ifdef ALLOW_DEBUG
213          IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid)
214    #endif
215          IF ( useLAND ) CALL LAND_INI_VARS( myThid )
216    #endif
217    
218    #ifdef ALLOW_SMOOTH
219          call smooth_init_varia(mythid)
220  #endif  #endif
221    
222  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
223    CADJ STORE theta = tapelev_init, key = 1
224  c--   Initialise auxiliary xx_ fields  c--   Initialise auxiliary xx_ fields
225        CALL CTRL_INIT_VARIABLES ( mythid )        CALL CTRL_INIT_VARIABLES ( myThid )
226  c--   Map the control variables onto the model state.  c--   Map the control variables onto the model state.
227        CALL CTRL_MAP_INI( mythid )  # ifdef ALLOW_ECCO
228          CALL CTRL_MAP_INI_ECCO( myThid )
229    # else
230          CALL CTRL_MAP_INI( myThid )
231    # endif
232        _BARRIER        _BARRIER
233  #endif  #endif
234    
235  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
236        CALL EXF_INIT( mythid )        IF (useEXF) THEN
237  #else  #ifdef ALLOW_DEBUG
238        CALL INI_FORCING( mythid )        IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid)
239    #endif
240           CALL EXF_INIT( myThid )
241          ENDIF
242    #endif
243    
244    #ifdef ALLOW_EBM
245    # ifdef ALLOW_AUTODIFF
246    CADJ STORE theta = tapelev_init, key = 1
247    # endif
248          IF (useEBM) CALL EBM_INI_VARS( myThid )
249  #endif  #endif
250    
251  #ifdef ALLOW_COST  #ifdef ALLOW_COST
252  c--   Initialise the cost function.  c--   Initialise the cost function.
253  ceh3 needs an IF ( useCOST ) THEN  ceh3 needs an IF ( useCOST ) THEN
254        CALL COST_INITVARIA( mythid )        CALL COST_INIT_VARIA( myThid )
255          _BARRIER
256    #endif
257    
258    #ifdef ALLOW_PROFILES
259    c--   Initialise the cost function.
260          CALL PROFILES_INIT_VARIA( myThid )
261        _BARRIER        _BARRIER
262  #endif  #endif
263    
264  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
265  C--   Open boundaries data  C--   Open boundaries data
266    #ifdef ALLOW_DEBUG
267          IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)
268    #endif
269        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
270  #endif  #endif
271    
 cswdblk -- begin add ---  
272  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
273        IF (useBulkForce) call BULKF_INIT( mythid)        IF (useBulkForce) CALL BULKF_INIT_VARIA( myThid)
274  #endif  #endif
 cswdblk ---end add ---  
275    
276  cswdice ---begin add ---  #ifdef ALLOW_THSICE
277  #ifdef ALLOW_THERM_SEAICE  #ifdef ALLOW_DEBUG
278        IF (useThermSeaIce) call ICE_INIT( mythid)        IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid)
279    #endif
280          IF (useThSIce) CALL THSICE_INI_VARS( myThid)
281  #endif  #endif
 cswdice ---end add ---  
282    
283    #ifdef COMPONENT_MODULE
284    #ifdef ALLOW_DEBUG
285          IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid)
286    #endif
287          IF (useCoupler) CALL CPL_INI_VARS( myThid )
288    #endif
289    
290    #ifdef ALLOW_ATM2D
291    #ifdef ALLOW_DEBUG
292          IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_VARS',myThid)
293    #endif
294          IF (useAtm2d) CALL ATM2D_INIT_VARS( myThid )
295    #endif
296    
297    #ifdef ALLOW_FIZHI
298    C Initialize FIZHI state variables
299    #ifdef ALLOW_DEBUG
300          IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)
301    #endif
302          IF (useFIZHI) CALL FIZHI_INIT_VARS( myThid )
303    #endif
304    
305    #ifdef ALLOW_MATRIX
306    #ifdef ALLOW_DEBUG
307          IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)
308    #endif
309          IF ( useMATRIX ) CALL MATRIX_INIT( myThid )
310    #endif
311    
312    #ifdef ALLOW_RBCS
313          IF ( useRBCS ) CALL RBCS_INIT_VARIA( myThid )
314    #endif
315    
316    #ifdef ALLOW_REGRID
317          IF ( useREGRID ) CALL REGRID_INIT_VARIA( myThid )
318    #endif
319    
320    #ifdef ALLOW_MYPACKAGE
321          IF ( useMYPACKAGE ) CALL MYPACKAGE_INIT_VARIA( myThid )
322    #endif
323    
324    #ifdef ALLOW_DEBUG
325          IF (debugMode)
326         &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)
327    #endif
328    
329        RETURN        RETURN
330        END        END
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.60
  ViewVC Help
Powered by ViewVC 1.1.22