/[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.14 by heimbach, Thu Apr 7 23:38:43 2005 UTC revision 1.22 by heimbach, Thu Mar 2 02:53:23 2006 UTC
# Line 45  c     == local variables == Line 45  c     == local variables ==
45        integer i,j,k        integer i,j,k
46        integer ntmp        integer ntmp
47        integer ivarindex        integer ivarindex
48          integer iUnit
49        integer iobcs        integer iobcs
50        integer il        integer il
51        integer errio        integer errio
# Line 74  c--   Read the namelist input. Line 74  c--   Read the namelist input.
74       &  xx_salt_file,       &  xx_salt_file,
75       &  xx_hflux_file,       &  xx_hflux_file,
76       &  xx_hfluxstartdate1, xx_hfluxstartdate2, xx_hfluxperiod,       &  xx_hfluxstartdate1, xx_hfluxstartdate2, xx_hfluxperiod,
77         &  xx_hflux_remo_intercept, xx_hflux_remo_slope,
78       &  xx_sflux_file,       &  xx_sflux_file,
79       &  xx_sfluxstartdate1, xx_sfluxstartdate2, xx_sfluxperiod,       &  xx_sfluxstartdate1, xx_sfluxstartdate2, xx_sfluxperiod,
80         &  xx_sflux_remo_intercept, xx_sflux_remo_slope,
81       &  xx_tauu_file,       &  xx_tauu_file,
82       &  xx_tauustartdate1,  xx_tauustartdate2,  xx_tauuperiod,       &  xx_tauustartdate1,  xx_tauustartdate2,  xx_tauuperiod,
83         &  xx_tauu_remo_intercept, xx_tauu_remo_slope,
84       &  xx_tauv_file,       &  xx_tauv_file,
85       &  xx_tauvstartdate1,  xx_tauvstartdate2,  xx_tauvperiod,       &  xx_tauvstartdate1,  xx_tauvstartdate2,  xx_tauvperiod,
86         &  xx_tauv_remo_intercept, xx_tauv_remo_slope,
87       &  xx_atemp_file,       &  xx_atemp_file,
88       &  xx_atempstartdate1, xx_atempstartdate2, xx_atempperiod,       &  xx_atempstartdate1, xx_atempstartdate2, xx_atempperiod,
89         &  xx_atemp_remo_intercept, xx_atemp_remo_slope,
90       &  xx_aqh_file,       &  xx_aqh_file,
91       &  xx_aqhstartdate1, xx_aqhstartdate2, xx_aqhperiod,       &  xx_aqhstartdate1, xx_aqhstartdate2, xx_aqhperiod,
92         &  xx_aqh_remo_intercept, xx_aqh_remo_slope,
93         &  xx_precip_file,
94         &  xx_precipstartdate1, xx_precipstartdate2, xx_precipperiod,
95         &  xx_precip_remo_intercept, xx_precip_remo_slope,
96         &  xx_swflux_file,
97         &  xx_swfluxstartdate1, xx_swfluxstartdate2, xx_swfluxperiod,
98         &  xx_swflux_remo_intercept, xx_swflux_remo_slope,
99         &  xx_swdown_file,
100         &  xx_swdownstartdate1, xx_swdownstartdate2, xx_swdownperiod,
101         &  xx_swdown_remo_intercept, xx_swdown_remo_slope,
102       &  xx_uwind_file,       &  xx_uwind_file,
103       &  xx_uwindstartdate1, xx_uwindstartdate2, xx_uwindperiod,       &  xx_uwindstartdate1, xx_uwindstartdate2, xx_uwindperiod,
104         &  xx_uwind_remo_intercept, xx_uwind_remo_slope,
105       &  xx_vwind_file,       &  xx_vwind_file,
106       &  xx_vwindstartdate1, xx_vwindstartdate2, xx_vwindperiod,       &  xx_vwindstartdate1, xx_vwindstartdate2, xx_vwindperiod,
107         &  xx_vwind_remo_intercept, xx_vwind_remo_slope,
108       &  xx_obcsn_file,       &  xx_obcsn_file,
109       &  xx_obcsnstartdate1,  xx_obcsnstartdate2,  xx_obcsnperiod,       &  xx_obcsnstartdate1,  xx_obcsnstartdate2,  xx_obcsnperiod,
110       &  xx_obcss_file,       &  xx_obcss_file,
# Line 100  c--   Read the namelist input. Line 117  c--   Read the namelist input.
117       &  xx_kapgm_file,       &  xx_kapgm_file,
118       &  xx_tr1_file,       &  xx_tr1_file,
119       &  xx_sst_file,       &  xx_sst_file,
120         &  xx_sststartdate1, xx_sststartdate2, xx_sstperiod,
121       &  xx_sss_file,       &  xx_sss_file,
122         &  xx_sssstartdate1, xx_sssstartdate2, xx_sssperiod,
123       &  xx_hfacc_file,       &  xx_hfacc_file,
124       &  xx_efluxy_file,       &  xx_efluxy_file,
125       &  xx_efluxp_file,       &  xx_efluxp_file,
# Line 113  c--   Read the namelist input. Line 132  c--   Read the namelist input.
132       &  doInitXX,       &  doInitXX,
133       &  doPackDiag,       &  doPackDiag,
134       &  doZscaleUnpack,       &  doZscaleUnpack,
135       &  doZscalePack       &  doZscalePack,
136         &  doMainUnpack,
137         &  doMainPack,
138         &  doAdmtlmBypassAD
139    
140        namelist /ctrl_packnames/        namelist /ctrl_packnames/
141       &  yadmark, yctrlid, yctrlposunpack, yctrlpospack,       &  yadmark, yctrlid, yctrlposunpack, yctrlpospack,
# Line 132  c--     Set default values. Line 153  c--     Set default values.
153          doPackDiag          = .FALSE.          doPackDiag          = .FALSE.
154          doZscaleUnpack      = .FALSE.          doZscaleUnpack      = .FALSE.
155          doZscalePack        = .FALSE.          doZscalePack        = .FALSE.
156            doMainUnpack        = .TRUE.
157            doMainPack          = .TRUE.
158            doAdmtlmBypassAD    = .FALSE.
159    
160          xx_theta_file      = 'xx_theta'          xx_theta_file      = 'xx_theta'
161          xx_salt_file       = 'xx_salt'          xx_salt_file       = 'xx_salt'
162    c
163          xx_hfluxstartdate1 =   0          xx_hfluxstartdate1 =   0
164          xx_hfluxstartdate2 =   0          xx_hfluxstartdate2 =   0
165          xx_hfluxperiod     =   0. _d 0          xx_hfluxperiod     =   0. _d 0
166          xx_hflux_file      = 'xx_hfl'          xx_hflux_file      = 'xx_hfl'
167            xx_hflux_remo_intercept =   0. _d 0
168            xx_hflux_remo_slope =   0. _d 0
169    c
170          xx_sfluxstartdate1 =   0          xx_sfluxstartdate1 =   0
171          xx_sfluxstartdate2 =   0          xx_sfluxstartdate2 =   0
172          xx_sfluxperiod     =   0. _d 0          xx_sfluxperiod     =   0. _d 0
173          xx_sflux_file      = 'xx_sfl'          xx_sflux_file      = 'xx_sfl'
174            xx_sflux_remo_intercept =   0. _d 0
175            xx_sflux_remo_slope =   0. _d 0
176    c
177          xx_tauustartdate1  =   0          xx_tauustartdate1  =   0
178          xx_tauustartdate2  =   0          xx_tauustartdate2  =   0
179          xx_tauuperiod      =   0. _d 0          xx_tauuperiod      =   0. _d 0
180          xx_tauu_file       = 'xx_tauu'          xx_tauu_file       = 'xx_tauu'
181            xx_tauu_remo_intercept =   0. _d 0
182            xx_tauu_remo_slope =   0. _d 0
183    c
184          xx_tauvstartdate1  =   0          xx_tauvstartdate1  =   0
185          xx_tauvstartdate2  =   0          xx_tauvstartdate2  =   0
186          xx_tauvperiod      =   0. _d 0          xx_tauvperiod      =   0. _d 0
187          xx_tauv_file       = 'xx_tauv'          xx_tauv_file       = 'xx_tauv'
188            xx_tauv_remo_intercept =   0. _d 0
189            xx_tauv_remo_slope =   0. _d 0
190    c
191          xx_atempstartdate1  =   0          xx_atempstartdate1  =   0
192          xx_atempstartdate2  =   0          xx_atempstartdate2  =   0
193          xx_atempperiod      =   0. _d 0          xx_atempperiod      =   0. _d 0
194          xx_atemp_file       = 'xx_atemp'          xx_atemp_file       = 'xx_atemp'
195            xx_atemp_remo_intercept =   0. _d 0
196            xx_atemp_remo_slope =   0. _d 0
197    c
198          xx_aqhstartdate1    =   0          xx_aqhstartdate1    =   0
199          xx_aqhstartdate2    =   0          xx_aqhstartdate2    =   0
200          xx_aqhperiod        =   0. _d 0          xx_aqhperiod        =   0. _d 0
201          xx_aqh_file         = 'xx_aqh'          xx_aqh_file         = 'xx_aqh'
202            xx_aqh_remo_intercept =   0. _d 0
203            xx_aqh_remo_slope =   0. _d 0
204    c
205            xx_precipstartdate1 =   0
206            xx_precipstartdate2 =   0
207            xx_precipperiod     =   0. _d 0
208            xx_precip_file      = 'xx_precip'
209            xx_precip_remo_intercept =   0. _d 0
210            xx_precip_remo_slope =   0. _d 0
211    c
212            xx_swfluxstartdate1 =   0
213            xx_swfluxstartdate2 =   0
214            xx_swfluxperiod     =   0. _d 0
215            xx_swflux_file      = 'xx_swflux'
216            xx_swflux_remo_intercept =   0. _d 0
217            xx_swflux_remo_slope =   0. _d 0
218    c
219            xx_swdownstartdate1 =   0
220            xx_swdownstartdate2 =   0
221            xx_swdownperiod     =   0. _d 0
222            xx_swdown_file      = 'xx_swdown'
223            xx_swdown_remo_intercept =   0. _d 0
224            xx_swdown_remo_slope =   0. _d 0
225    c
226          xx_uwindstartdate1  =   0          xx_uwindstartdate1  =   0
227          xx_uwindstartdate2  =   0          xx_uwindstartdate2  =   0
228          xx_uwindperiod      =   0. _d 0          xx_uwindperiod      =   0. _d 0
229          xx_uwind_file       = 'xx_uwind'          xx_uwind_file       = 'xx_uwind'
230            xx_uwind_remo_intercept =   0. _d 0
231            xx_uwind_remo_slope =   0. _d 0
232    c
233          xx_vwindstartdate1  =   0          xx_vwindstartdate1  =   0
234          xx_vwindstartdate2  =   0          xx_vwindstartdate2  =   0
235          xx_vwindperiod      =   0. _d 0          xx_vwindperiod      =   0. _d 0
236          xx_vwind_file       = 'xx_vwind'          xx_vwind_file       = 'xx_vwind'
237            xx_vwind_remo_intercept =   0. _d 0
238            xx_vwind_remo_slope =   0. _d 0
239    c
240          xx_obcsnstartdate1  =   0          xx_obcsnstartdate1  =   0
241          xx_obcsnstartdate2  =   0          xx_obcsnstartdate2  =   0
242          xx_obcsnperiod      =   0. _d 0          xx_obcsnperiod      =   0. _d 0
243          xx_obcsn_file       = 'xx_obcsn'          xx_obcsn_file       = 'xx_obcsn'
244    c
245          xx_obcssstartdate1  =   0          xx_obcssstartdate1  =   0
246          xx_obcssstartdate2  =   0          xx_obcssstartdate2  =   0
247          xx_obcssperiod      =   0. _d 0          xx_obcssperiod      =   0. _d 0
248          xx_obcss_file       = 'xx_obcss'          xx_obcss_file       = 'xx_obcss'
249    c
250          xx_obcswstartdate1  =   0          xx_obcswstartdate1  =   0
251          xx_obcswstartdate2  =   0          xx_obcswstartdate2  =   0
252          xx_obcswperiod      =   0. _d 0          xx_obcswperiod      =   0. _d 0
253          xx_obcsw_file       = 'xx_obcsw'          xx_obcsw_file       = 'xx_obcsw'
254    c
255          xx_obcsestartdate1  =   0          xx_obcsestartdate1  =   0
256          xx_obcsestartdate2  =   0          xx_obcsestartdate2  =   0
257          xx_obcseperiod      =   0. _d 0          xx_obcseperiod      =   0. _d 0
258          xx_obcse_file       = 'xx_obcse'          xx_obcse_file       = 'xx_obcse'
259    c
260            xx_sststartdate1    =   0
261            xx_sststartdate2    =   0
262            xx_sstperiod        =   0. _d 0
263            xx_sst_file         = 'xx_sst'
264    c
265            xx_sssstartdate1    =   0
266            xx_sssstartdate2    =   0
267            xx_sssperiod        =   0. _d 0
268            xx_sss_file         = 'xx_sss'
269    c
270          xx_diffkr_file      = 'xx_diffkr'          xx_diffkr_file      = 'xx_diffkr'
271          xx_kapgm_file       = 'xx_kapgm'          xx_kapgm_file       = 'xx_kapgm'
272          xx_tr1_file         = 'xx_ptr'          xx_tr1_file         = 'xx_ptr'
         xx_sst_file         = 'xx_sst'  
         xx_sss_file         = 'xx_sss'  
273          xx_hfacc_file       = 'xx_hfacc'          xx_hfacc_file       = 'xx_hfacc'
274          xx_efluxy_file      = 'xx_efluxy'          xx_efluxy_file      = 'xx_efluxy'
275          xx_efluxp_file      = 'xx_efluxp'          xx_efluxp_file      = 'xx_efluxp'
# Line 214  c--     Set default values. Line 296  c--     Set default values.
296          maskname            = ' '          maskname            = ' '
297          metaname            = ' '          metaname            = ' '
298    
299  c--     Check versions.  c--     Next, read the cost data file.
300            WRITE(msgBuf,'(A)') 'CTRL_READPARMS: opening data.ctrl'
301          open(unit=scrunit1,status='scratch')          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
302         &                    SQUEEZE_RIGHT , 1)
303    
304            CALL OPEN_COPY_DATA_FILE(
305         I                          'data.ctrl', 'CTRL_READPARMS',
306         O                          iUnit,
307         I                          myThid )
308    
309            READ(unit = iUnit, nml = ctrl_nml)
310            READ(unit = iUnit, nml = ctrl_packnames)
311    
312            WRITE(msgBuf,'(A)')
313         &       'CTRL_READPARMS: finished reading data.ctrl'
314            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
315         &                  SQUEEZE_RIGHT , 1)
316    
317  c--     Next, read the ecco data file.          CLOSE( iUnit )
         open(unit = modeldataunit,file = 'data.ctrl',  
      &       status = 'old', iostat = errio)  
         if ( errio .lt. 0 ) then  
           stop ' stopped in ctrl_readparms'  
         endif  
   
         do while ( .true. )  
           read(modeldataunit, fmt='(a)', end=1001) record  
           il = max(ilnblnk(record),1)  
           if ( record(1:1) .ne. commentcharacter )  
      &        write(unit=scrunit1, fmt='(a)') record(:il)  
         enddo  
  1001   continue  
         close( modeldataunit )  
   
         rewind( scrunit1 )  
         read(unit = scrunit1, nml = ctrl_nml)  
         read(unit = scrunit1, nml = ctrl_packnames)  
         close( scrunit1 )  
318    
319        _END_MASTER( myThid )        _END_MASTER( myThid )
320    
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22