/[MITgcm]/MITgcm/model/src/packages_init_variables.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_init_variables.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by heimbach, Sun Mar 25 22:33:53 2001 UTC revision 1.11 by adcroft, Mon Mar 4 17:26:41 2002 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_VARIABLES
8    C     !INTERFACE:
9        SUBROUTINE PACKAGES_INIT_VARIABLES( myThid )        SUBROUTINE PACKAGES_INIT_VARIABLES( myThid )
 C     /==========================================================\  
 C     | SUBROUTINE PACKAGES_INIT_VARIABLES                       |  
 C     | o Does initialisation of package-related variable data   |  
 C     |==========================================================|  
 C     \==========================================================/  
       IMPLICIT NONE  
10    
11    C     !DESCRIPTION: \bv
12    C     *==========================================================*
13    C     | SUBROUTINE PACKAGES_INIT_VARIABLES                        
14    C     | o Does initialisation of package-related variable data    
15    C     *==========================================================*
16    C     \ev
17    
18    C     !CALLING SEQUENCE:
19    C     PACKAGES_INIT_VARIABLES
20    C       |
21    C       |-- GMREDI_INIT
22    C       |
23    C       |-- KPP_INIT
24    C       |-- KPP_OPEN_DIAGS
25    C       |
26    C       |-- OBCS_INIT_VARIABLES
27    C       |
28    C       |-- AIM_INIT
29    C       |
30    C       |-- CTRL_MAP_INI
31    C       |
32    C       |-- COST_INIT
33    C       |
34    C       |-- ECCO_INIT
35    C       |
36    C       |-- INI_FORCING
37    
38    C     !USES:
39          IMPLICIT NONE
40  C     === Global variables ===  C     === Global variables ===
41  #include "SIZE.h"  #include "SIZE.h"
42  #include "EEPARAMS.h"  #include "EEPARAMS.h"
43  #include "PARAMS.h"  #include "PARAMS.h"
44    
45    C     !INPUT/OUTPUT PARAMETERS:
46  C     === Routine arguments ===  C     === Routine arguments ===
47  C     myThid -  Number of this instances  C     myThid -  Number of this instances
48        INTEGER myThid        INTEGER myThid
49    CEOP
50    
51  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
52  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
# Line 44  C--   Open boundaries data Line 72  C--   Open boundaries data
72        IF ( useAIM ) CALL AIM_INIT( mythid )        IF ( useAIM ) CALL AIM_INIT( mythid )
73  #endif  #endif
74    
75  #ifdef ALLOW_MIT_ADJOINT_RUN  #ifdef ALLOW_PTRACERS
76          IF ( usePTRACERS ) CALL PTRACERS_INIT( mythid )
77    #endif
78    
79    #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))
80  c--   Map the control variables onto the model state.  c--   Map the control variables onto the model state.
81        call ctrl_map_ini( mythid )        call ctrl_map_ini( mythid )
82        _BARRIER        _BARRIER
# Line 53  c--   Initialise the cost function. Line 85  c--   Initialise the cost function.
85        _BARRIER        _BARRIER
86  #endif  #endif
87    
88    #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
89          CALL EXF_INIT( mythid )
90    #else
91          CALL INI_FORCING( mythid )
92    #endif
93    
94  #ifdef INCLUDE_ECCO_PACKAGE  #ifdef INCLUDE_ECCO_PACKAGE
95        IF (useECCO) THEN        IF (useECCO) THEN
96         CALL ECCO_INIT( myThid )         CALL ECCO_INIT( myThid )
97        ENDIF        ENDIF
 #else  
       CALL INI_FORCING( myThid )  
98  #endif  #endif
99    
100        RETURN        RETURN
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22