/[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.34 by heimbach, Fri May 21 21:45:35 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
# Line 44  C       |-- COST_INIT Line 47  C       |-- COST_INIT
47  C       |  C       |
48  C       |-- BULKF_INIT  C       |-- BULKF_INIT
49  C       |  C       |
50  C       |-- ICE_INIT  C       |-- THSICE_INI_VARS
51    C       |
52    C       |-- CPL_INI_VARS
53    
54  C     !USES:  C     !USES:
55        IMPLICIT NONE        IMPLICIT NONE
# Line 52  C     === Global variables === Line 57  C     === Global variables ===
57  #include "SIZE.h"  #include "SIZE.h"
58  #include "EEPARAMS.h"  #include "EEPARAMS.h"
59  #include "PARAMS.h"  #include "PARAMS.h"
60    #ifdef ALLOW_AUTODIFF_TAMC
61    # include "DYNVARS.h"
62    # include "tamc.h"
63    # include "tamc_keys.h"
64    #endif
65    
66  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
67  C     === Routine arguments ===  C     === Routine arguments ===
# Line 59  C     myThid -  Number of this instances Line 69  C     myThid -  Number of this instances
69        INTEGER myThid        INTEGER myThid
70  CEOP  CEOP
71    
72    #ifdef ALLOW_CD_CODE
73    C--   Initialize CD_CODE variables:
74    C- note(jmc): before packaging CD_CODE, was done within ini_fields (=called before),
75    C             therefore call CD-ini-vars before others pkg.
76          IF (useCDscheme) CALL CD_CODE_INI_VARS( myThid )
77    #endif
78    
79  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
80  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
81        IF (useGMRedi) CALL GMREDI_INIT( myThid )        IF (useGMRedi) CALL GMREDI_INIT( myThid )
# Line 103  cph#endif Line 120  cph#endif
120  #endif  #endif
121    
122  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
123    CADJ STORE theta = tapelev3, key = 1
124  c--   Initialise auxiliary xx_ fields  c--   Initialise auxiliary xx_ fields
125        CALL CTRL_INIT_VARIABLES ( mythid )        CALL CTRL_INIT_VARIABLES ( mythid )
126  c--   Map the control variables onto the model state.  c--   Map the control variables onto the model state.
# Line 110  c--   Map the control variables onto the Line 128  c--   Map the control variables onto the
128        _BARRIER        _BARRIER
129  #endif  #endif
130    
131  #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE  #ifdef ALLOW_EXF
132        CALL EXF_INIT( mythid )        CALL EXF_INIT( mythid )
133  #else  cph#else
134    #endif
135        CALL INI_FORCING( mythid )        CALL INI_FORCING( mythid )
136    cph#endif
137    
138    #ifdef ALLOW_EBM
139    # ifdef ALLOW_AUTODIFF
140    CADJ STORE theta = tapelev3, key = 1
141    # endif
142          IF (useEBM) CALL EBM_INI_VARS( mythid )
143  #endif  #endif
144    
145  #ifdef ALLOW_COST  #ifdef ALLOW_COST
# Line 128  C--   Open boundaries data Line 154  C--   Open boundaries data
154        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
155  #endif  #endif
156    
 cswdblk -- begin add ---  
157  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
158        IF (useBulkForce) call BULKF_INIT( mythid)        IF (useBulkForce) CALL BULKF_INIT( mythid)
159  #endif  #endif
 cswdblk ---end add ---  
160    
161  cswdice ---begin add ---  #ifdef ALLOW_THSICE
162  #ifdef ALLOW_THERM_SEAICE        IF (useThSIce) CALL THSICE_INI_VARS( mythid)
       IF (useThermSeaIce) call ICE_INIT( mythid)  
163  #endif  #endif
 cswdice ---end add ---  
164    
165    #ifdef COMPONENT_MODULE
166          IF ( useCoupler ) CALL CPL_INI_VARS( mythid )
167    #endif
168    
169    C AMM
170    #ifdef ALLOW_FIZHI
171    C Initialize FIZHI state variables
172          IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)
173    #endif
174    C AMM
175    
176        RETURN        RETURN
177        END        END
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22