/[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.48 by heimbach, Sat May 6 14:33:25 2006 UTC revision 1.62 by heimbach, Fri Sep 28 19:42:06 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       |-- 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 33  C       |-- MY82_INIT Line 37  C       |-- MY82_INIT
37  C       |  C       |
38  C       |-- GGL90_INIT  C       |-- GGL90_INIT
39  C       |  C       |
40  C       |-- SEAICE_INIT  C       |-- SEAICE_INIT_VARIA
 C       |  
 C       |-- OBCS_INIT_VARIABLES  
41  C       |  C       |
42  C       |-- PTRACERS_INIT  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       |  C       |
58  C       |-- ECCO_INIT  C       |-- PROFILES_INIT_VARIA
59  C       |  C       |
60  C       |-- COST_INIT  C       |-- OBCS_INIT_VARIABLES
61  C       |  C       |
62  C       |-- BULKF_INIT  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    
80  C     !USES:  C     !USES:
81        IMPLICIT NONE        IMPLICIT NONE
# Line 76  C     myThid -  Number of this instances Line 96  C     myThid -  Number of this instances
96  CEOP  CEOP
97    
98  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
99        IF (debugMode)        IF (debugMode)
100       &     CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid)       &     CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid)
101  #endif  #endif
102    
# Line 86  CEOP Line 106  CEOP
106        ENDIF        ENDIF
107  #endif  #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  #ifdef ALLOW_CD_CODE
117  C--   Initialize CD_CODE variables:  C--   Initialize CD_CODE variables:
118  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),
119  C             therefore call CD-ini-vars before others pkg.  C             therefore call CD-ini-vars before others pkg.
120  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
# Line 99  C             therefore call CD-ini-vars Line 126  C             therefore call CD-ini-vars
126  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
127  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
128  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
129        IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI',myThid)        IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT',myThid)
130  #endif  #endif
131        IF (useGMRedi) CALL GMREDI_INIT( myThid )        IF (useGMRedi) CALL GMREDI_INIT( myThid )
132  #endif  #endif
# Line 108  C--   Initialize GM/Redi parameterizatio Line 135  C--   Initialize GM/Redi parameterizatio
135  C--   Initialize KPP vertical mixing scheme.  C--   Initialize KPP vertical mixing scheme.
136        IF (useKPP) THEN        IF (useKPP) THEN
137  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
138         IF (debugMode)         IF (debugMode)
139       &       CALL DEBUG_CALL('KPP_INIT + KPP_OPEN_DIAGS',myThid)       &       CALL DEBUG_CALL('KPP_INIT + KPP_OPEN_DIAGS',myThid)
140  #endif  #endif
141         CALL KPP_INIT( myThid )         CALL KPP_INIT( myThid )
# Line 145  C--   Initialize GGL90 vertical mixing s Line 172  C--   Initialize GGL90 vertical mixing s
172    
173  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
174  C--   Initialize SEAICE model.  C--   Initialize SEAICE model.
175  #ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
176        IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT',myThid)        IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_VARIA',myThid)
177  #endif  # endif
178        IF (useSEAICE) CALL SEAICE_INIT( myThid )  cph# ifndef ALLOW_AUTODIFF_TAMC
179          IF (useSEAICE) THEN
180    cph# endif
181           CALL SEAICE_INIT_VARIA( myThid )
182    cph# ifndef ALLOW_AUTODIFF_TAMC
183          ENDIF
184    cph# endif
185  #endif  #endif
186    
187  cph-- moved further down  cph-- moved further down
# Line 164  cph#endif Line 197  cph#endif
197        IF ( usePTRACERS ) THEN        IF ( usePTRACERS ) THEN
198  # endif  # endif
199  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
200        IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT',myThid)        IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid)
201  #endif  #endif
202           CALL PTRACERS_INIT( mythid )           CALL PTRACERS_INIT_VARIA( myThid )
203  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
204  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
205           IF (useGCHEM) THEN           IF (useGCHEM) THEN
206  # endif  # endif
207            CALL GCHEM_INIT_VARI( mythid )            CALL GCHEM_INIT_VARI( myThid )
208  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
209           ENDIF           ENDIF
210  # endif  # endif
# Line 185  cph#endif Line 218  cph#endif
218  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
219        IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid)        IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid)
220  #endif  #endif
221        IF ( useLAND ) CALL LAND_INI_VARS( mythid )        IF ( useLAND ) CALL LAND_INI_VARS( myThid )
222    #endif
223    
224    #ifdef ALLOW_SMOOTH
225          call smooth_init_varia(mythid)
226  #endif  #endif
227    
228  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
229  CADJ STORE theta = tapelev_init, key = 1  CADJ STORE theta = tapelev_init, key = 1
230  c--   Initialise auxiliary xx_ fields  c--   Initialise auxiliary xx_ fields
231        CALL CTRL_INIT_VARIABLES ( mythid )        CALL CTRL_INIT_VARIABLES ( myThid )
232  c--   Map the control variables onto the model state.  c--   Map the control variables onto the model state.
233  # ifdef ALLOW_ECCO  # ifdef ALLOW_ECCO
234        CALL CTRL_MAP_INI_ECCO( mythid )        CALL CTRL_MAP_INI_ECCO( myThid )
235  # else  # else
236        CALL CTRL_MAP_INI( mythid )        CALL CTRL_MAP_INI( myThid )
237  # endif  # endif
238        _BARRIER        _BARRIER
239  #endif  #endif
240    
241  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
242          IF (useEXF) THEN
243  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
244        IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid)        IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid)
245  #endif  #endif
246        CALL EXF_INIT( mythid )         CALL EXF_INIT( myThid )
247  #endif        ENDIF
   
 #ifdef ALLOW_DEBUG  
       IF (debugMode) CALL DEBUG_CALL('INI_FORCING',myThid)  
248  #endif  #endif
       CALL INI_FORCING( mythid )  
249    
250  #ifdef ALLOW_EBM  #ifdef ALLOW_EBM
251  # ifdef ALLOW_AUTODIFF  # ifdef ALLOW_AUTODIFF
252  CADJ STORE theta = tapelev_init, key = 1  CADJ STORE theta = tapelev_init, key = 1
253  # endif  # endif
254        IF (useEBM) CALL EBM_INI_VARS( mythid )        IF (useEBM) CALL EBM_INI_VARS( myThid )
255  #endif  #endif
256    
257  #ifdef ALLOW_COST  #ifdef ALLOW_COST
258  c--   Initialise the cost function.  c--   Initialise the cost function.
259  ceh3 needs an IF ( useCOST ) THEN  ceh3 needs an IF ( useCOST ) THEN
260        CALL COST_INIT_VARIA( mythid )        CALL COST_INIT_VARIA( myThid )
261        _BARRIER        _BARRIER
262  #endif  #endif
263    
264  #ifdef ALLOW_PROFILES  #ifdef ALLOW_PROFILES
265  c--   Initialise the cost function.  c--   Initialise the cost function.
266        CALL PROFILES_INIT_VARIA( mythid )        CALL PROFILES_INIT_VARIA( myThid )
267        _BARRIER        _BARRIER
268  #endif  #endif
269    
# Line 242  C--   Open boundaries data Line 276  C--   Open boundaries data
276  #endif  #endif
277    
278  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
279        IF (useBulkForce) CALL BULKF_INIT( mythid)        IF (useBulkForce) CALL BULKF_INIT_VARIA( myThid)
280  #endif  #endif
281    
282  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
283  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
284        IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid)        IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid)
285  #endif  #endif
286        IF (useThSIce) CALL THSICE_INI_VARS( mythid)        IF (useThSIce) CALL THSICE_INI_VARS( myThid)
287  #endif  #endif
288    
289  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
290  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
291        IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid)        IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid)
292  #endif  #endif
293        IF (useCoupler) CALL CPL_INI_VARS( mythid )        IF (useCoupler) CALL CPL_INI_VARS( myThid )
294    #endif
295    
296    #ifdef ALLOW_ATM2D
297    #ifdef ALLOW_DEBUG
298          IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_VARS',myThid)
299    #endif
300          IF (useAtm2d) CALL ATM2D_INIT_VARS( myThid )
301  #endif  #endif
302    
303  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
# Line 264  C Initialize FIZHI state variables Line 305  C Initialize FIZHI state variables
305  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
306        IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)        IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)
307  #endif  #endif
308        IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)        IF (useFIZHI) CALL FIZHI_INIT_VARS( myThid )
309  #endif  #endif
310    
311  #ifdef ALLOW_MATRIX  #ifdef ALLOW_MATRIX
# Line 274  C Initialize FIZHI state variables Line 315  C Initialize FIZHI state variables
315        IF ( useMATRIX ) CALL MATRIX_INIT( myThid )        IF ( useMATRIX ) CALL MATRIX_INIT( myThid )
316  #endif  #endif
317    
318    #ifdef ALLOW_RBCS
319          IF ( useRBCS ) CALL RBCS_INIT_VARIA( myThid )
320    #endif
321    
322    #ifdef ALLOW_REGRID
323          IF ( useREGRID ) CALL REGRID_INIT_VARIA( myThid )
324    #endif
325    
326    #ifdef ALLOW_MYPACKAGE
327          IF ( useMYPACKAGE ) CALL MYPACKAGE_INIT_VARIA( myThid )
328    #endif
329    
330  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
331        IF (debugMode)        IF (debugMode)
332       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)
333  #endif  #endif
334    
335        RETURN        RETURN
336        END        END
Legend:
Removed from v.1.48  
changed lines
  Added in v.1.62
  ViewVC Help
Powered by ViewVC 1.1.22