/[MITgcm]/MITgcm/pkg/ctrl/ctrl_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_readparms.F

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

revision 1.18 by heimbach, Sat Aug 6 11:02:01 2005 UTC revision 1.27 by heimbach, Thu Jun 21 04:06:21 2007 UTC
# Line 70  c     == end of interface == Line 70  c     == end of interface ==
70    
71  c--   Read the namelist input.  c--   Read the namelist input.
72        namelist /ctrl_nml/        namelist /ctrl_nml/
73       &  xx_theta_file,       &  xx_theta_file, xx_salt_file,
74       &  xx_salt_file,       &  xx_hflux_file, xx_hflux_remo_intercept, xx_hflux_remo_slope,
      &  xx_hflux_file,  
75       &  xx_hfluxstartdate1, xx_hfluxstartdate2, xx_hfluxperiod,       &  xx_hfluxstartdate1, xx_hfluxstartdate2, xx_hfluxperiod,
76       &  xx_sflux_file,       &  xx_sflux_file, xx_sflux_remo_intercept, xx_sflux_remo_slope,
77       &  xx_sfluxstartdate1, xx_sfluxstartdate2, xx_sfluxperiod,       &  xx_sfluxstartdate1, xx_sfluxstartdate2, xx_sfluxperiod,
78       &  xx_tauu_file,       &  xx_tauu_file, xx_tauu_remo_intercept, xx_tauu_remo_slope,
79       &  xx_tauustartdate1,  xx_tauustartdate2,  xx_tauuperiod,       &  xx_tauustartdate1,  xx_tauustartdate2,  xx_tauuperiod,
80       &  xx_tauv_file,       &  xx_tauv_file, xx_tauv_remo_intercept, xx_tauv_remo_slope,
81       &  xx_tauvstartdate1,  xx_tauvstartdate2,  xx_tauvperiod,       &  xx_tauvstartdate1,  xx_tauvstartdate2,  xx_tauvperiod,
82       &  xx_atemp_file,       &  xx_atemp_file, xx_atemp_remo_intercept, xx_atemp_remo_slope,
83       &  xx_atempstartdate1, xx_atempstartdate2, xx_atempperiod,       &  xx_atempstartdate1, xx_atempstartdate2, xx_atempperiod,
84       &  xx_aqh_file,       &  xx_aqh_file, xx_aqh_remo_intercept, xx_aqh_remo_slope,
85       &  xx_aqhstartdate1, xx_aqhstartdate2, xx_aqhperiod,       &  xx_aqhstartdate1, xx_aqhstartdate2, xx_aqhperiod,
86       &  xx_precip_file,       &  xx_precip_file, xx_precip_remo_intercept, xx_precip_remo_slope,
87       &  xx_precipstartdate1, xx_precipstartdate2, xx_precipperiod,       &  xx_precipstartdate1, xx_precipstartdate2, xx_precipperiod,
88       &  xx_swflux_file,       &  xx_swflux_file, xx_swflux_remo_intercept, xx_swflux_remo_slope,
89       &  xx_swfluxstartdate1, xx_swfluxstartdate2, xx_swfluxperiod,       &  xx_swfluxstartdate1, xx_swfluxstartdate2, xx_swfluxperiod,
90       &  xx_swdown_file,       &  xx_swdown_file, xx_swdown_remo_intercept, xx_swdown_remo_slope,
91       &  xx_swdownstartdate1, xx_swdownstartdate2, xx_swdownperiod,       &  xx_swdownstartdate1, xx_swdownstartdate2, xx_swdownperiod,
92       &  xx_uwind_file,       &  xx_lwflux_file, xx_lwflux_remo_intercept, xx_lwflux_remo_slope,
93         &  xx_lwfluxstartdate1, xx_lwfluxstartdate2, xx_lwfluxperiod,
94         &  xx_lwdown_file, xx_lwdown_remo_intercept, xx_lwdown_remo_slope,
95         &  xx_lwdownstartdate1, xx_lwdownstartdate2, xx_lwdownperiod,
96         &  xx_evap_file, xx_evap_remo_intercept, xx_evap_remo_slope,
97         &  xx_evapstartdate1, xx_evapstartdate2, xx_evapperiod,
98         &  xx_snowprecip_file, xx_snowprecip_remo_intercept,
99         &  xx_snowprecip_remo_slope,  xx_snowprecipperiod,
100         &  xx_snowprecipstartdate1, xx_snowprecipstartdate2,
101         &  xx_apressure_file, xx_apressure_remo_intercept,
102         &  xx_apressure_remo_slope, xx_apressureperiod,
103         &  xx_apressurestartdate1, xx_apressurestartdate2,
104         &  xx_runoff_file, xx_runoff_remo_intercept, xx_runoff_remo_slope,
105         &  xx_runoffstartdate1, xx_runoffstartdate2, xx_runoffperiod,
106         &  xx_uwind_file, xx_uwind_remo_intercept, xx_uwind_remo_slope,
107       &  xx_uwindstartdate1, xx_uwindstartdate2, xx_uwindperiod,       &  xx_uwindstartdate1, xx_uwindstartdate2, xx_uwindperiod,
108       &  xx_vwind_file,       &  xx_vwind_file, xx_vwind_remo_intercept, xx_vwind_remo_slope,
109       &  xx_vwindstartdate1, xx_vwindstartdate2, xx_vwindperiod,       &  xx_vwindstartdate1, xx_vwindstartdate2, xx_vwindperiod,
110       &  xx_obcsn_file,       &  xx_obcsn_file,
111       &  xx_obcsnstartdate1,  xx_obcsnstartdate2,  xx_obcsnperiod,       &  xx_obcsnstartdate1,  xx_obcsnstartdate2,  xx_obcsnperiod,
# Line 102  c--   Read the namelist input. Line 115  c--   Read the namelist input.
115       &  xx_obcswstartdate1,  xx_obcswstartdate2,  xx_obcswperiod,       &  xx_obcswstartdate1,  xx_obcswstartdate2,  xx_obcswperiod,
116       &  xx_obcse_file,       &  xx_obcse_file,
117       &  xx_obcsestartdate1,  xx_obcsestartdate2,  xx_obcseperiod,       &  xx_obcsestartdate1,  xx_obcsestartdate2,  xx_obcseperiod,
118       &  xx_diffkr_file,       &  xx_diffkr_file, xx_kapgm_file, xx_tr1_file,
119       &  xx_kapgm_file,       &  xx_sst_file, xx_sss_file,
120       &  xx_tr1_file,       &  xx_sststartdate1, xx_sststartdate2, xx_sstperiod,
121       &  xx_sst_file,       &  xx_sssstartdate1, xx_sssstartdate2, xx_sssperiod,
122       &  xx_sss_file,       &  xx_depth_file,
123       &  xx_hfacc_file,       &  xx_efluxy_file, xx_efluxp_file,
      &  xx_efluxy_file,  
      &  xx_efluxp_file,  
124       &  xx_bottomdrag_file,       &  xx_bottomdrag_file,
125       &  xx_edtaux_file,       &  xx_edtaux_file, xx_edtauy_file,
126       &  xx_edtauy_file,       &  xx_uvel_file, xx_vvel_file, xx_etan_file,
127       &  xx_uvel_file,       &  xx_siarea_file, xx_siheff_file, xx_sihsnow_file,
      &  xx_vvel_file,  
      &  xx_etan_file,  
128       &  doInitXX,       &  doInitXX,
129       &  doPackDiag,       &  doPackDiag,
130       &  doZscaleUnpack,       &  doZscaleUnpack, doZscalePack,
131       &  doZscalePack       &  doMainUnpack, doMainPack,
132         &  doAdmtlmBypassAD,
133         &  delZexp, forcingPrecond
134    
135        namelist /ctrl_packnames/        namelist /ctrl_packnames/
136       &  yadmark, yctrlid, yctrlposunpack, yctrlpospack,       &  yadmark, yctrlid, yctrlposunpack, yctrlpospack,
# Line 138  c--     Set default values. Line 148  c--     Set default values.
148          doPackDiag          = .FALSE.          doPackDiag          = .FALSE.
149          doZscaleUnpack      = .FALSE.          doZscaleUnpack      = .FALSE.
150          doZscalePack        = .FALSE.          doZscalePack        = .FALSE.
151            doMainUnpack        = .TRUE.
152            doMainPack          = .TRUE.
153            doAdmtlmBypassAD    = .FALSE.
154    
155            delZexp = 0.
156            forcingPrecond = 1. _d 0
157    
158          xx_theta_file      = 'xx_theta'          xx_theta_file      = 'xx_theta'
159          xx_salt_file       = 'xx_salt'          xx_salt_file       = 'xx_salt'
160    c
161          xx_hfluxstartdate1 =   0          xx_hfluxstartdate1 =   0
162          xx_hfluxstartdate2 =   0          xx_hfluxstartdate2 =   0
163          xx_hfluxperiod     =   0. _d 0          xx_hfluxperiod     =   0. _d 0
164          xx_hflux_file      = 'xx_hfl'          xx_hflux_file      = 'xx_hfl'
165            xx_hflux_remo_intercept =   0. _d 0
166            xx_hflux_remo_slope =   0. _d 0
167    c
168          xx_sfluxstartdate1 =   0          xx_sfluxstartdate1 =   0
169          xx_sfluxstartdate2 =   0          xx_sfluxstartdate2 =   0
170          xx_sfluxperiod     =   0. _d 0          xx_sfluxperiod     =   0. _d 0
171          xx_sflux_file      = 'xx_sfl'          xx_sflux_file      = 'xx_sfl'
172            xx_sflux_remo_intercept =   0. _d 0
173            xx_sflux_remo_slope =   0. _d 0
174    c
175          xx_tauustartdate1  =   0          xx_tauustartdate1  =   0
176          xx_tauustartdate2  =   0          xx_tauustartdate2  =   0
177          xx_tauuperiod      =   0. _d 0          xx_tauuperiod      =   0. _d 0
178          xx_tauu_file       = 'xx_tauu'          xx_tauu_file       = 'xx_tauu'
179            xx_tauu_remo_intercept =   0. _d 0
180            xx_tauu_remo_slope =   0. _d 0
181    c
182          xx_tauvstartdate1  =   0          xx_tauvstartdate1  =   0
183          xx_tauvstartdate2  =   0          xx_tauvstartdate2  =   0
184          xx_tauvperiod      =   0. _d 0          xx_tauvperiod      =   0. _d 0
185          xx_tauv_file       = 'xx_tauv'          xx_tauv_file       = 'xx_tauv'
186            xx_tauv_remo_intercept =   0. _d 0
187            xx_tauv_remo_slope =   0. _d 0
188    c
189          xx_atempstartdate1  =   0          xx_atempstartdate1  =   0
190          xx_atempstartdate2  =   0          xx_atempstartdate2  =   0
191          xx_atempperiod      =   0. _d 0          xx_atempperiod      =   0. _d 0
192          xx_atemp_file       = 'xx_atemp'          xx_atemp_file       = 'xx_atemp'
193            xx_atemp_remo_intercept =   0. _d 0
194            xx_atemp_remo_slope =   0. _d 0
195    c
196          xx_aqhstartdate1    =   0          xx_aqhstartdate1    =   0
197          xx_aqhstartdate2    =   0          xx_aqhstartdate2    =   0
198          xx_aqhperiod        =   0. _d 0          xx_aqhperiod        =   0. _d 0
199          xx_aqh_file         = 'xx_aqh'          xx_aqh_file         = 'xx_aqh'
200            xx_aqh_remo_intercept =   0. _d 0
201            xx_aqh_remo_slope =   0. _d 0
202    c
203          xx_precipstartdate1 =   0          xx_precipstartdate1 =   0
204          xx_precipstartdate2 =   0          xx_precipstartdate2 =   0
205          xx_precipperiod     =   0. _d 0          xx_precipperiod     =   0. _d 0
206          xx_precip_file      = 'xx_precip'          xx_precip_file      = 'xx_precip'
207            xx_precip_remo_intercept =   0. _d 0
208            xx_precip_remo_slope =   0. _d 0
209    c
210          xx_swfluxstartdate1 =   0          xx_swfluxstartdate1 =   0
211          xx_swfluxstartdate2 =   0          xx_swfluxstartdate2 =   0
212          xx_swfluxperiod     =   0. _d 0          xx_swfluxperiod     =   0. _d 0
213          xx_swflux_file      = 'xx_swflux'          xx_swflux_file      = 'xx_swflux'
214            xx_swflux_remo_intercept =   0. _d 0
215            xx_swflux_remo_slope =   0. _d 0
216    c
217          xx_swdownstartdate1 =   0          xx_swdownstartdate1 =   0
218          xx_swdownstartdate2 =   0          xx_swdownstartdate2 =   0
219          xx_swdownperiod     =   0. _d 0          xx_swdownperiod     =   0. _d 0
220          xx_swdown_file      = 'xx_swdown'          xx_swdown_file      = 'xx_swdown'
221            xx_swdown_remo_intercept =   0. _d 0
222            xx_swdown_remo_slope =   0. _d 0
223    c
224            xx_lwfluxstartdate1 =   0
225            xx_lwfluxstartdate2 =   0
226            xx_lwfluxperiod     =   0. _d 0
227            xx_lwflux_file      = 'xx_lwflux'
228            xx_lwflux_remo_intercept =   0. _d 0
229            xx_lwflux_remo_slope =   0. _d 0
230    c
231            xx_lwdownstartdate1 =   0
232            xx_lwdownstartdate2 =   0
233            xx_lwdownperiod     =   0. _d 0
234            xx_lwdown_file      = 'xx_lwdown'
235            xx_lwdown_remo_intercept =   0. _d 0
236            xx_lwdown_remo_slope =   0. _d 0
237    c
238            xx_evapstartdate1 =   0
239            xx_evapstartdate2 =   0
240            xx_evapperiod     =   0. _d 0
241            xx_evap_file      = 'xx_evap'
242            xx_evap_remo_intercept =   0. _d 0
243            xx_evap_remo_slope =   0. _d 0
244    c
245            xx_snowprecipstartdate1 =   0
246            xx_snowprecipstartdate2 =   0
247            xx_snowprecipperiod     =   0. _d 0
248            xx_snowprecip_file      = 'xx_snowprecip'
249            xx_snowprecip_remo_intercept =   0. _d 0
250            xx_snowprecip_remo_slope =   0. _d 0
251    c
252            xx_apressurestartdate1 =   0
253            xx_apressurestartdate2 =   0
254            xx_apressureperiod     =   0. _d 0
255            xx_apressure_file      = 'xx_apressure'
256            xx_apressure_remo_intercept =   0. _d 0
257            xx_apressure_remo_slope =   0. _d 0
258    c
259            xx_runoffstartdate1 =   0
260            xx_runoffstartdate2 =   0
261            xx_runoffperiod     =   0. _d 0
262            xx_runoff_file      = 'xx_runoff'
263            xx_runoff_remo_intercept =   0. _d 0
264            xx_runoff_remo_slope =   0. _d 0
265    c
266          xx_uwindstartdate1  =   0          xx_uwindstartdate1  =   0
267          xx_uwindstartdate2  =   0          xx_uwindstartdate2  =   0
268          xx_uwindperiod      =   0. _d 0          xx_uwindperiod      =   0. _d 0
269          xx_uwind_file       = 'xx_uwind'          xx_uwind_file       = 'xx_uwind'
270            xx_uwind_remo_intercept =   0. _d 0
271            xx_uwind_remo_slope =   0. _d 0
272    c
273          xx_vwindstartdate1  =   0          xx_vwindstartdate1  =   0
274          xx_vwindstartdate2  =   0          xx_vwindstartdate2  =   0
275          xx_vwindperiod      =   0. _d 0          xx_vwindperiod      =   0. _d 0
276          xx_vwind_file       = 'xx_vwind'          xx_vwind_file       = 'xx_vwind'
277            xx_vwind_remo_intercept =   0. _d 0
278            xx_vwind_remo_slope =   0. _d 0
279    c
280          xx_obcsnstartdate1  =   0          xx_obcsnstartdate1  =   0
281          xx_obcsnstartdate2  =   0          xx_obcsnstartdate2  =   0
282          xx_obcsnperiod      =   0. _d 0          xx_obcsnperiod      =   0. _d 0
283          xx_obcsn_file       = 'xx_obcsn'          xx_obcsn_file       = 'xx_obcsn'
284    c
285          xx_obcssstartdate1  =   0          xx_obcssstartdate1  =   0
286          xx_obcssstartdate2  =   0          xx_obcssstartdate2  =   0
287          xx_obcssperiod      =   0. _d 0          xx_obcssperiod      =   0. _d 0
288          xx_obcss_file       = 'xx_obcss'          xx_obcss_file       = 'xx_obcss'
289    c
290          xx_obcswstartdate1  =   0          xx_obcswstartdate1  =   0
291          xx_obcswstartdate2  =   0          xx_obcswstartdate2  =   0
292          xx_obcswperiod      =   0. _d 0          xx_obcswperiod      =   0. _d 0
293          xx_obcsw_file       = 'xx_obcsw'          xx_obcsw_file       = 'xx_obcsw'
294    c
295          xx_obcsestartdate1  =   0          xx_obcsestartdate1  =   0
296          xx_obcsestartdate2  =   0          xx_obcsestartdate2  =   0
297          xx_obcseperiod      =   0. _d 0          xx_obcseperiod      =   0. _d 0
298          xx_obcse_file       = 'xx_obcse'          xx_obcse_file       = 'xx_obcse'
299    c
300            xx_sststartdate1    =   0
301            xx_sststartdate2    =   0
302            xx_sstperiod        =   0. _d 0
303            xx_sst_file         = 'xx_sst'
304    c
305            xx_sssstartdate1    =   0
306            xx_sssstartdate2    =   0
307            xx_sssperiod        =   0. _d 0
308            xx_sss_file         = 'xx_sss'
309    c
310          xx_diffkr_file      = 'xx_diffkr'          xx_diffkr_file      = 'xx_diffkr'
311          xx_kapgm_file       = 'xx_kapgm'          xx_kapgm_file       = 'xx_kapgm'
312          xx_tr1_file         = 'xx_ptr'          xx_tr1_file         = 'xx_ptr'
313          xx_sst_file         = 'xx_sst'          xx_depth_file       = 'xx_depth'
         xx_sss_file         = 'xx_sss'  
         xx_hfacc_file       = 'xx_hfacc'  
314          xx_efluxy_file      = 'xx_efluxy'          xx_efluxy_file      = 'xx_efluxy'
315          xx_efluxp_file      = 'xx_efluxp'          xx_efluxp_file      = 'xx_efluxp'
316          xx_bottomdrag_file  = 'xx_bottomdrag'          xx_bottomdrag_file  = 'xx_bottomdrag'
# Line 215  c--     Set default values. Line 319  c--     Set default values.
319          xx_uvel_file        = 'xx_uvel'          xx_uvel_file        = 'xx_uvel'
320          xx_vvel_file        = 'xx_vvel'          xx_vvel_file        = 'xx_vvel'
321          xx_etan_file        = 'xx_etan'          xx_etan_file        = 'xx_etan'
322            xx_siarea_file        = 'xx_siarea'
323            xx_siheff_file        = 'xx_siheff'
324            xx_sihsnow_file        = 'xx_sihsnow'
325    
326  #ifdef ALLOW_TANGENTLINEAR_RUN  #ifdef ALLOW_TANGENTLINEAR_RUN
327          yadprefix           = 'g_'          yadprefix           = 'g_'
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22