- Timestamp:
- 2017-12-23T13:27:17+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r9161 r9168 257 257 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints 258 258 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 259 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', .TRUE. ) 260 ! 259 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', .TRUE. ) 261 260 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist 262 261 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 263 902 IF( ios /= 0 )CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. )262 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. ) 264 263 ! 265 264 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist : Control prints 266 265 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 267 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', .TRUE. ) 268 266 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', .TRUE. ) 269 267 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist : Control prints & Benchmark 270 268 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 271 904 IF( ios /= 0 )CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. )269 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. ) 272 270 273 271 ! !--------------------------!
Note: See TracChangeset
for help on using the changeset viewer.