/[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.26 by heimbach, Mon Oct 27 22:32:55 2003 UTC revision 1.38 by heimbach, Tue Oct 12 15:14:15 2004 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5    #include "AD_CONFIG.h"
6  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
7    
8  CBOP  CBOP
# Line 19  C     \ev Line 20  C     \ev
20  C     !CALLING SEQUENCE:  C     !CALLING SEQUENCE:
21  C     PACKAGES_INIT_VARIABLES  C     PACKAGES_INIT_VARIABLES
22  C       |  C       |
23    C       |-- CD_CODE_INI_VARS
24    C       |
25  C       |-- GMREDI_INIT  C       |-- GMREDI_INIT
26  C       |  C       |
27  C       |-- KPP_INIT  C       |-- KPP_INIT
28  C       |-- KPP_OPEN_DIAGS  C       |-- KPP_OPEN_DIAGS
29  C       |  C       |
30    C       |-- PP81_INIT
31    C       |
32    C       |-- MY82_INIT
33    C       |
34    C       |-- GGL90_INIT
35    C       |
36  C       |-- SEAICE_INIT  C       |-- SEAICE_INIT
37  C       |  C       |
38  C       |-- OBCS_INIT_VARIABLES  C       |-- OBCS_INIT_VARIABLES
# Line 44  C       |-- COST_INIT Line 53  C       |-- COST_INIT
53  C       |  C       |
54  C       |-- BULKF_INIT  C       |-- BULKF_INIT
55  C       |  C       |
56  C       |-- ICE_INIT  C       |-- THSICE_INI_VARS
57    C       |
58    C       |-- CPL_INI_VARS
59    
60  C     !USES:  C     !USES:
61        IMPLICIT NONE        IMPLICIT NONE
# Line 52  C     === Global variables === Line 63  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:  C     !INPUT/OUTPUT PARAMETERS:
73  C     === Routine arguments ===  C     === Routine arguments ===
# Line 59  C     myThid -  Number of this instances Line 75  C     myThid -  Number of this instances
75        INTEGER myThid        INTEGER myThid
76  CEOP  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
87        IF (useGMRedi) CALL GMREDI_INIT( myThid )        IF (useGMRedi) CALL GMREDI_INIT( myThid )
# Line 72  C--   Initialize KPP vertical mixing sch Line 95  C--   Initialize KPP vertical mixing sch
95        ENDIF        ENDIF
96  #endif  #endif
97    
98    #ifdef ALLOW_PP81
99    C--   Initialize PP81 vertical mixing scheme.
100          IF (usePP81) THEN
101           CALL PP81_INIT( myThid )
102          ENDIF
103    #endif
104    
105    #ifdef ALLOW_MY82
106    C--   Initialize MY82 vertical mixing scheme.
107          IF (useMY82) THEN
108           CALL MY82_INIT( myThid )
109          ENDIF
110    #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  #ifdef ALLOW_SEAICE
120  C--   Initialize SEAICE model.  C--   Initialize SEAICE model.
121        IF (useSEAICE) CALL SEAICE_INIT( myThid )        IF (useSEAICE) CALL SEAICE_INIT( myThid )
# Line 103  cph#endif Line 147  cph#endif
147  #endif  #endif
148    
149  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
150    CADJ STORE theta = tapelev_init, key = 1
151  c--   Initialise auxiliary xx_ fields  c--   Initialise auxiliary xx_ fields
152        CALL CTRL_INIT_VARIABLES ( mythid )        CALL CTRL_INIT_VARIABLES ( mythid )
153  c--   Map the control variables onto the model state.  c--   Map the control variables onto the model state.
154    #ifdef ALLOW_ECCO
155          CALL CTRL_MAP_INI_ECCO( mythid )
156    #else
157        CALL CTRL_MAP_INI( mythid )        CALL CTRL_MAP_INI( mythid )
158    #endif
159        _BARRIER        _BARRIER
160  #endif  #endif
161    
162  #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE  #ifdef ALLOW_EXF
163        CALL EXF_INIT( mythid )        CALL EXF_INIT( mythid )
164  #else  cph#else
165    #endif
166        CALL INI_FORCING( mythid )        CALL INI_FORCING( mythid )
167    cph#endif
168    
169    #ifdef ALLOW_EBM
170    # ifdef ALLOW_AUTODIFF
171    CADJ STORE theta = tapelev_init, key = 1
172    # endif
173          IF (useEBM) CALL EBM_INI_VARS( mythid )
174  #endif  #endif
175    
176  #ifdef ALLOW_COST  #ifdef ALLOW_COST
# Line 128  C--   Open boundaries data Line 185  C--   Open boundaries data
185        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
186  #endif  #endif
187    
 cswdblk -- begin add ---  
188  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
189        IF (useBulkForce) call BULKF_INIT( mythid)        IF (useBulkForce) CALL BULKF_INIT( mythid)
190  #endif  #endif
 cswdblk ---end add ---  
191    
192  cswdice ---begin add ---  #ifdef ALLOW_THSICE
193  #ifdef ALLOW_THERM_SEAICE        IF (useThSIce) CALL THSICE_INI_VARS( mythid)
       IF (useThermSeaIce) call ICE_INIT( mythid)  
194  #endif  #endif
 cswdice ---end add ---  
195    
196    #ifdef COMPONENT_MODULE
197          IF ( useCoupler ) CALL CPL_INI_VARS( mythid )
198    #endif
199    
200    C AMM
201    #ifdef ALLOW_FIZHI
202    C Initialize FIZHI state variables
203          IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)
204    #endif
205    C AMM
206    
207        RETURN        RETURN
208        END        END
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22