/[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.14 by heimbach, Thu Nov 6 22:01:43 2003 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 fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
51  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 26  C--   Initialize fixed arrays for OBCS Line 53  C--   Initialize fixed arrays for OBCS
53         CALL OBCS_INIT_FIXED( myThid )         CALL OBCS_INIT_FIXED( myThid )
54        ENDIF        ENDIF
55  #endif  #endif
56    #ifdef ALLOW_FLT
57    C--   Initialise Float positions
58          IF (useFLT) THEN
59           CALL FLT_INIT(nIter0,startTime,myThid )
60          _BARRIER
61          ENDIF
62    #endif
63    #ifdef ALLOW_ZONAL_FILT
64    C--   Latitude circle filter initialisation
65          IF (useZONAL_FILT) THEN
66           CALL ZONAL_FILT_INIT(myThid)
67          _BARRIER
68          ENDIF
69    #endif
70    
71    #ifdef ALLOW_AIM
72    C--   Initialise & Read AIM physical parameters
73          IF (useAIM) CALL AIM_INITIALISE( myThid )
74    #endif
75    
76    #ifdef ALLOW_LAND
77    C--   Initialise & Read Land package parameters
78          IF (useLand) CALL LAND_INITIALISE( myThid )
79    #endif
80    
81    #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
82    C--   Initialise ecco-specific cost function.
83    C--   This needs to preceed the call ctrl_init
84    C--   in order to provide the weight files
85          IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )
86    #endif
87    
88    #ifdef ALLOW_AUTODIFF
89    C--   Initialise the control variables
90          CALL CTRL_INIT( myThid )
91          _BARRIER
92    #endif
93    
94    #ifdef ALLOW_PTRACERS
95    #ifdef ALLOW_GCHEM
96          IF (usePTRACERS) then
97           call GCHEM_INIT_FIXED(mythid)
98          ENDIF
99    #endif
100    #endif
101    
102    
103        RETURN        RETURN
104        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22