Changeset 12904


Ignore:
Timestamp:
2020-05-11T18:04:16+02:00 (7 months ago)
Author:
andmirek
Message:

Ticket #2458 fix for the problem

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r40_XIOS_OASIS/src/OCE/SBC/cpl_oasis3.F90

    r12528 r12904  
    2727#if defined key_oasis3 
    2828   USE mod_oasis                    ! OASIS3-MCT module 
     29#if defined key_iomput 
     30   USE xios, ONLY:xios_oasis_enddef  
     31#endif  
    2932#endif 
    3033   USE par_oce                      ! ocean parameters 
     
    310313      IF( agrif_fixed() == Agrif_Nb_Fine_Grids() ) THEN 
    311314#endif 
     315#if defined key_iomput 
     316      CALL xios_oasis_enddef()  
     317#endif  
    312318      CALL oasis_enddef(nerror) 
    313319      IF( nerror /= OASIS_Ok )   CALL oasis_abort ( ncomp_id, 'cpl_define', 'Failure in oasis_enddef') 
Note: See TracChangeset for help on using the changeset viewer.