/[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.2 by adcroft, Fri Feb 2 21:04:48 2001 UTC revision 1.36 by mlosch, Thu Sep 16 09:35:11 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5    #include "AD_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       |-- CD_CODE_INI_VARS
24    C       |
25    C       |-- GMREDI_INIT
26    C       |
27    C       |-- KPP_INIT
28    C       |-- KPP_OPEN_DIAGS
29    C       |
30    C       |-- PP81_INIT
31    C       |
32    C       |-- MY82_INIT
33    C       |
34    C       |-- GGL90_INIT
35    C       |
36    C       |-- SEAICE_INIT
37    C       |
38    C       |-- OBCS_INIT_VARIABLES
39    C       |
40    C       |-- PTRACERS_INIT
41    C       |
42    C       |-- LAND_INI_VARS
43    C       |
44    C       |-- CTRL_MAP_INI
45    C       |
46    C       |-- EXF_INIT
47    C       |
48    C       |-- INI_FORCING
49    C       |
50    C       |-- ECCO_INIT
51    C       |
52    C       |-- COST_INIT
53    C       |
54    C       |-- BULKF_INIT
55    C       |
56    C       |-- THSICE_INI_VARS
57    C       |
58    C       |-- CPL_INI_VARS
59    
60    C     !USES:
61          IMPLICIT NONE
62  C     === Global variables ===  C     === Global variables ===
63  #include "SIZE.h"  #include "SIZE.h"
64  #include "EEPARAMS.h"  #include "EEPARAMS.h"
65  #include "PARAMS.h"  #include "PARAMS.h"
66    #ifdef ALLOW_AUTODIFF_TAMC
67    # include "DYNVARS.h"
68    # include "tamc.h"
69    # include "tamc_keys.h"
70    #endif
71    
72    C     !INPUT/OUTPUT PARAMETERS:
73  C     === Routine arguments ===  C     === Routine arguments ===
74  C     myThid -  Number of this instances  C     myThid -  Number of this instances
75        INTEGER myThid        INTEGER myThid
76    CEOP
77    
78    #ifdef ALLOW_CD_CODE
79    C--   Initialize CD_CODE variables:
80    C- note(jmc): before packaging CD_CODE, was done within ini_fields (=called before),
81    C             therefore call CD-ini-vars before others pkg.
82          IF (useCDscheme) CALL CD_CODE_INI_VARS( myThid )
83    #endif
84    
85  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
86  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
# Line 32  C--   Initialize KPP vertical mixing sch Line 95  C--   Initialize KPP vertical mixing sch
95        ENDIF        ENDIF
96  #endif  #endif
97    
98  #ifdef ALLOW_OBCS  #ifdef ALLOW_PP81
99  C--   Open boundaries data  C--   Initialize PP81 vertical mixing scheme.
100        IF (useOBCS) THEN        IF (usePP81) THEN
101          CALL OBCS_INIT_VARIABLES( myThid )         CALL PP81_INIT( myThid )
102        ENDIF        ENDIF
103  #endif  #endif
104    
105  #ifdef INCLUDE_ECCO_PACKAGE  #ifdef ALLOW_MY82
106        IF (useECCO) THEN  C--   Initialize MY82 vertical mixing scheme.
107         CALL ECCO_INIT( myThid )        IF (useMY82) THEN
108           CALL MY82_INIT( myThid )
109        ENDIF        ENDIF
 #else  
       CALL INI_FORCING( myThid )  
110  #endif  #endif
111    
112    #ifdef ALLOW_GGL90
113    C--   Initialize GGL90 vertical mixing scheme.
114          IF (useGGL90) THEN
115           CALL GGL90_INIT( myThid )
116          ENDIF
117    #endif
118    
119    #ifdef ALLOW_SEAICE
120    C--   Initialize SEAICE model.
121          IF (useSEAICE) CALL SEAICE_INIT( myThid )
122    #endif
123    
124    cph-- moved further down
125    cph#ifdef ALLOW_OBCS
126    cphC--   Open boundaries data
127    cph      IF (useOBCS) THEN
128    cph        CALL OBCS_INIT_VARIABLES( myThid )
129    cph      ENDIF
130    cph#endif
131    
132    #ifdef ALLOW_PTRACERS
133    # ifndef ALLOW_AUTODIFF_TAMC
134          IF ( usePTRACERS ) THEN
135    # endif
136             CALL PTRACERS_INIT( mythid )
137    #ifdef ALLOW_GCHEM
138             CALL GCHEM_INIT_VARI( mythid )
139    #endif
140    # ifndef ALLOW_AUTODIFF_TAMC
141          ENDIF
142    # endif
143    #endif
144    
145    #ifdef ALLOW_LAND
146          IF ( useLAND ) CALL LAND_INI_VARS( mythid )
147    #endif
148    
149    #ifdef ALLOW_AUTODIFF
150    CADJ STORE theta = tapelev3, key = 1
151    c--   Initialise auxiliary xx_ fields
152          CALL CTRL_INIT_VARIABLES ( mythid )
153    c--   Map the control variables onto the model state.
154          CALL CTRL_MAP_INI( mythid )
155          _BARRIER
156    #endif
157    
158    #ifdef ALLOW_EXF
159          CALL EXF_INIT( mythid )
160    cph#else
161    #endif
162          CALL INI_FORCING( mythid )
163    cph#endif
164    
165    #ifdef ALLOW_EBM
166    # ifdef ALLOW_AUTODIFF
167    CADJ STORE theta = tapelev3, key = 1
168    # endif
169          IF (useEBM) CALL EBM_INI_VARS( mythid )
170    #endif
171    
172    #ifdef ALLOW_COST
173    c--   Initialise the cost function.
174    ceh3 needs an IF ( useCOST ) THEN
175          CALL COST_INITVARIA( mythid )
176          _BARRIER
177    #endif
178    
179    #ifdef ALLOW_OBCS
180    C--   Open boundaries data
181          IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
182    #endif
183    
184    #ifdef ALLOW_BULK_FORCE
185          IF (useBulkForce) CALL BULKF_INIT( mythid)
186    #endif
187    
188    #ifdef ALLOW_THSICE
189          IF (useThSIce) CALL THSICE_INI_VARS( mythid)
190    #endif
191    
192    #ifdef COMPONENT_MODULE
193          IF ( useCoupler ) CALL CPL_INI_VARS( mythid )
194    #endif
195    
196    C AMM
197    #ifdef ALLOW_FIZHI
198    C Initialize FIZHI state variables
199          IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)
200    #endif
201    C AMM
202    
203        RETURN        RETURN
204        END        END

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.36

  ViewVC Help
Powered by ViewVC 1.1.22