/[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.54 by jmc, Tue Aug 15 14:58:32 2006 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 34  C       | Line 36  C       |
36  C       |-- GGL90_INIT  C       |-- GGL90_INIT
37  C       |  C       |
38  C       |-- SEAICE_INIT  C       |-- SEAICE_INIT
 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       |-- INI_FORCING
53  C       |  C       |
54  C       |-- ECCO_INIT  C       |-- EBM_INI_VARS
55  C       |  C       |
56  C       |-- COST_INIT  C       |-- COST_INIT_VARIA
57  C       |  C       |
58  C       |-- BULKF_INIT  C       |-- PROFILES_INIT_VARIA
59    C       |
60    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       |-- 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 76  C     myThid -  Number of this instances Line 94  C     myThid -  Number of this instances
94  CEOP  CEOP
95    
96  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
97        IF (debugMode)        IF (debugMode)
98       &     CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid)       &     CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid)
99  #endif  #endif
100    
# Line 87  CEOP Line 105  CEOP
105  #endif  #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  #ifdef ALLOW_DEBUG
# Line 108  C--   Initialize GM/Redi parameterizatio Line 126  C--   Initialize GM/Redi parameterizatio
126  C--   Initialize KPP vertical mixing scheme.  C--   Initialize KPP vertical mixing scheme.
127        IF (useKPP) THEN        IF (useKPP) THEN
128  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
129         IF (debugMode)         IF (debugMode)
130       &       CALL DEBUG_CALL('KPP_INIT + KPP_OPEN_DIAGS',myThid)       &       CALL DEBUG_CALL('KPP_INIT + KPP_OPEN_DIAGS',myThid)
131  #endif  #endif
132         CALL KPP_INIT( myThid )         CALL KPP_INIT( myThid )
# Line 164  cph#endif Line 182  cph#endif
182        IF ( usePTRACERS ) THEN        IF ( usePTRACERS ) THEN
183  # endif  # endif
184  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
185        IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT',myThid)        IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid)
186  #endif  #endif
187           CALL PTRACERS_INIT( mythid )           CALL PTRACERS_INIT_VARIA( myThid )
188  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
189  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
190           IF (useGCHEM) THEN           IF (useGCHEM) THEN
# Line 242  C--   Open boundaries data Line 260  C--   Open boundaries data
260  #endif  #endif
261    
262  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
263        IF (useBulkForce) CALL BULKF_INIT( mythid)        IF (useBulkForce) CALL BULKF_INIT_VARIA( mythid)
264  #endif  #endif
265    
266  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
# Line 264  C Initialize FIZHI state variables Line 282  C Initialize FIZHI state variables
282  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
283        IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)        IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)
284  #endif  #endif
285        IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)        IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid )
286  #endif  #endif
287    
288  #ifdef ALLOW_MATRIX  #ifdef ALLOW_MATRIX
# Line 274  C Initialize FIZHI state variables Line 292  C Initialize FIZHI state variables
292        IF ( useMATRIX ) CALL MATRIX_INIT( myThid )        IF ( useMATRIX ) CALL MATRIX_INIT( myThid )
293  #endif  #endif
294    
295    #ifdef ALLOW_RBCS
296          IF ( useRBCS ) CALL RBCS_INIT_VARIA( myThid )
297    #endif
298    
299    #ifdef ALLOW_REGRID
300          IF ( useREGRID ) CALL REGRID_INIT_VARIA( myThid )
301    #endif
302    
303    #ifdef ALLOW_MYPACKAGE
304          IF ( useMYPACKAGE ) CALL MYPACKAGE_INIT_VARIA( myThid )
305    #endif
306    
307  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
308        IF (debugMode)        IF (debugMode)
309       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)
310  #endif  #endif
311    
312        RETURN        RETURN
313        END        END
Legend:
Removed from v.1.48  
changed lines
  Added in v.1.54
  ViewVC Help
Powered by ViewVC 1.1.22