/[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.20 by edhill, Thu Feb 26 22:31:58 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       |-- LAND_INITIALISE
33    
34    C     !USES:
35          IMPLICIT NONE
36  C     === Global variables ===  C     === Global variables ===
37  #include "SIZE.h"  #include "SIZE.h"
38  #include "EEPARAMS.h"  #include "EEPARAMS.h"
39  #include "PARAMS.h"  #include "PARAMS.h"
40    
41    C     !INPUT/OUTPUT PARAMETERS:
42  C     === Routine arguments ===  C     === Routine arguments ===
43  C     myThid -  Number of this instances  C     myThid -  Number of this instances
44        INTEGER myThid        INTEGER myThid
45    CEOP
46    
47    C--   Initialize fixed params for GAD
48          CALL GAD_INIT( myThid )
49    
50    C--   Initialize MNC look-up tables
51    #ifdef ALLOW_MNC
52    CEH3 NEED RUN-TIME SWITCH:  IF (useOBCS) THEN
53          CALL MNC_INIT(myThid)
54          CALL MNC_CW_INIT(myThid, sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr)
55    
56          CALL INI_MNC_IO(myThid)
57    CEH3 NEED RUN-TIME SWITCH:  ENDIF
58    #endif
59    
60  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
61  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 28  C--   Initialize fixed arrays for OBCS Line 65  C--   Initialize fixed arrays for OBCS
65  #endif  #endif
66  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
67  C--   Initialise Float positions  C--   Initialise Float positions
68        IF (useFLT) then        IF (useFLT) THEN
69         CALL FLT_INIT(nIter0,startTime,myThid )         CALL FLT_INIT(nIter0,startTime,myThid )
70        _BARRIER        _BARRIER
71        ENDIF        ENDIF
72  #endif  #endif
73    #ifdef ALLOW_ZONAL_FILT
74    C--   Latitude circle filter initialisation
75          IF (useZONAL_FILT) THEN
76           CALL ZONAL_FILT_INIT(myThid)
77          _BARRIER
78          ENDIF
79    #endif
80    
81    #ifdef ALLOW_AIM
82    C--   Initialise & Read AIM physical parameters
83          IF (useAIM) CALL AIM_INITIALISE( myThid )
84    #endif
85    
86    C AMM
87    #ifdef ALLOW_GRIDALT
88    C--   Initialise GRIDALT parameters - the alternative grid
89          IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid )
90    #endif
91    
92    #ifdef ALLOW_FIZHI
93    C--   Initialise & Read FIZHI physical parameters
94          IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
95    #endif
96    C AMM
97    
98    #ifdef ALLOW_LAND
99    C--   Initialise & Read Land package parameters
100          IF (useLand) CALL LAND_INITIALISE( myThid )
101    #endif
102    
103    #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
104    C--   Initialise ecco-specific cost function.
105    C--   This needs to preceed the call ctrl_init
106    C--   in order to provide the weight files
107          IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )
108    #endif
109    
110    #ifdef ALLOW_AUTODIFF
111    C--   Initialise the control variables
112          CALL CTRL_INIT( myThid )
113          _BARRIER
114    #endif
115    
116    #ifdef ALLOW_PTRACERS
117    #ifdef ALLOW_GCHEM
118          IF (usePTRACERS) then
119           call GCHEM_INIT_FIXED(mythid)
120          ENDIF
121    #endif
122    #endif
123    
124    CAMM
125    #ifdef ALLOW_DIAGNOSTICS
126          IF (usediagnostics) then
127           call diagnostics_initialise(mythid)
128          ENDIF
129    #endif
130    CAMM
131    
132        RETURN        RETURN
133        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22