/[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.11 by adcroft, Mon Mar 4 17:26:41 2002 UTC revision 1.31 by molod, Mon Dec 15 23:00:44 2003 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  CBOP
# Line 18  C     \ev Line 19  C     \ev
19  C     !CALLING SEQUENCE:  C     !CALLING SEQUENCE:
20  C     PACKAGES_INIT_VARIABLES  C     PACKAGES_INIT_VARIABLES
21  C       |  C       |
22    C       |-- CD_CODE_INI_VARS
23    C       |
24  C       |-- GMREDI_INIT  C       |-- GMREDI_INIT
25  C       |  C       |
26  C       |-- KPP_INIT  C       |-- KPP_INIT
27  C       |-- KPP_OPEN_DIAGS  C       |-- KPP_OPEN_DIAGS
28  C       |  C       |
29    C       |-- SEAICE_INIT
30    C       |
31  C       |-- OBCS_INIT_VARIABLES  C       |-- OBCS_INIT_VARIABLES
32  C       |  C       |
33  C       |-- AIM_INIT  C       |-- PTRACERS_INIT
34    C       |
35    C       |-- LAND_INI_VARS
36  C       |  C       |
37  C       |-- CTRL_MAP_INI  C       |-- CTRL_MAP_INI
38  C       |  C       |
39  C       |-- COST_INIT  C       |-- EXF_INIT
40    C       |
41    C       |-- INI_FORCING
42  C       |  C       |
43  C       |-- ECCO_INIT  C       |-- ECCO_INIT
44  C       |  C       |
45  C       |-- INI_FORCING  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:  C     !USES:
54        IMPLICIT NONE        IMPLICIT NONE
# Line 48  C     myThid -  Number of this instances Line 63  C     myThid -  Number of this instances
63        INTEGER myThid        INTEGER myThid
64  CEOP  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
75        IF (useGMRedi) CALL GMREDI_INIT( myThid )        IF (useGMRedi) CALL GMREDI_INIT( myThid )
# Line 61  C--   Initialize KPP vertical mixing sch Line 83  C--   Initialize KPP vertical mixing sch
83        ENDIF        ENDIF
84  #endif  #endif
85    
86  #ifdef ALLOW_OBCS  #ifdef ALLOW_SEAICE
87  C--   Open boundaries data  C--   Initialize SEAICE model.
88        IF (useOBCS) THEN        IF (useSEAICE) CALL SEAICE_INIT( myThid )
         CALL OBCS_INIT_VARIABLES( myThid )  
       ENDIF  
89  #endif  #endif
90    
91  #ifdef ALLOW_AIM  cph-- moved further down
92        IF ( useAIM ) CALL AIM_INIT( mythid )  cph#ifdef ALLOW_OBCS
93  #endif  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  #ifdef ALLOW_PTRACERS
100        IF ( usePTRACERS ) CALL PTRACERS_INIT( mythid )  # 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  #endif
111    
112  #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))  #ifdef ALLOW_LAND
113  c--   Map the control variables onto the model state.        IF ( useLAND ) CALL LAND_INI_VARS( mythid )
114        call ctrl_map_ini( mythid )  #endif
115        _BARRIER  
116  c--   Initialise the cost function.  #ifdef ALLOW_AUTODIFF
117        call cost_init( mythid )  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        _BARRIER
122  #endif  #endif
123    
124  #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE  #ifdef ALLOW_EXF
125        CALL EXF_INIT( mythid )        CALL EXF_INIT( mythid )
126  #else  #else
127        CALL INI_FORCING( mythid )        CALL INI_FORCING( mythid )
128  #endif  #endif
129    
130  #ifdef INCLUDE_ECCO_PACKAGE  #ifdef ALLOW_COST
131        IF (useECCO) THEN  c--   Initialise the cost function.
132         CALL ECCO_INIT( myThid )  ceh3 needs an IF ( useCOST ) THEN
133        ENDIF        CALL COST_INITVARIA( mythid )
134          _BARRIER
135    #endif
136    
137    #ifdef ALLOW_OBCS
138    C--   Open boundaries data
139          IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
140    #endif
141    
142    #ifdef ALLOW_BULK_FORCE
143          IF (useBulkForce) CALL BULKF_INIT( mythid)
144    #endif
145    
146    #ifdef ALLOW_THSICE
147          IF (useThSIce) CALL THSICE_INI_VARS( mythid)
148    #endif
149    
150    #ifdef COMPONENT_MODULE
151          IF ( useCoupler ) CALL CPL_INI_VARS( mythid )
152    #endif
153    
154    C AMM
155    #ifdef ALLOW_FIZHI
156    C Initialize FIZHI state variables
157          IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)
158  #endif  #endif
159    C AMM
160    
161        RETURN        RETURN
162        END        END
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22