/[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.5 by heimbach, Sun Mar 25 22:33:53 2001 UTC revision 1.30 by jmc, Mon Dec 15 02:07:29 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
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_OBCS  #ifdef ALLOW_SEAICE
87  C--   Open boundaries data  C--   Initialize SEAICE model.
88        IF (useOBCS) THEN        IF (useSEAICE) CALL SEAICE_INIT( myThid )
89          CALL OBCS_INIT_VARIABLES( myThid )  #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        ENDIF
109    # endif
110  #endif  #endif
111    
112  #ifdef ALLOW_AIM  #ifdef ALLOW_LAND
113        IF ( useAIM ) CALL AIM_INIT( mythid )        IF ( useLAND ) CALL LAND_INI_VARS( mythid )
114  #endif  #endif
115    
116  #ifdef ALLOW_MIT_ADJOINT_RUN  #ifdef ALLOW_AUTODIFF
117  c--   Map the control variables onto the model state.  c--   Initialise auxiliary xx_ fields
118        call ctrl_map_ini( mythid )        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
123    
124    #ifdef ALLOW_EXF
125          CALL EXF_INIT( mythid )
126    #else
127          CALL INI_FORCING( mythid )
128    #endif
129    
130    #ifdef ALLOW_COST
131  c--   Initialise the cost function.  c--   Initialise the cost function.
132        call cost_init( mythid )  ceh3 needs an IF ( useCOST ) THEN
133          CALL COST_INITVARIA( mythid )
134        _BARRIER        _BARRIER
135  #endif  #endif
136    
137  #ifdef INCLUDE_ECCO_PACKAGE  #ifdef ALLOW_OBCS
138        IF (useECCO) THEN  C--   Open boundaries data
139         CALL ECCO_INIT( myThid )        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
140        ENDIF  #endif
141  #else  
142        CALL INI_FORCING( myThid )  #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  #endif
153    
154        RETURN        RETURN
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22