/[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.19 by molod, Thu Feb 26 19:41:48 2004 UTC revision 1.25 by jmc, Wed Jul 7 22:23:12 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 76  C--   Initialise & Read AIM physical par Line 88  C--   Initialise & Read AIM physical par
88  C AMM  C AMM
89  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GRIDALT
90  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialise GRIDALT parameters - the alternative grid
91        IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid )        IF (useGRIDALT) then
92           CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
93           CALL GRIDALT_INITIALISE( myThid )
94           CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
95          ENDIF
96    
97  #endif  #endif
98    
99  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
# Line 104  C--   Initialise the control variables Line 121  C--   Initialise the control variables
121  #endif  #endif
122    
123  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
124          IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
125    #endif
126    
127    #ifdef ALLOW_PTRACERS
128  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
129        IF (usePTRACERS) then        IF (usePTRACERS) then
130         call GCHEM_INIT_FIXED(mythid)         call GCHEM_INIT_FIXED(mythid)
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22