Changeset 4952 for branches/2014/dev_MERGE_2014
- Timestamp:
- 2014-12-02T11:50:42+01:00 (10 years ago)
- Location:
- branches/2014/dev_MERGE_2014/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_MERGE_2014/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r4951 r4952 241 241 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 242 242 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 243 WRITE ( numond, namdom )243 IF(lwm)WRITE ( numond, namdom ) 244 244 245 245 IF(lwp) THEN … … 303 303 READ ( numnam_cfg, namcla, IOSTAT = ios, ERR = 906 ) 304 304 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp ) 305 WRITE( numond, namcla )305 IF(lwm)WRITE( numond, namcla ) 306 306 307 307 IF(lwp) THEN … … 327 327 READ ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 328 328 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 329 WRITE( numond, namnc4 )329 IF(lwm)WRITE( numond, namnc4 ) 330 330 331 331 IF(lwp) THEN ! control print -
branches/2014/dev_MERGE_2014/NEMOGCM/NEMO/OPA_SRC/TRD/trdini.F90
r4946 r4952 54 54 READ ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 55 55 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwp ) 56 WRITE( numond, namtrd )56 IF(lwm)WRITE( numond, namtrd ) 57 57 ! 58 58 IF(lwp) THEN ! control print
Note: See TracChangeset
for help on using the changeset viewer.