Changeset 12796


Ignore:
Timestamp:
2020-04-22T15:38:17+02:00 (6 months ago)
Author:
andmirek
Message:

GMED developmemnt; Ticket 538 add call to xios function

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_XIOS25_cpl/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r11101 r12796  
    2626#if defined key_oasis3 
    2727   USE mod_oasis                    ! OASIS3-MCT module 
     28#if defined key_iomput && defined key_xios25 
     29   USE xios, ONLY:xios_oasis_enddef 
     30#endif 
    2831#endif 
    2932   USE par_oce                      ! ocean parameters 
     
    414417      ! End of definition phase 
    415418      !------------------------------------------------------------------ 
    416        
     419#if defined key_iomput && defined key_xios25 
     420!needed for XIOS 2.5 
     421      CALL xios_oasis_enddef() 
     422#endif 
    417423      CALL oasis_enddef(nerror) 
    418424      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.