Changeset 4289
- Timestamp:
- 2013-11-20T16:26:01+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r4245 r4289 241 241 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 242 242 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 243 CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. )243 CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 244 244 ! 245 245 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark 246 246 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 247 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', lwp)247 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', .TRUE. ) 248 248 249 249 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist : Control prints & Benchmark 250 250 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 251 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', lwp)251 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. ) 252 252 WRITE( numond, namctl ) 253 253 … … 255 255 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist : Control prints & Benchmark 256 256 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 257 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', lwp)257 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', .TRUE. ) 258 258 259 259 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist : Control prints & Benchmark 260 260 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 261 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', lwp)261 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. ) 262 262 WRITE( numond, namcfg ) 263 263 ! Force values for AGRIF zoom (cf. agrif_user.F90)
Note: See TracChangeset
for help on using the changeset viewer.