/[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.4 by jmc, Tue Feb 20 19:39:42 2001 UTC revision 1.32 by heimbach, Mon Mar 1 19:13:58 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7    CBOP
8    C     !ROUTINE: PACKAGES_INIT_VARIABLES
9    C     !INTERFACE:
10        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  
11    
12    C     !DESCRIPTION: \bv
13    C     *==========================================================*
14    C     | SUBROUTINE PACKAGES_INIT_VARIABLES                        
15    C     | o Does initialisation of package-related variable data    
16    C     *==========================================================*
17    C     \ev
18    
19    C     !CALLING SEQUENCE:
20    C     PACKAGES_INIT_VARIABLES
21    C       |
22    C       |-- CD_CODE_INI_VARS
23    C       |
24    C       |-- GMREDI_INIT
25    C       |
26    C       |-- KPP_INIT
27    C       |-- KPP_OPEN_DIAGS
28    C       |
29    C       |-- SEAICE_INIT
30    C       |
31    C       |-- OBCS_INIT_VARIABLES
32    C       |
33    C       |-- PTRACERS_INIT
34    C       |
35    C       |-- LAND_INI_VARS
36    C       |
37    C       |-- CTRL_MAP_INI
38    C       |
39    C       |-- EXF_INIT
40    C       |
41    C       |-- INI_FORCING
42    C       |
43    C       |-- ECCO_INIT
44    C       |
45    C       |-- COST_INIT
46    C       |
47    C       |-- BULKF_INIT
48    C       |
49    C       |-- THSICE_INI_VARS
50    C       |
51    C       |-- CPL_INI_VARS
52    
53    C     !USES:
54          IMPLICIT NONE
55  C     === Global variables ===  C     === Global variables ===
56  #include "SIZE.h"  #include "SIZE.h"
57  #include "EEPARAMS.h"  #include "EEPARAMS.h"
58  #include "PARAMS.h"  #include "PARAMS.h"
59    
60    C     !INPUT/OUTPUT PARAMETERS:
61  C     === Routine arguments ===  C     === Routine arguments ===
62  C     myThid -  Number of this instances  C     myThid -  Number of this instances
63        INTEGER myThid        INTEGER myThid
64    CEOP
65    
66    #ifdef ALLOW_CD_CODE
67    C--   Initialize CD_CODE variables:
68    C- note(jmc): before packaging CD_CODE, was done within ini_fields (=called before),
69    C             therefore call CD-ini-vars before others pkg.
70          IF (useCDscheme) CALL CD_CODE_INI_VARS( myThid )
71    #endif
72    
73  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
74  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
# Line 33  C--   Initialize KPP vertical mixing sch Line 83  C--   Initialize KPP vertical mixing sch
83        ENDIF        ENDIF
84  #endif  #endif
85    
86    #ifdef ALLOW_SEAICE
87    C--   Initialize SEAICE model.
88          IF (useSEAICE) CALL SEAICE_INIT( myThid )
89    #endif
90    
91    cph-- moved further down
92    cph#ifdef ALLOW_OBCS
93    cphC--   Open boundaries data
94    cph      IF (useOBCS) THEN
95    cph        CALL OBCS_INIT_VARIABLES( myThid )
96    cph      ENDIF
97    cph#endif
98    
99    #ifdef ALLOW_PTRACERS
100    # ifndef ALLOW_AUTODIFF_TAMC
101          IF ( usePTRACERS ) THEN
102    # endif
103             CALL PTRACERS_INIT( mythid )
104    #ifdef ALLOW_GCHEM
105             CALL GCHEM_INIT_VARI( mythid )
106    #endif
107    # ifndef ALLOW_AUTODIFF_TAMC
108          ENDIF
109    # endif
110    #endif
111    
112    #ifdef ALLOW_LAND
113          IF ( useLAND ) CALL LAND_INI_VARS( mythid )
114    #endif
115    
116    #ifdef ALLOW_AUTODIFF
117    c--   Initialise auxiliary xx_ fields
118          CALL CTRL_INIT_VARIABLES ( mythid )
119    c--   Map the control variables onto the model state.
120          CALL CTRL_MAP_INI( mythid )
121          _BARRIER
122    #endif
123    
124    #ifdef ALLOW_EXF
125          CALL EXF_INIT( mythid )
126    cph#else
127    #endif
128          CALL INI_FORCING( mythid )
129    cph#endif
130    
131    #ifdef ALLOW_COST
132    c--   Initialise the cost function.
133    ceh3 needs an IF ( useCOST ) THEN
134          CALL COST_INITVARIA( mythid )
135          _BARRIER
136    #endif
137    
138  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
139  C--   Open boundaries data  C--   Open boundaries data
140        IF (useOBCS) THEN        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
         CALL OBCS_INIT_VARIABLES( myThid )  
       ENDIF  
141  #endif  #endif
142    
143  #ifdef ALLOW_AIM  #ifdef ALLOW_BULK_FORCE
144        IF ( useAIM ) CALL AIM_INIT( mythid )        IF (useBulkForce) CALL BULKF_INIT( mythid)
145  #endif  #endif
146    
147  #ifdef INCLUDE_ECCO_PACKAGE  #ifdef ALLOW_THSICE
148        IF (useECCO) THEN        IF (useThSIce) CALL THSICE_INI_VARS( mythid)
        CALL ECCO_INIT( myThid )  
       ENDIF  
 #else  
       CALL INI_FORCING( myThid )  
149  #endif  #endif
150    
151    #ifdef COMPONENT_MODULE
152          IF ( useCoupler ) CALL CPL_INI_VARS( mythid )
153    #endif
154    
155    C AMM
156    #ifdef ALLOW_FIZHI
157    C Initialize FIZHI state variables
158          IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)
159    #endif
160    C AMM
161    
162        RETURN        RETURN
163        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22