Ignore:
Timestamp:
Oct 11, 2016, 12:44:49 PM (8 years ago)
Author:
musat
Message:

Change for scalar outputs with XIOS 965
NB: it will not work if you are using XIOS older than 886.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/iophy.F90

    r2645 r2660  
    1717#ifdef CPP_XIOS
    1818  INTERFACE histwrite_phy
     19!#ifdef CPP_XIOSnew
    1920    MODULE PROCEDURE histwrite2d_phy,histwrite3d_phy,histwrite2d_phy_old,histwrite3d_phy_old,histwrite2d_xios,histwrite3d_xios,histwrite0d_xios
     21!#else
     22!    MODULE PROCEDURE histwrite2d_phy,histwrite3d_phy,histwrite2d_phy_old,histwrite3d_phy_old,histwrite2d_xios,histwrite3d_xios
     23!#endif
     24
    2025  END INTERFACE
    2126#else
     
    13321337  END SUBROUTINE histwrite3d_xios
    13331338
     1339#ifdef CPP_XIOS
    13341340  SUBROUTINE histwrite0d_xios(field_name, field)
    1335   USE xios, only: xios_send_scalar
     1341  USE xios, only: xios_send_field
    13361342  IMPLICIT NONE
    13371343
     
    13401346
    13411347!$OMP MASTER
    1342    CALL xios_send_scalar(field_name, field)
     1348   CALL xios_send_field(field_name, field)
    13431349!$OMP END MASTER
    13441350
    13451351  END SUBROUTINE histwrite0d_xios
    13461352#endif
     1353
     1354#endif
    13471355end module iophy
Note: See TracChangeset for help on using the changeset viewer.