Changeset 9383 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
- Timestamp:
- 2018-03-08T10:22:55+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r9366 r9383 163 163 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run 164 164 READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 901) 165 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in reference namelist', lwm ) 165 901 CONTINUE 166 ENDIF 167 call mpp_bcast(ios) 168 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in reference namelist', lwp ) 169 IF(lwm) THEN 166 170 REWIND( numnam_cfg ) ! Namelist namrun in configuration namelist : Parameters of the run 167 171 READ ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 168 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwm ) 169 ENDIF 172 902 CONTINUE 173 ENDIF 174 call mpp_bcast(ios) 175 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 170 176 171 177 IF(lwm) WRITE ( numond, namrun ) … … 259 265 REWIND( numnam_ref ) ! Namelist namdom in reference namelist : space & time domain (bathymetry, mesh, timestep) 260 266 READ ( numnam_ref, namdom, IOSTAT = ios, ERR = 903) 261 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in reference namelist', lwm ) 267 903 CONTINUE 268 ENDIF 269 call mpp_bcast(ios) 270 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in reference namelist', lwp ) 271 IF(lwm) THEN 262 272 REWIND( numnam_cfg ) ! Namelist namdom in configuration namelist : space & time domain (bathymetry, mesh, timestep) 263 273 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 264 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwm ) 265 ENDIF 274 904 CONTINUE 275 ENDIF 276 call mpp_bcast(ios) 277 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 266 278 267 279 IF(lwm) WRITE ( numond, namdom ) … … 327 339 REWIND( numnam_ref ) ! Namelist namcla in reference namelist : Cross land advection 328 340 READ ( numnam_ref, namcla, IOSTAT = ios, ERR = 905) 329 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in reference namelist', lwm ) 341 905 CONTINUE 342 ENDIF 343 call mpp_bcast(ios) 344 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in reference namelist', lwp ) 345 IF(lwm) THEN 330 346 REWIND( numnam_cfg ) ! Namelist namcla in configuration namelist : Cross land advection 331 347 READ ( numnam_cfg, namcla, IOSTAT = ios, ERR = 906 ) 332 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwm ) 333 ENDIF 348 906 CONTINUE 349 ENDIF 350 call mpp_bcast(ios) 351 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp ) 352 334 353 IF(lwm) WRITE( numond, namcla ) 335 354 … … 354 373 REWIND( numnam_ref ) ! Namelist namnc4 in reference namelist : NETCDF 355 374 READ ( numnam_ref, namnc4, IOSTAT = ios, ERR = 907) 356 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in reference namelist', lwm ) 375 907 CONTINUE 376 ENDIF 377 call mpp_bcast(ios) 378 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in reference namelist', lwp ) 379 IF(lwm) THEN 357 380 REWIND( numnam_cfg ) ! Namelist namnc4 in configuration namelist : NETCDF 358 381 READ ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 359 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwm ) 360 ENDIF 382 908 CONTINUE 383 ENDIF 384 call mpp_bcast(ios) 385 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 361 386 362 387 IF(lwm) WRITE( numond, namnc4 )
Note: See TracChangeset
for help on using the changeset viewer.