Changeset 2660

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:

• LMDZ5/trunk/libf/phylmd/iophy.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/iophy.F90

@@ -17 +17 @@
 #ifdef CPP_XIOS
   INTERFACE histwrite_phy
+!#ifdef CPP_XIOSnew
     MODULE PROCEDURE histwrite2d_phy,histwrite3d_phy,histwrite2d_phy_old,histwrite3d_phy_old,histwrite2d_xios,histwrite3d_xios,histwrite0d_xios
+!#else
+!    MODULE PROCEDURE histwrite2d_phy,histwrite3d_phy,histwrite2d_phy_old,histwrite3d_phy_old,histwrite2d_xios,histwrite3d_xios
+!#endif
+
   END INTERFACE
 #else
@@ -1332 +1337 @@
   END SUBROUTINE histwrite3d_xios
 
+#ifdef CPP_XIOS
   SUBROUTINE histwrite0d_xios(field_name, field)
-  USE xios, only: xios_send_scalar 
+  USE xios, only: xios_send_field
   IMPLICIT NONE
 
@@ -1340 +1346 @@
 
 !$OMP MASTER
-   CALL xios_send_scalar(field_name, field)
+   CALL xios_send_field(field_name, field)
 !$OMP END MASTER
 
   END SUBROUTINE histwrite0d_xios
 #endif
+
+#endif
 end module iophy