/[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.40 by edhill, Wed Oct 20 14:16:23 2004 UTC revision 1.66 by heimbach, Fri May 16 21:01:23 2008 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       |-- GAD_GAD_INIT_VARIA
26    C       |
27  C       |-- CD_CODE_INI_VARS  C       |-- CD_CODE_INI_VARS
28  C       |  C       |
29  C       |-- GMREDI_INIT  C       |-- GMREDI_INIT
# Line 29  C       |-- KPP_OPEN_DIAGS Line 33  C       |-- KPP_OPEN_DIAGS
33  C       |  C       |
34  C       |-- PP81_INIT  C       |-- PP81_INIT
35  C       |  C       |
36  C       |-- MY82_INIT  C       |-- MY82_INIT_VARIA
37  C       |  C       |
38  C       |-- GGL90_INIT  C       |-- GGL90_INIT
39  C       |  C       |
40  C       |-- SEAICE_INIT  C       |-- SEAICE_INIT_VARIA
41  C       |  C       |
42  C       |-- OBCS_INIT_VARIABLES  C       |-- PTRACERS_INIT_VARIA
43  C       |  C       |
44  C       |-- PTRACERS_INIT  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       |  C       |
66  C       |-- CPL_INI_VARS  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:  C     !USES:
83        IMPLICIT NONE        IMPLICIT NONE
# Line 76  C     myThid -  Number of this instances Line 98  C     myThid -  Number of this instances
98  CEOP  CEOP
99    
100  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
101        IF (debugMode)        IF (debugMode)
102       &     CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid)       &     CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid)
103  #endif  #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  #ifdef ALLOW_CD_CODE
119  C--   Initialize CD_CODE variables:  C--   Initialize CD_CODE variables:
120  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),
121  C             therefore call CD-ini-vars before others pkg.  C             therefore call CD-ini-vars before others pkg.
122  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
# Line 93  C             therefore call CD-ini-vars Line 128  C             therefore call CD-ini-vars
128  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
129  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
130  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
131        IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI',myThid)        IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT',myThid)
132  #endif  #endif
133        IF (useGMRedi) CALL GMREDI_INIT( myThid )        IF (useGMRedi) CALL GMREDI_INIT( myThid )
134  #endif  #endif
# Line 102  C--   Initialize GM/Redi parameterizatio Line 137  C--   Initialize GM/Redi parameterizatio
137  C--   Initialize KPP vertical mixing scheme.  C--   Initialize KPP vertical mixing scheme.
138        IF (useKPP) THEN        IF (useKPP) THEN
139  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
140         IF (debugMode)         IF (debugMode)
141       &       CALL DEBUG_CALL('KPP_INIT + KPP_OPEN_DIAGS',myThid)       &       CALL DEBUG_CALL('KPP_INIT + KPP_OPEN_DIAGS',myThid)
142  #endif  #endif
143         CALL KPP_INIT( myThid )         CALL KPP_INIT( myThid )
# Line 123  C--   Initialize PP81 vertical mixing sc Line 158  C--   Initialize PP81 vertical mixing sc
158  #ifdef ALLOW_MY82  #ifdef ALLOW_MY82
159  C--   Initialize MY82 vertical mixing scheme.  C--   Initialize MY82 vertical mixing scheme.
160        IF (useMY82) THEN        IF (useMY82) THEN
161         CALL MY82_INIT( myThid )         CALL MY82_INIT_VARIA( myThid )
162        ENDIF        ENDIF
163  #endif  #endif
164    
# Line 139  C--   Initialize GGL90 vertical mixing s Line 174  C--   Initialize GGL90 vertical mixing s
174    
175  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
176  C--   Initialize SEAICE model.  C--   Initialize SEAICE model.
177  #ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
178        IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT',myThid)        IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_VARIA',myThid)
179  #endif  # endif
180        IF (useSEAICE) CALL SEAICE_INIT( myThid )  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  #endif
188    
189  cph-- moved further down  cph-- moved further down
# Line 158  cph#endif Line 199  cph#endif
199        IF ( usePTRACERS ) THEN        IF ( usePTRACERS ) THEN
200  # endif  # endif
201  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
202        IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT',myThid)        IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid)
203  #endif  #endif
204           CALL PTRACERS_INIT( mythid )           CALL PTRACERS_INIT_VARIA( myThid )
205  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
206           CALL GCHEM_INIT_VARI( mythid )  # 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  #endif
214  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
215        ENDIF        ENDIF
# Line 173  cph#endif Line 220  cph#endif
220  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
221        IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid)        IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid)
222  #endif  #endif
223        IF ( useLAND ) CALL LAND_INI_VARS( mythid )        IF ( useLAND ) CALL LAND_INI_VARS( myThid )
224    #endif
225    
226    #ifdef ALLOW_SMOOTH
227          call smooth_init_varia(mythid)
228  #endif  #endif
229    
230  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
231  CADJ STORE theta = tapelev_init, key = 1  CADJ STORE theta = tapelev_init, key = 1
232  c--   Initialise auxiliary xx_ fields  c--   Initialise auxiliary xx_ fields
233        CALL CTRL_INIT_VARIABLES ( mythid )        IF (debugMode) CALL DEBUG_CALL('CTRL_INIT_VARIABLES',myThid)
234          CALL CTRL_INIT_VARIABLES ( myThid )
235  c--   Map the control variables onto the model state.  c--   Map the control variables onto the model state.
236  #ifdef ALLOW_ECCO  # ifdef ALLOW_ECCO
237        CALL CTRL_MAP_INI_ECCO( mythid )        IF (debugMode) CALL DEBUG_CALL('CTRL_MAP_INI_ECCO',myThid)
238  #else        CALL CTRL_MAP_INI_ECCO( myThid )
239        CALL CTRL_MAP_INI( mythid )  # else
240  #endif        IF (debugMode) CALL DEBUG_CALL('CTRL_MAP_INI',myThid)
241          CALL CTRL_MAP_INI( myThid )
242    # endif
243        _BARRIER        _BARRIER
244  #endif  #endif
245    
246  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
247          IF (useEXF) THEN
248  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
249        IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid)        IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid)
250  #endif  #endif
251        CALL EXF_INIT( mythid )         CALL EXF_INIT( myThid )
252  cph#else        ENDIF
 #endif  
 #ifdef ALLOW_DEBUG  
       IF (debugMode) CALL DEBUG_CALL('INI_FORCING',myThid)  
253  #endif  #endif
       CALL INI_FORCING( mythid )  
 cph#endif  
254    
255  #ifdef ALLOW_EBM  #ifdef ALLOW_EBM
256  # ifdef ALLOW_AUTODIFF  # ifdef ALLOW_AUTODIFF
257  CADJ STORE theta = tapelev_init, key = 1  CADJ STORE theta = tapelev_init, key = 1
258  # endif  # endif
259        IF (useEBM) CALL EBM_INI_VARS( mythid )        IF (useEBM) CALL EBM_INI_VARS( myThid )
260  #endif  #endif
261    
262  #ifdef ALLOW_COST  #ifdef ALLOW_COST
263  c--   Initialise the cost function.  c--   Initialise the cost function.
264  ceh3 needs an IF ( useCOST ) THEN  ceh3 needs an IF ( useCOST ) THEN
265        CALL COST_INITVARIA( mythid )        CALL COST_INIT_VARIA( myThid )
266          _BARRIER
267    #endif
268    
269    #ifdef ALLOW_PROFILES
270    c--   Initialise the cost function.
271          CALL PROFILES_INIT_VARIA( myThid )
272        _BARRIER        _BARRIER
273  #endif  #endif
274    
# Line 225  C--   Open boundaries data Line 281  C--   Open boundaries data
281  #endif  #endif
282    
283  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
284        IF (useBulkForce) CALL BULKF_INIT( mythid)        IF (useBulkForce) CALL BULKF_INIT_VARIA( myThid)
285  #endif  #endif
286    
287  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
288  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
289        IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid)        IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid)
290  #endif  #endif
291        IF (useThSIce) CALL THSICE_INI_VARS( mythid)        IF (useThSIce) CALL THSICE_INI_VARS( myThid)
292  #endif  #endif
293    
294  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
295  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
296        IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid)        IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid)
297  #endif  #endif
298        IF (useCoupler) CALL CPL_INI_VARS( mythid )        IF (useCoupler) CALL CPL_INI_VARS( myThid )
299    #endif
300    
301    #ifdef ALLOW_ATM2D
302    #ifdef ALLOW_DEBUG
303          IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_VARS',myThid)
304    #endif
305          IF (useAtm2d) CALL ATM2D_INIT_VARS( myThid )
306  #endif  #endif
307    
 C AMM  
308  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
309  C Initialize FIZHI state variables  C Initialize FIZHI state variables
310  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
311        IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)        IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)
312  #endif  #endif
313        IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)        IF (useFIZHI) CALL FIZHI_INIT_VARS( myThid )
314    #endif
315    
316    #ifdef ALLOW_MATRIX
317    #ifdef ALLOW_DEBUG
318          IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)
319    #endif
320          IF ( useMATRIX ) CALL MATRIX_INIT( myThid )
321    #endif
322    
323    #ifdef ALLOW_RBCS
324          IF ( useRBCS ) CALL RBCS_INIT_VARIA( myThid )
325    #endif
326    
327    #ifdef ALLOW_REGRID
328          IF ( useREGRID ) CALL REGRID_INIT_VARIA( myThid )
329    #endif
330    
331    #ifdef ALLOW_MYPACKAGE
332          IF ( useMYPACKAGE ) CALL MYPACKAGE_INIT_VARIA( myThid )
333    #endif
334    
335    #ifdef ALLOW_SALT_PLUME
336          IF ( useSALT_PLUME ) CALL SALT_PLUME_INIT_VARIA( myThid )
337  #endif  #endif
 C AMM  
338    
339  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
340        IF (debugMode)        IF (debugMode)
341       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)
342  #endif  #endif
343    
344        RETURN        RETURN
345        END        END
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.66
  ViewVC Help
Powered by ViewVC 1.1.22