New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12961 for NEMO/branches/2020/dev_12905_xios_restart/src/ICE/icestp.F90 – NEMO

Ignore:
Timestamp:
2020-05-22T13:51:12+02:00 (4 years ago)
Author:
andmirek
Message:

Ticket #2462: read/write restart with XIOS in TOP (with debug print statements)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_12905_xios_restart/src/ICE/icestp.F90

    r12489 r12961  
    280280      END WHERE 
    281281 
    282       IF( ln_rstart )   CALL iom_close( numrir )  ! close input ice restart file 
     282      IF( ln_rstart )  THEN 
     283          CALL iom_close( numrir )  ! close input ice restart file 
     284          IF(lrxios) CALL iom_context_finalize(      crixios_context         ) 
     285      ENDIF 
    283286      ! 
    284287   END SUBROUTINE ice_init 
Note: See TracChangeset for help on using the changeset viewer.