Changeset 5012 for trunk/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2015-01-07T18:08:27+01:00 (9 years ago)

Author:

timgraham

Message:

Minor fix for ticket #1429

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -322 +322 @@
                  CALL iom_close( numror )     ! close input  ocean restart file
          IF(lwm) CALL FLUSH    ( numond )     ! flush output namelist oce
-         IF(lwm) CALL FLUSH    ( numoni )     ! flush output namelist ice    
+         IF( lwm.AND.numoni /= -1 ) CALL FLUSH    ( numoni )     ! flush output namelist ice    
       ENDIF
       IF( lrst_oce         )   CALL rst_write    ( kstp )   ! write output ocean restart file