/[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.3 by adcroft, Thu Sep 13 17:43:55 2001 UTC revision 1.26 by edhill, Fri Sep 10 12:19:30 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
8    C     !ROUTINE: PACKAGES_INIT_FIXED
9    C     !INTERFACE:
10        SUBROUTINE PACKAGES_INIT_FIXED( myThid )        SUBROUTINE PACKAGES_INIT_FIXED( myThid )
 C     /==========================================================\  
 C     | SUBROUTINE PACKAGES_INIT_FIXED                           |  
 C     | o Does initialisation of package-related fixed fields    |  
 C     |==========================================================|  
 C     \==========================================================/  
       IMPLICIT NONE  
11    
12    C     !DESCRIPTION: \bv
13    C     *==========================================================*
14    C     | SUBROUTINE PACKAGES_INIT_FIXED                            
15    C     | o Does initialisation of package-related fixed fields    
16    C     *==========================================================*
17    C     \ev
18    
19    C     !CALLING SEQUENCE:
20    C     PACKAGES_INIT_FIXED
21    C       |
22    C       |-- GAD_INIT
23    C       |
24    C       |-- OBCS_INIT_FIXED
25    C       |
26    C       |-- FLT_INIT
27    C       |
28    C       |-- ZONAL_FILT_INIT
29    C       |
30    C       |-- AIM_INITIALISE
31    C       |
32    C       |-- GRIDALT_INITIALISE
33    C       |
34    C       |-- FIZHI_INIT_FIXED
35    C       |
36    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:
47          IMPLICIT NONE
48  C     === Global variables ===  C     === Global variables ===
49  #include "SIZE.h"  #include "SIZE.h"
50  #include "EEPARAMS.h"  #include "EEPARAMS.h"
51  #include "PARAMS.h"  #include "PARAMS.h"
52    
53    C     !INPUT/OUTPUT PARAMETERS:
54  C     === Routine arguments ===  C     === Routine arguments ===
55  C     myThid -  Number of this instances  C     myThid -  Number of this instances
56        INTEGER myThid        INTEGER myThid
57    CEOP
58    
59    C--   Initialize fixed params for GAD
60          CALL GAD_INIT( myThid )
61    
62  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
63  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 26  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
72         CALL FLT_INIT(nIter0,startTime,myThid )         CALL FLT_INIT(nIter0,startTime,myThid )
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
84    C--   Latitude circle filter initialisation
85          IF (useZONAL_FILT) THEN
86           CALL ZONAL_FILT_INIT(myThid)
87          _BARRIER
88          ENDIF
89    #endif
90    
91    #ifdef ALLOW_AIM
92    C--   Initialise & Read AIM physical parameters
93          IF (useAIM) CALL AIM_INITIALISE( myThid )
94    #endif
95    
96    C AMM
97    #ifdef ALLOW_GRIDALT
98    C--   Initialise GRIDALT parameters - the alternative grid
99          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
106    
107    #ifdef ALLOW_FIZHI
108    C--   Initialise & Read FIZHI physical parameters
109          IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
110    #endif
111    C AMM
112    
113    #ifdef ALLOW_LAND
114    C--   Initialise & Read Land package parameters
115          IF (useLand) CALL LAND_INITIALISE( myThid )
116    #endif
117    
118    #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
119    C--   Initialise ecco-specific cost function.
120    C--   This needs to preceed the call ctrl_init
121    C--   in order to provide the weight files
122          IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )
123    #endif
124    
125    #ifdef ALLOW_AUTODIFF
126    C--   Initialise the control variables
127          CALL CTRL_INIT( myThid )
128          _BARRIER
129    #endif
130    
131    #ifdef ALLOW_PTRACERS
132          IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
133    #endif
134    
135    #ifdef ALLOW_PTRACERS
136    #ifdef ALLOW_GCHEM
137          IF (usePTRACERS) then
138           call GCHEM_INIT_FIXED(mythid)
139          ENDIF
140    #endif
141    #endif
142    
143    CAMM
144    #ifdef ALLOW_DIAGNOSTICS
145          IF (usediagnostics) then
146           call diagnostics_initialise(mythid)
147          ENDIF
148    #endif
149    CAMM
150    
151        RETURN        RETURN
152        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22