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