/[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.2 by adcroft, Fri Feb 2 21:04:48 2001 UTC revision 1.29 by jmc, Sun Dec 14 23:24:55 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    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    
51    C     !USES:
52          IMPLICIT NONE
53  C     === Global variables ===  C     === Global variables ===
54  #include "SIZE.h"  #include "SIZE.h"
55  #include "EEPARAMS.h"  #include "EEPARAMS.h"
56  #include "PARAMS.h"  #include "PARAMS.h"
57    
58    C     !INPUT/OUTPUT PARAMETERS:
59  C     === Routine arguments ===  C     === Routine arguments ===
60  C     myThid -  Number of this instances  C     myThid -  Number of this instances
61        INTEGER myThid        INTEGER myThid
62    CEOP
63    
64    #ifdef ALLOW_CD_CODE
65    C--   Initialize CD_CODE variables:
66    C- note(jmc): before packaging CD_CODE, was done within ini_fields (=called before),
67    C             therefore call CD-ini-vars before others pkg.
68          IF (useCDscheme) CALL CD_CODE_INI_VARS( myThid )
69    #endif
70    
71  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
72  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
# Line 32  C--   Initialize KPP vertical mixing sch Line 81  C--   Initialize KPP vertical mixing sch
81        ENDIF        ENDIF
82  #endif  #endif
83    
84  #ifdef ALLOW_OBCS  #ifdef ALLOW_SEAICE
85  C--   Open boundaries data  C--   Initialize SEAICE model.
86        IF (useOBCS) THEN        IF (useSEAICE) CALL SEAICE_INIT( myThid )
         CALL OBCS_INIT_VARIABLES( myThid )  
       ENDIF  
87  #endif  #endif
88    
89  #ifdef INCLUDE_ECCO_PACKAGE  cph-- moved further down
90        IF (useECCO) THEN  cph#ifdef ALLOW_OBCS
91         CALL ECCO_INIT( myThid )  cphC--   Open boundaries data
92    cph      IF (useOBCS) THEN
93    cph        CALL OBCS_INIT_VARIABLES( myThid )
94    cph      ENDIF
95    cph#endif
96    
97    #ifdef ALLOW_PTRACERS
98    # ifndef ALLOW_AUTODIFF_TAMC
99          IF ( usePTRACERS ) THEN
100    # endif
101             CALL PTRACERS_INIT( mythid )
102    #ifdef ALLOW_GCHEM
103             CALL GCHEM_INIT_VARI( mythid )
104    #endif
105    # ifndef ALLOW_AUTODIFF_TAMC
106        ENDIF        ENDIF
107    # endif
108    #endif
109    
110    #ifdef ALLOW_LAND
111          IF ( useLAND ) CALL LAND_INI_VARS( mythid )
112    #endif
113    
114    #ifdef ALLOW_AUTODIFF
115    c--   Initialise auxiliary xx_ fields
116          CALL CTRL_INIT_VARIABLES ( mythid )
117    c--   Map the control variables onto the model state.
118          CALL CTRL_MAP_INI( mythid )
119          _BARRIER
120    #endif
121    
122    #ifdef ALLOW_EXF
123          CALL EXF_INIT( mythid )
124  #else  #else
125        CALL INI_FORCING( myThid )        CALL INI_FORCING( mythid )
126    #endif
127    
128    #ifdef ALLOW_COST
129    c--   Initialise the cost function.
130    ceh3 needs an IF ( useCOST ) THEN
131          CALL COST_INITVARIA( mythid )
132          _BARRIER
133    #endif
134    
135    #ifdef ALLOW_OBCS
136    C--   Open boundaries data
137          IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
138    #endif
139    
140    #ifdef ALLOW_BULK_FORCE
141          IF (useBulkForce) CALL BULKF_INIT( mythid)
142    #endif
143    
144    #ifdef ALLOW_THSICE
145          IF (useThSIce) CALL THSICE_INI_VARS( mythid)
146  #endif  #endif
147    
148    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22