Changeset 5012


Ignore:
Timestamp:
2015-01-07T18:08:27+01:00 (6 years ago)
Author:
timgraham
Message:

Minor fix for ticket #1429

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/step.F90

    r4990 r5012  
    322322                 CALL iom_close( numror )     ! close input  ocean restart file 
    323323         IF(lwm) CALL FLUSH    ( numond )     ! flush output namelist oce 
    324          IF(lwm) CALL FLUSH    ( numoni )     ! flush output namelist ice     
     324         IF( lwm.AND.numoni /= -1 ) CALL FLUSH    ( numoni )     ! flush output namelist ice     
    325325      ENDIF 
    326326      IF( lrst_oce         )   CALL rst_write    ( kstp )   ! write output ocean restart file 
Note: See TracChangeset for help on using the changeset viewer.