Changeset 12821


Ignore:
Timestamp:
2020-04-27T17:00:19+02:00 (7 months ago)
Author:
jcastill
Message:

Changes for xios 2.5, protected by key_xios25

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/r12083_mix-lyr_diag/src/OCE/SBC/cpl_oasis3.F90

    r11715 r12821  
    2727#if defined key_oasis3 
    2828   USE mod_oasis                    ! OASIS3-MCT module 
     29#endif 
     30#if defined key_iomput && defined key_xios25 
     31   USE xios, ONLY:xios_oasis_enddef 
    2932#endif 
    3033   USE par_oce                      ! ocean parameters 
     
    306309      ! End of definition phase 
    307310      !------------------------------------------------------------------ 
    308        
     311      ! 
     312#if defined key_iomput && defined key_xios25 
     313!needed for XIOS 2.5 
     314      CALL xios_oasis_enddef() 
     315#endif 
     316      ! 
    309317      CALL oasis_enddef(nerror) 
    310318      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.