/[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.26 by edhill, Fri Sep 10 12:19:30 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       |-- DIAGNOSTICS_INITIALISE
45    
46  C     !USES:  C     !USES:
47        IMPLICIT NONE        IMPLICIT NONE
# Line 53  C--   Initialize fixed arrays for OBCS Line 65  C--   Initialize fixed arrays for OBCS
65         CALL OBCS_INIT_FIXED( myThid )         CALL OBCS_INIT_FIXED( myThid )
66        ENDIF        ENDIF
67  #endif  #endif
68    
69  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
70  C--   Initialise Float positions  C--   Initialise Float positions
71        IF (useFLT) THEN        IF (useFLT) THEN
# Line 60  C--   Initialise Float positions Line 73  C--   Initialise Float positions
73        _BARRIER        _BARRIER
74        ENDIF        ENDIF
75  #endif  #endif
76    
77    #ifdef ALLOW_TIMEAVE
78    C     IF (useTIMEAVE) THEN
79          CALL timeave_init( myThid )
80    C     ENDIF
81    #endif
82    
83  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
84  C--   Latitude circle filter initialisation  C--   Latitude circle filter initialisation
85        IF (useZONAL_FILT) THEN        IF (useZONAL_FILT) THEN
# Line 76  C--   Initialise & Read AIM physical par Line 96  C--   Initialise & Read AIM physical par
96  C AMM  C AMM
97  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GRIDALT
98  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialise GRIDALT parameters - the alternative grid
99        IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid )        IF (useGRIDALT) then
100           CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
101           CALL GRIDALT_INITIALISE( myThid )
102           CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
103          ENDIF
104    
105  #endif  #endif
106    
107  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
# Line 104  C--   Initialise the control variables Line 129  C--   Initialise the control variables
129  #endif  #endif
130    
131  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
132          IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
133    #endif
134    
135    #ifdef ALLOW_PTRACERS
136  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
137        IF (usePTRACERS) then        IF (usePTRACERS) then
138         call GCHEM_INIT_FIXED(mythid)         call GCHEM_INIT_FIXED(mythid)
# Line 114  C--   Initialise the control variables Line 143  C--   Initialise the control variables
143  CAMM  CAMM
144  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
145        IF (usediagnostics) then        IF (usediagnostics) then
146         call diagnostics_init(mythid)         call diagnostics_initialise(mythid)
147        ENDIF        ENDIF
148  #endif  #endif
149  CAMM  CAMM
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22