/[MITgcm]/MITgcm/model/src/packages_readparms.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_readparms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.11 by heimbach, Thu May 30 22:49:56 2002 UTC revision 1.23 by edhill, Thu Oct 23 04:41:40 2003 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4    #include "AD_CONFIG.h"
5    #include "PACKAGES_CONFIG.h"
6  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
7    
8  CStartOfInterface  CStartOfInterface
# Line 29  C       |-- GMREDI_READPARMS Line 33  C       |-- GMREDI_READPARMS
33  C       |  C       |
34  C       |-- KPP_READPARMS  C       |-- KPP_READPARMS
35  C       |  C       |
36    C       |-- SBO_READPARMS
37    C       |
38    C       |-- SEAICE_READPARMS
39    C       |
40  C       |-- SHAP_FILT_READPARMS  C       |-- SHAP_FILT_READPARMS
41  C       |  C       |
42  C       |-- ZONAL_FILT_READPARMS  C       |-- ZONAL_FILT_READPARMS
43  C       |  C       |
44  C       |-- OBCS_READPARMS  C       |-- OBCS_READPARMS
45  C       |  C       |
 C       |-- AIM_READPARMS  
 C       |  
46  C       |-- COST_READPARMS  C       |-- COST_READPARMS
47  C       |  C       |
48  C       |-- CTRL_INIT  C       |-- CTRL_INIT
# Line 69  C--   Initialize KPP parameters Line 75  C--   Initialize KPP parameters
75        IF (useKPP) CALL KPP_READPARMS( myThid )        IF (useKPP) CALL KPP_READPARMS( myThid )
76  #endif  #endif
77    
78    #ifdef ALLOW_SBO
79    C--   Initialize SBO parameters
80          IF (useSBO) CALL SBO_READPARMS( myThid )
81    #endif
82    
83    #ifdef ALLOW_SEAICE
84    C--   Initialize SEAICE parameters
85          IF (useSEAICE) CALL SEAICE_READPARMS( myThid )
86    #endif
87    
88  #ifdef ALLOW_SHAP_FILT  #ifdef ALLOW_SHAP_FILT
89        IF (useSHAP_FILT) CALL SHAP_FILT_READPARMS( myThid )        IF (useSHAP_FILT) CALL SHAP_FILT_READPARMS( myThid )
90  #endif  #endif
# Line 81  C--   Initialize KPP parameters Line 97  C--   Initialize KPP parameters
97        IF (useOBCS) CALL OBCS_READPARMS( myThid )        IF (useOBCS) CALL OBCS_READPARMS( myThid )
98  #endif  #endif
99    
100  #ifdef ALLOW_PTRACERS  cswdblk -- add ---
101        IF (usePTRACERS) CALL PTRACERS_READPARMS( myThid )  #ifdef ALLOW_BULK_FORCE
102    C -- initialize Bulkf parameters
103          IF (useBulkForce) call BULKF_READPARMS( myThid )
104    #endif
105    cswdblk --- end add ---
106    
107    cswdice -- add ---
108    #ifdef ALLOW_THERM_SEAICE
109    C -- initialize Sea Ice parameters
110          IF (useThermSeaIce) call ICE_READPARMS( myThid )
111  #endif  #endif
112    cswdice --- end add ---
113    
114  #ifdef ALLOW_AIM  #ifdef ALLOW_PTRACERS
115  c--   Read in AIM package parameters        IF (usePTRACERS) CALL PTRACERS_READPARMS( myThid )
 C     Currently AIM does not have any runtime parameters  
 C     IF (useAIM) CALL AIM_READPARMS ( myThid )  
116  #endif  #endif
117    
118  #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))  cswdptr -- add --
119    #ifdef ALLOW_GCHEM
120          IF (usePTRACERS) CALL GCHEM_READPARMS( myThid )
121    #endif
122    cswdptr -- end add ---
123    
124    #if (defined (ALLOW_ADJOINT_RUN) || \
125         defined (ALLOW_TANGENTLINEAR_RUN) || \
126         defined (ALLOW_ECCO_OPTIMIZATION))
127  C--   Initialise the optim. parameters.  C--   Initialise the optim. parameters.
128        call optim_readparms( myThid )        call optim_readparms( myThid )
129        _BARRIER  C--   Initialise the control parameters
130  C--   Initialise the control vector.        call ctrl_readparms( myThid )
131        CALL ctrl_init( myThid )  C--   Initialise the cost parameters
132          call cost_readparms( mythid )
133        _BARRIER        _BARRIER
134  #endif  #endif
135    
# Line 105  C--   Initialise gradient check paramete Line 138  C--   Initialise gradient check paramete
138        if (useGrdchk) call grdchk_readparms( myThid )        if (useGrdchk) call grdchk_readparms( myThid )
139  #endif  #endif
140    
141  #ifdef  ceh3 #ifdef ALLOW_CALENDAR
142    #ifdef ALLOW_CAL
143  C--   Initialise the calendar package.  C--   Initialise the calendar package.
144    ceh3 should have an IF ( useCAL ) THEN
145        call cal_readparms( myThid )        call cal_readparms( myThid )
146  #endif  #endif
147    
148  C--   Custom routine to set forcing fields.  C--   Custom routine to set forcing fields.
149  #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE  #if (defined (INCLUDE_EXTERNAL_FORCING_PACKAGE) || defined(ALLOW_EXF))
150    ceh3 #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
151    ceh3 #ifdef ALLOW_EXF
152    ceh3 needs an IF ( useEXF ) THEN
153        call exf_readparms  ( mythid )        call exf_readparms  ( mythid )
154  #endif  #endif
155    
156  #ifdef INCLUDE_ECCO_PACKAGE  #ifdef INCLUDE_ECCO_PACKAGE
157  c--   Initialize ECCO package parameters  c--   Initialize ECCO package parameters
158        IF (useECCO) CALL ECCO_READPARMS ( myThid )        IF (useECCO) call ecco_readparms ( myThid )
 #else  
 # ifdef ALLOW_COST  
 C--   Initialise the cost function.  
       call cost_readparms( mythid )  
       _BARRIER  
 # endif  
159  #endif  #endif
160    
161        END        END
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22