/[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.7 by jmc, Thu Jun 12 18:21:34 2003 UTC revision 1.21 by edhill, Fri Mar 19 03:28:36 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  CBOP  CBOP
# Line 18  C     \ev Line 19  C     \ev
19  C     !CALLING SEQUENCE:  C     !CALLING SEQUENCE:
20  C     PACKAGES_INIT_FIXED  C     PACKAGES_INIT_FIXED
21  C       |  C       |
22    C       |-- MNC_INIT
23    C       |
24  C       |-- GAD_INIT  C       |-- GAD_INIT
25  C       |  C       |
26  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
# Line 43  C     myThid -  Number of this instances Line 46  C     myThid -  Number of this instances
46        INTEGER myThid        INTEGER myThid
47  CEOP  CEOP
48    
49    C--   Initialize MNC look-up tables
50    #ifdef ALLOW_MNC
51    CEH3 NEED RUN-TIME SWITCH:  IF (useMNC) THEN
52          CALL MNC_INIT(myThid)
53          CALL MNC_CW_INIT(sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr, myThid)
54          CALL INI_MNC_IO(myThid)
55    CEH3 NEED RUN-TIME SWITCH:  ENDIF
56    #endif
57    
58  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
59        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
60    
# Line 72  C--   Initialise & Read AIM physical par Line 84  C--   Initialise & Read AIM physical par
84        IF (useAIM) CALL AIM_INITIALISE( myThid )        IF (useAIM) CALL AIM_INITIALISE( myThid )
85  #endif  #endif
86    
87    C AMM
88    #ifdef ALLOW_GRIDALT
89    C--   Initialise GRIDALT parameters - the alternative grid
90          IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid )
91    #endif
92    
93    #ifdef ALLOW_FIZHI
94    C--   Initialise & Read FIZHI physical parameters
95          IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
96    #endif
97    C AMM
98    
99  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
100  C--   Initialise & Read Land package parameters  C--   Initialise & Read Land package parameters
101        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
102  #endif  #endif
103    
104    #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
105    C--   Initialise ecco-specific cost function.
106    C--   This needs to preceed the call ctrl_init
107    C--   in order to provide the weight files
108          IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )
109    #endif
110    
111    #ifdef ALLOW_AUTODIFF
112    C--   Initialise the control variables
113          CALL CTRL_INIT( myThid )
114          _BARRIER
115    #endif
116    
117    #ifdef ALLOW_PTRACERS
118    #ifdef ALLOW_GCHEM
119          IF (usePTRACERS) then
120           call GCHEM_INIT_FIXED(mythid)
121          ENDIF
122    #endif
123    #endif
124    
125    CAMM
126    #ifdef ALLOW_DIAGNOSTICS
127          IF (usediagnostics) then
128           call diagnostics_initialise(mythid)
129          ENDIF
130    #endif
131    CAMM
132    
133        RETURN        RETURN
134        END        END
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22