/[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.7 by heimbach, Mon Jul 30 20:39:18 2001 UTC revision 1.25 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_VARIABLES
10    C     !INTERFACE:
11        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  
12    
13    C     !DESCRIPTION: \bv
14    C     *==========================================================*
15    C     | SUBROUTINE PACKAGES_INIT_VARIABLES                        
16    C     | o Does initialisation of package-related variable data    
17    C     *==========================================================*
18    C     \ev
19    
20    C     !CALLING SEQUENCE:
21    C     PACKAGES_INIT_VARIABLES
22    C       |
23    C       |-- GMREDI_INIT
24    C       |
25    C       |-- KPP_INIT
26    C       |-- KPP_OPEN_DIAGS
27    C       |
28    C       |-- SEAICE_INIT
29    C       |
30    C       |-- OBCS_INIT_VARIABLES
31    C       |
32    C       |-- PTRACERS_INIT
33    C       |
34    C       |-- LAND_INI_VARS
35    C       |
36    C       |-- CTRL_MAP_INI
37    C       |
38    C       |-- EXF_INIT
39    C       |
40    C       |-- INI_FORCING
41    C       |
42    C       |-- ECCO_INIT
43    C       |
44    C       |-- COST_INIT
45    C       |
46    C       |-- BULKF_INIT
47    C       |
48    C       |-- ICE_INIT
49    
50    C     !USES:
51          IMPLICIT NONE
52  C     === Global variables ===  C     === Global variables ===
53  #include "SIZE.h"  #include "SIZE.h"
54  #include "EEPARAMS.h"  #include "EEPARAMS.h"
55  #include "PARAMS.h"  #include "PARAMS.h"
56    
57    C     !INPUT/OUTPUT PARAMETERS:
58  C     === Routine arguments ===  C     === Routine arguments ===
59  C     myThid -  Number of this instances  C     myThid -  Number of this instances
60        INTEGER myThid        INTEGER myThid
61    CEOP
62    
63  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
64  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
# Line 33  C--   Initialize KPP vertical mixing sch Line 73  C--   Initialize KPP vertical mixing sch
73        ENDIF        ENDIF
74  #endif  #endif
75    
76  #ifdef ALLOW_OBCS  #ifdef ALLOW_SEAICE
77  C--   Open boundaries data  C--   Initialize SEAICE model.
78        IF (useOBCS) THEN        IF (useSEAICE) CALL SEAICE_INIT( myThid )
79          CALL OBCS_INIT_VARIABLES( myThid )  #endif
80    
81    cph-- moved further down
82    cph#ifdef ALLOW_OBCS
83    cphC--   Open boundaries data
84    cph      IF (useOBCS) THEN
85    cph        CALL OBCS_INIT_VARIABLES( myThid )
86    cph      ENDIF
87    cph#endif
88    
89    #ifdef ALLOW_PTRACERS
90    # ifndef ALLOW_AUTODIFF_TAMC
91          IF ( usePTRACERS ) THEN
92    # endif
93             CALL PTRACERS_INIT( mythid )
94    #ifdef ALLOW_GCHEM
95             CALL GCHEM_INIT_VARI( mythid )
96    #endif
97    # ifndef ALLOW_AUTODIFF_TAMC
98        ENDIF        ENDIF
99    # endif
100  #endif  #endif
101    
102  #ifdef ALLOW_AIM  #ifdef ALLOW_LAND
103        IF ( useAIM ) CALL AIM_INIT( mythid )        IF ( useLAND ) CALL LAND_INI_VARS( mythid )
104  #endif  #endif
105    
106  #ifdef ALLOW_ADJOINT_RUN  #if (defined (ALLOW_ADJOINT_RUN) || \
107  c--   Map the control variables onto the model state.       defined (ALLOW_TANGENTLINEAR_RUN) || \
108        call ctrl_map_ini( mythid )       defined (ALLOW_ECCO_OPTIMIZATION))
109    c--   Initialise auxiliary xx_ fields
110          CALL CTRL_INIT_VARIABLES ( mythid )
111    c--   Map the control variables onto the model state.
112          CALL CTRL_MAP_INI( mythid )
113        _BARRIER        _BARRIER
114    #endif
115    
116    #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
117          CALL EXF_INIT( mythid )
118    #else
119          CALL INI_FORCING( mythid )
120    #endif
121    
122    #ifdef ALLOW_COST
123  c--   Initialise the cost function.  c--   Initialise the cost function.
124        call cost_init( mythid )  ceh3 needs an IF ( useCOST ) THEN
125          CALL COST_INITVARIA( mythid )
126        _BARRIER        _BARRIER
127  #endif  #endif
128    
129  #ifdef INCLUDE_ECCO_PACKAGE  #ifdef ALLOW_OBCS
130        IF (useECCO) THEN  C--   Open boundaries data
131         CALL ECCO_INIT( myThid )        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
       ENDIF  
 #else  
       CALL INI_FORCING( myThid )  
132  #endif  #endif
133    
134    cswdblk -- begin add ---
135    #ifdef ALLOW_BULK_FORCE
136          IF (useBulkForce) call BULKF_INIT( mythid)
137    #endif
138    cswdblk ---end add ---
139    
140    cswdice ---begin add ---
141    #ifdef ALLOW_THERM_SEAICE
142          IF (useThermSeaIce) call ICE_INIT( mythid)
143    #endif
144    cswdice ---end add ---
145    
146    
147        RETURN        RETURN
148        END        END
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22