/[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.18 by molod, Thu Feb 12 16:01:32 2004 UTC revision 1.32 by jmc, Fri Dec 3 15:39:11 2004 UTC
# Line 29  C       |-- ZONAL_FILT_INIT Line 29  C       |-- ZONAL_FILT_INIT
29  C       |  C       |
30  C       |-- AIM_INITIALISE  C       |-- AIM_INITIALISE
31  C       |  C       |
32    C       |-- GRIDALT_INITIALISE
33    C       |
34    C       |-- FIZHI_INIT_FIXED
35    C       |
36  C       |-- LAND_INITIALISE  C       |-- LAND_INITIALISE
37    C       |
38    C       |-- ECCO_COST_INIT_FIXED
39    C       |
40    C       |-- CTRL_INIT
41    C       |
42    C       |-- GCHEM_INIT_FIXED
43    C       |
44    C       |-- OPPS_INIT
45    C       |
46    C       |-- DIAGNOSTICS_INITIALISE
47    
48  C     !USES:  C     !USES:
49        IMPLICIT NONE        IMPLICIT NONE
# Line 44  C     myThid -  Number of this instances Line 58  C     myThid -  Number of this instances
58        INTEGER myThid        INTEGER myThid
59  CEOP  CEOP
60    
61    #ifdef ALLOW_GENERIC_ADVDIFF
62  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
63        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
64    #endif
65    
66  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
67  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 53  C--   Initialize fixed arrays for OBCS Line 69  C--   Initialize fixed arrays for OBCS
69         CALL OBCS_INIT_FIXED( myThid )         CALL OBCS_INIT_FIXED( myThid )
70        ENDIF        ENDIF
71  #endif  #endif
72    
73  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
74  C--   Initialise Float positions  C--   Initialise Float positions
75        IF (useFLT) THEN        IF (useFLT) THEN
# Line 60  C--   Initialise Float positions Line 77  C--   Initialise Float positions
77        _BARRIER        _BARRIER
78        ENDIF        ENDIF
79  #endif  #endif
80    
81    #ifdef ALLOW_TIMEAVE
82    C     IF (useTIMEAVE) THEN
83          CALL TIMEAVE_INIT_FIXED( myThid )
84    C     ENDIF
85    #endif
86    
87  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
88  C--   Latitude circle filter initialisation  C--   Latitude circle filter initialisation
89        IF (useZONAL_FILT) THEN        IF (useZONAL_FILT) THEN
# Line 76  C--   Initialise & Read AIM physical par Line 100  C--   Initialise & Read AIM physical par
100  C AMM  C AMM
101  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GRIDALT
102  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialise GRIDALT parameters - the alternative grid
103        IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid )        IF (useGRIDALT) then
104           CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
105           CALL GRIDALT_INITIALISE( myThid )
106           CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
107          ENDIF
108    
109  #endif  #endif
110    
111  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
# Line 104  C--   Initialise the control variables Line 133  C--   Initialise the control variables
133  #endif  #endif
134    
135  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
136          IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
137    #endif
138    
139    #ifdef ALLOW_PTRACERS
140  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
141        IF (usePTRACERS) then        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
        call GCHEM_INIT_FIXED(mythid)  
       ENDIF  
142  #endif  #endif
143  #endif  #endif
144    
145    #ifdef ALLOW_CD_CODE
146          IF (useCDscheme) then
147           call CD_CODE_INIT_FIXED(mythid)
148          ENDIF
149    #endif
150    
151    #ifdef ALLOW_OPPS
152          IF (useOPPS) CALL OPPS_INIT( myThid )
153    #endif /* ALLOW_OPPS */
154    
155  CAMM  CAMM
156  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
157        IF (usediagnostics) then        IF (usediagnostics) then
158         call diagnostics_init(mythid)         call diagnostics_initialise(mythid)
159        ENDIF        ENDIF
160  #endif  #endif
161  CAMM  CAMM
162    
163    #ifdef COMPONENT_MODULE
164          IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
165    #endif
166    
167        RETURN        RETURN
168        END        END
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22