/[MITgcm]/MITgcm/model/src/packages_init_fixed.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_init_fixed.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.43 by heimbach, Thu Aug 25 16:11:30 2005 UTC revision 1.52 by edhill, Tue Aug 15 04:24:03 2006 UTC
# Line 11  C     !INTERFACE: Line 11  C     !INTERFACE:
11    
12  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
13  C     *==========================================================*  C     *==========================================================*
14  C     | SUBROUTINE PACKAGES_INIT_FIXED                              C     | SUBROUTINE PACKAGES_INIT_FIXED
15  C     | o Does initialisation of package-related fixed fields      C     | o Does initialisation of package-related fixed fields
16  C     *==========================================================*  C     *==========================================================*
17  C     \ev  C     \ev
18    
# Line 26  C       |-- DIAGNOSTICS_MAIN_INIT Line 26  C       |-- DIAGNOSTICS_MAIN_INIT
26  C       |  C       |
27  C       |-- GAD_INIT  C       |-- GAD_INIT
28  C       |  C       |
29    C       |-- MOM_INIT_FIXED
30    C       |
31  C       |-- CD_CODE_INIT_FIXED  C       |-- CD_CODE_INIT_FIXED
32  C       |  C       |
33  C       |-- EXF_INIT_FIXED  C       |-- EXF_INIT_FIXED
# Line 46  C       |-- SHAP_FILT_INIT_FIZED Line 48  C       |-- SHAP_FILT_INIT_FIZED
48  C       |  C       |
49  C       |-- ZONAL_FILT_INIT  C       |-- ZONAL_FILT_INIT
50  C       |  C       |
 C       |-- ATM_DIAGNOSTICS_INIT  
 C       |  
51  C       |-- AIM_INITIALISE  C       |-- AIM_INITIALISE
52  C       |  C       |
53  C       |-- GRIDALT_INITIALISE  C       |-- GRIDALT_INITIALISE
# Line 56  C       |-- FIZHI_INIT_FIXED Line 56  C       |-- FIZHI_INIT_FIXED
56  C       |  C       |
57  C       |-- LAND_INITIALISE  C       |-- LAND_INITIALISE
58  C       |  C       |
59    C       |-- SEAICE_COST_INIT_FIXED
60    C       |
61  C       |-- ECCO_COST_INIT_FIXED  C       |-- ECCO_COST_INIT_FIXED
62  C       |  C       |
63  C       |-- CTRL_INIT  C       |-- CTRL_INIT
64  C       |  C       |
65  C       |-- PTRACERS_INITIALISE  C       |-- PTRACERS_INIT_FIXED
66  C       |  C       |
67  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
68  C       |  C       |
# Line 68  C       |-- DIC_INIT_FIXED Line 70  C       |-- DIC_INIT_FIXED
70  C       |  C       |
71  C       |-- THSICE_INIT_FIXED  C       |-- THSICE_INIT_FIXED
72  C       |  C       |
73    C       |-- SHELFICE_INIT_FIXED
74    C       |
75    C       |-- MYPACKAGE_INIT_FIXED
76    C       |
77  C       |-- CPL_INIT_FIXED  C       |-- CPL_INIT_FIXED
78  C       |  C       |
79  C       |-- DIAGNOSTICS_INIT_FIXED  C       |-- DIAGNOSTICS_INIT_FIXED
80    C       |
81    C       |-- REGRID_INIT_FIXED
82    
83  C     !USES:  C     !USES:
84        IMPLICIT NONE        IMPLICIT NONE
# Line 93  CEOP Line 101  CEOP
101    
102  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
103        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
104    C-    needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
105          CALL DIAGNOSTICS_INIT_EARLY( myThid )          CALL DIAGNOSTICS_INIT_EARLY( myThid )
106          CALL DIAGNOSTICS_MAIN_INIT( myThid )          CALL DIAGNOSTICS_MAIN_INIT( myThid )
107        ENDIF        ENDIF
# Line 103  C--   Initialize fixed params for GAD Line 112  C--   Initialize fixed params for GAD
112        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
113  #endif  #endif
114    
115    #ifdef ALLOW_MOM_COMMON
116    C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
117          IF ( momStepping ) THEN
118           CALL MOM_INIT_FIXED( myThid )
119          ENDIF
120    #endif
121    
122  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
123        IF (useCDscheme) THEN        IF (useCDscheme) THEN
124         CALL CD_CODE_INIT_FIXED(mythid)         CALL CD_CODE_INIT_FIXED(mythid)
# Line 212  C--   in order to provide the weight fil Line 228  C--   in order to provide the weight fil
228        CALL ECCO_COST_INIT_FIXED( myThid )        CALL ECCO_COST_INIT_FIXED( myThid )
229  #endif  #endif
230    
231    #ifdef ALLOW_PROFILES
232          CALL PROFILES_INIT_FIXED( myThid )
233    #endif
234    
235  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
236  C--   Initialise the control variables  C--   Initialise the control variables
237        CALL CTRL_INIT( myThid )        CALL CTRL_INIT( myThid )
# Line 219  C--   Initialise the control variables Line 239  C--   Initialise the control variables
239  #endif  #endif
240    
241  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
242        IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)        IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
243  #endif  #endif
244    
245  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
# Line 231  C     IF (useDIC) Line 251  C     IF (useDIC)
251        CALL DIC_INIT_FIXED(mythid)        CALL DIC_INIT_FIXED(mythid)
252  #endif  #endif
253    
254    #ifdef ALLOW_RBCS
255          IF (useRBCS) CALL RBCS_INIT_FIXED(mythid)
256    #endif
257    
258  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
259        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
260  #endif  #endif
261    
262    #ifdef ALLOW_SHELFICE
263          IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
264    #endif /* ALLOW_SHELFICE */
265    
266    #ifdef ALLOW_MYPACKAGE
267          IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)
268    #endif
269    
270  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
271        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
272  #endif  #endif
273    
274  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
275        IF ( useDiagnostics ) THEN  C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
276          CALL DIAGNOSTICS_INIT_FIXED( myThid )        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
277        ENDIF  #endif
278    
279    #ifdef ALLOW_EMBED_FILES
280          IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )
281    #endif
282    
283    #ifdef ALLOW_REGRID
284          IF ( useREGRID ) CALL REGRID_INIT_FIXED( mythid )
285  #endif  #endif
286    
287        RETURN        RETURN
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.52
  ViewVC Help
Powered by ViewVC 1.1.22