/[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.12 by edhill, Thu Oct 23 04:41:40 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "AD_CONFIG.h"
5    #include "PACKAGES_CONFIG.h"
6  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
7    
8    CBOP
9    C     !ROUTINE: PACKAGES_INIT_FIXED
10    C     !INTERFACE:
11        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  
12    
13    C     !DESCRIPTION: \bv
14    C     *==========================================================*
15    C     | SUBROUTINE PACKAGES_INIT_FIXED                            
16    C     | o Does initialisation of package-related fixed fields    
17    C     *==========================================================*
18    C     \ev
19    
20    C     !CALLING SEQUENCE:
21    C     PACKAGES_INIT_FIXED
22    C       |
23    C       |-- GAD_INIT
24    C       |
25    C       |-- OBCS_INIT_FIXED
26    C       |
27    C       |-- FLT_INIT
28    C       |
29    C       |-- ZONAL_FILT_INIT
30    C       |
31    C       |-- AIM_INITIALISE
32    C       |
33    C       |-- LAND_INITIALISE
34    
35    C     !USES:
36          IMPLICIT NONE
37  C     === Global variables ===  C     === Global variables ===
38  #include "SIZE.h"  #include "SIZE.h"
39  #include "EEPARAMS.h"  #include "EEPARAMS.h"
40  #include "PARAMS.h"  #include "PARAMS.h"
41    
42    C     !INPUT/OUTPUT PARAMETERS:
43  C     === Routine arguments ===  C     === Routine arguments ===
44  C     myThid -  Number of this instances  C     myThid -  Number of this instances
45        INTEGER myThid        INTEGER myThid
46    CEOP
47    
48    C--   Initialize fixed params for GAD
49          CALL GAD_INIT( myThid )
50    
51  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
52  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 26  C--   Initialize fixed arrays for OBCS Line 54  C--   Initialize fixed arrays for OBCS
54         CALL OBCS_INIT_FIXED( myThid )         CALL OBCS_INIT_FIXED( myThid )
55        ENDIF        ENDIF
56  #endif  #endif
57    #ifdef ALLOW_FLT
58    C--   Initialise Float positions
59          IF (useFLT) THEN
60           CALL FLT_INIT(nIter0,startTime,myThid )
61          _BARRIER
62          ENDIF
63    #endif
64    #ifdef ALLOW_ZONAL_FILT
65    C--   Latitude circle filter initialisation
66          IF (useZONAL_FILT) THEN
67           CALL ZONAL_FILT_INIT(myThid)
68          _BARRIER
69          ENDIF
70    #endif
71    
72    #ifdef ALLOW_AIM
73    C--   Initialise & Read AIM physical parameters
74          IF (useAIM) CALL AIM_INITIALISE( myThid )
75    #endif
76    
77    #ifdef ALLOW_LAND
78    C--   Initialise & Read Land package parameters
79          IF (useLand) CALL LAND_INITIALISE( myThid )
80    #endif
81    
82    #if (defined (ALLOW_ADJOINT_RUN) || \
83         defined (ALLOW_TANGENTLINEAR_RUN) || \
84         defined (ALLOW_ECCO_OPTIMIZATION))
85    C--   Initialise the control variables
86          CALL CTRL_INIT( myThid )
87          _BARRIER
88    #endif
89    
90    #ifdef INCLUDE_ECCO_PACKAGE
91    # ifdef ALLOW_COST
92    C--   Initialise ecco-specific cost function.
93           IF (useECCO) CALL COST_INIT_FIXED( myThid )
94    # endif
95    #endif
96    
97    #ifdef ALLOW_PTRACERS
98    #ifdef ALLOW_GCHEM
99          IF (usePTRACERS) then
100           call GCHEM_INIT_FIXED(mythid)
101          ENDIF
102    #endif
103    #endif
104    
105    
106        RETURN        RETURN
107        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22