Changeset 13970 for NEMO/trunk/src/TOP/PISCES/SED/sedstp.F90

Timestamp:

2020-12-02T10:56:33+01:00 (3 years ago)

Author:

andmirek

Message:

Ticket #2462 into the trunk

File:

• NEMO/trunk/src/TOP/PISCES/SED/sedstp.F90 (modified) (1 diff)

NEMO/trunk/src/TOP/PISCES/SED/sedstp.F90

@@ -86 +86 @@
       IF( kt == nitsed000 ) THEN
           CALL iom_close( numrsr )       ! close input tracer restart file
-!          IF(lwm) CALL FLUSH( numont )   ! flush namelist output
+          IF(lrxios) CALL iom_context_finalize(      cr_sedrst_cxt  )
+!         IF(lwm) CALL FLUSH( numont )   ! flush namelist output
       ENDIF
       IF( lrst_sed )            CALL sed_rst_wri( kt )   ! restart file output