- Timestamp:
- 2017-12-26T17:32:56+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r9124 r9169 194 194 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints 195 195 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 196 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', .TRUE. ) 197 ! 196 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', .TRUE. ) 198 197 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist 199 198 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 200 902 IF( ios /= 0 )CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. )199 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. ) 201 200 ! 202 201 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist : Control prints 203 202 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 204 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', .TRUE. ) 205 203 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', .TRUE. ) 206 204 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist : Control prints & Benchmark 207 205 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 208 904 IF( ios /= 0 )CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. )206 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. ) 209 207 210 208 ! !--------------------------!
Note: See TracChangeset
for help on using the changeset viewer.