Changeset 10759 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
- Timestamp:
- 2019-03-15T12:06:27+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r6491 r10759 160 160 READ ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 161 161 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 162 IF(lwm ) WRITE ( numond, namrun )162 IF(lwm .AND. nprint > 2) WRITE ( numond, namrun ) 163 163 ! 164 164 IF(lwp) THEN ! control print … … 251 251 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 252 252 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 253 IF(lwm ) WRITE ( numond, namdom )253 IF(lwm .AND. nprint > 2) WRITE ( numond, namdom ) 254 254 255 255 IF(lwp) THEN … … 313 313 READ ( numnam_cfg, namcla, IOSTAT = ios, ERR = 906 ) 314 314 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp ) 315 IF(lwm ) WRITE( numond, namcla )315 IF(lwm .AND. nprint > 2) WRITE( numond, namcla ) 316 316 317 317 IF(lwp) THEN … … 337 337 READ ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 338 338 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 339 IF(lwm ) WRITE( numond, namnc4 )339 IF(lwm .AND. nprint > 2) WRITE( numond, namnc4 ) 340 340 341 341 IF(lwp) THEN ! control print
Note: See TracChangeset
for help on using the changeset viewer.