/[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.2 by adcroft, Fri Feb 2 21:04:48 2001 UTC revision 1.32 by jmc, Fri Dec 3 15:39:11 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       |-- OPPS_INIT
45    C       |
46    C       |-- DIAGNOSTICS_INITIALISE
47    
48    C     !USES:
49          IMPLICIT NONE
50  C     === Global variables ===  C     === Global variables ===
51  #include "SIZE.h"  #include "SIZE.h"
52  #include "EEPARAMS.h"  #include "EEPARAMS.h"
53  #include "PARAMS.h"  #include "PARAMS.h"
54    
55    C     !INPUT/OUTPUT PARAMETERS:
56  C     === Routine arguments ===  C     === Routine arguments ===
57  C     myThid -  Number of this instances  C     myThid -  Number of this instances
58        INTEGER myThid        INTEGER myThid
59    CEOP
60    
61    #ifdef ALLOW_GENERIC_ADVDIFF
62    C--   Initialize fixed params for GAD
63          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 27  C--   Initialize fixed arrays for OBCS Line 70  C--   Initialize fixed arrays for OBCS
70        ENDIF        ENDIF
71  #endif  #endif
72    
73    #ifdef ALLOW_FLT
74    C--   Initialise Float positions
75          IF (useFLT) THEN
76           CALL FLT_INIT(nIter0,startTime,myThid )
77          _BARRIER
78          ENDIF
79    #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
88    C--   Latitude circle filter initialisation
89          IF (useZONAL_FILT) THEN
90           CALL ZONAL_FILT_INIT(myThid)
91          _BARRIER
92          ENDIF
93    #endif
94    
95    #ifdef ALLOW_AIM
96    C--   Initialise & Read AIM physical parameters
97          IF (useAIM) CALL AIM_INITIALISE( myThid )
98    #endif
99    
100    C AMM
101    #ifdef ALLOW_GRIDALT
102    C--   Initialise GRIDALT parameters - the alternative grid
103          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
110    
111    #ifdef ALLOW_FIZHI
112    C--   Initialise & Read FIZHI physical parameters
113          IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
114    #endif
115    C AMM
116    
117    #ifdef ALLOW_LAND
118    C--   Initialise & Read Land package parameters
119          IF (useLand) CALL LAND_INITIALISE( myThid )
120    #endif
121    
122    #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
123    C--   Initialise ecco-specific cost function.
124    C--   This needs to preceed the call ctrl_init
125    C--   in order to provide the weight files
126          IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )
127    #endif
128    
129    #ifdef ALLOW_AUTODIFF
130    C--   Initialise the control variables
131          CALL CTRL_INIT( myThid )
132          _BARRIER
133    #endif
134    
135    #ifdef ALLOW_PTRACERS
136          IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
137    #endif
138    
139    #ifdef ALLOW_PTRACERS
140    #ifdef ALLOW_GCHEM
141          IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
142    #endif
143    #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
156    #ifdef ALLOW_DIAGNOSTICS
157          IF (usediagnostics) then
158           call diagnostics_initialise(mythid)
159          ENDIF
160    #endif
161    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.2  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22