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