/[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.19 by heimbach, Wed Aug 31 00:03:30 2005 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 84  c--   Read the namelist input. Line 84  c--   Read the namelist input.
84       &  xx_atempstartdate1, xx_atempstartdate2, xx_atempperiod,       &  xx_atempstartdate1, xx_atempstartdate2, xx_atempperiod,
85       &  xx_aqh_file,       &  xx_aqh_file,
86       &  xx_aqhstartdate1, xx_aqhstartdate2, xx_aqhperiod,       &  xx_aqhstartdate1, xx_aqhstartdate2, xx_aqhperiod,
87         &  xx_precip_file,
88         &  xx_precipstartdate1, xx_precipstartdate2, xx_precipperiod,
89         &  xx_swflux_file,
90         &  xx_swfluxstartdate1, xx_swfluxstartdate2, xx_swfluxperiod,
91         &  xx_swdown_file,
92         &  xx_swdownstartdate1, xx_swdownstartdate2, xx_swdownperiod,
93       &  xx_uwind_file,       &  xx_uwind_file,
94       &  xx_uwindstartdate1, xx_uwindstartdate2, xx_uwindperiod,       &  xx_uwindstartdate1, xx_uwindstartdate2, xx_uwindperiod,
95       &  xx_vwind_file,       &  xx_vwind_file,
# Line 100  c--   Read the namelist input. Line 106  c--   Read the namelist input.
106       &  xx_kapgm_file,       &  xx_kapgm_file,
107       &  xx_tr1_file,       &  xx_tr1_file,
108       &  xx_sst_file,       &  xx_sst_file,
109         &  xx_sststartdate1, xx_sststartdate2, xx_sstperiod,
110       &  xx_sss_file,       &  xx_sss_file,
111         &  xx_sssstartdate1, xx_sssstartdate2, xx_sssperiod,
112       &  xx_hfacc_file,       &  xx_hfacc_file,
113       &  xx_efluxy_file,       &  xx_efluxy_file,
114       &  xx_efluxp_file,       &  xx_efluxp_file,
# Line 159  c--     Set default values. Line 167  c--     Set default values.
167          xx_aqhstartdate2    =   0          xx_aqhstartdate2    =   0
168          xx_aqhperiod        =   0. _d 0          xx_aqhperiod        =   0. _d 0
169          xx_aqh_file         = 'xx_aqh'          xx_aqh_file         = 'xx_aqh'
170            xx_precipstartdate1 =   0
171            xx_precipstartdate2 =   0
172            xx_precipperiod     =   0. _d 0
173            xx_precip_file      = 'xx_precip'
174            xx_swfluxstartdate1 =   0
175            xx_swfluxstartdate2 =   0
176            xx_swfluxperiod     =   0. _d 0
177            xx_swflux_file      = 'xx_swflux'
178            xx_swdownstartdate1 =   0
179            xx_swdownstartdate2 =   0
180            xx_swdownperiod     =   0. _d 0
181            xx_swdown_file      = 'xx_swdown'
182          xx_uwindstartdate1  =   0          xx_uwindstartdate1  =   0
183          xx_uwindstartdate2  =   0          xx_uwindstartdate2  =   0
184          xx_uwindperiod      =   0. _d 0          xx_uwindperiod      =   0. _d 0
# Line 186  c--     Set default values. Line 206  c--     Set default values.
206          xx_diffkr_file      = 'xx_diffkr'          xx_diffkr_file      = 'xx_diffkr'
207          xx_kapgm_file       = 'xx_kapgm'          xx_kapgm_file       = 'xx_kapgm'
208          xx_tr1_file         = 'xx_ptr'          xx_tr1_file         = 'xx_ptr'
209            xx_sststartdate1    =   0
210            xx_sststartdate2    =   0
211            xx_sstperiod        =   0. _d 0
212          xx_sst_file         = 'xx_sst'          xx_sst_file         = 'xx_sst'
213            xx_sssstartdate1    =   0
214            xx_sssstartdate2    =   0
215            xx_sssperiod        =   0. _d 0
216          xx_sss_file         = 'xx_sss'          xx_sss_file         = 'xx_sss'
217          xx_hfacc_file       = 'xx_hfacc'          xx_hfacc_file       = 'xx_hfacc'
218          xx_efluxy_file      = 'xx_efluxy'          xx_efluxy_file      = 'xx_efluxy'
# Line 214  c--     Set default values. Line 240  c--     Set default values.
240          maskname            = ' '          maskname            = ' '
241          metaname            = ' '          metaname            = ' '
242    
243  c--     Check versions.  c--     Next, read the cost data file.
244            WRITE(msgBuf,'(A)') 'CTRL_READPARMS: opening data.ctrl'
245          open(unit=scrunit1,status='scratch')          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
246         &                    SQUEEZE_RIGHT , 1)
247    
248            CALL OPEN_COPY_DATA_FILE(
249         I                          'data.ctrl', 'CTRL_READPARMS',
250         O                          iUnit,
251         I                          myThid )
252    
253            READ(unit = iUnit, nml = ctrl_nml)
254            READ(unit = iUnit, nml = ctrl_packnames)
255    
256            WRITE(msgBuf,'(A)')
257         &       'CTRL_READPARMS: finished reading data.ctrl'
258            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
259         &                  SQUEEZE_RIGHT , 1)
260    
261  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 )  
262    
263        _END_MASTER( myThid )        _END_MASTER( myThid )
264    
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22