/[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.41 by molod, Thu Jun 30 23:07:50 2005 UTC revision 1.45 by stephd, Thu Dec 8 00:15:52 2005 UTC
# 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 56  C       |-- FIZHI_INIT_FIXED Line 58  C       |-- FIZHI_INIT_FIXED
58  C       |  C       |
59  C       |-- LAND_INITIALISE  C       |-- LAND_INITIALISE
60  C       |  C       |
61    C       |-- SEAICE_COST_INIT_FIXED
62    C       |
63  C       |-- ECCO_COST_INIT_FIXED  C       |-- ECCO_COST_INIT_FIXED
64  C       |  C       |
65  C       |-- CTRL_INIT  C       |-- CTRL_INIT
# Line 64  C       |-- PTRACERS_INITIALISE Line 68  C       |-- PTRACERS_INITIALISE
68  C       |  C       |
69  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
70  C       |  C       |
71    C       |-- DIC_INIT_FIXED
72    C       |
73  C       |-- THSICE_INIT_FIXED  C       |-- THSICE_INIT_FIXED
74  C       |  C       |
75  C       |-- CPL_INIT_FIXED  C       |-- CPL_INIT_FIXED
# Line 101  C--   Initialize fixed params for GAD Line 107  C--   Initialize fixed params for GAD
107        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
108  #endif  #endif
109    
110    #ifdef ALLOW_MOM_COMMON
111    C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
112          IF ( momStepping ) THEN
113           CALL MOM_INIT_FIXED( myThid )
114          ENDIF
115    #endif
116    
117  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
118        IF (useCDscheme) THEN        IF (useCDscheme) THEN
119         CALL CD_CODE_INIT_FIXED(mythid)         CALL CD_CODE_INIT_FIXED(mythid)
# Line 196  C--   Initialise & Read Land package par Line 209  C--   Initialise & Read Land package par
209        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
210  #endif  #endif
211    
212    #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
213    C--   Initialise ecco-specific cost function.
214    C--   This needs to preceed the call ctrl_init
215    C--   in order to provide the weight files
216          CALL SEAICE_COST_INIT_FIXED( myThid )
217    #endif
218    
219  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
220  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
221  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
# Line 217  C--   Initialise the control variables Line 237  C--   Initialise the control variables
237        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
238  #endif  #endif
239    
240    #ifdef ALLOW_DIC
241    C     IF (useDIC)
242          CALL DIC_INIT_FIXED(mythid)
243    #endif
244    
245    #ifdef ALLOW_RBCS
246          IF (useRBCS) CALL RBCS_INIT_FIXED(mythid)
247    #endif
248    
249    
250  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
251        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
252  #endif  #endif
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.45
  ViewVC Help
Powered by ViewVC 1.1.22