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