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