Changeset 2645 for LMDZ5/trunk/libf/phylmd/iophy.F90

Timestamp:

Oct 4, 2016, 5:49:13 PM (8 years ago)

Author:

musat

Message:

Add histwrite for scalar outputs in LMDZ.
The scalars (GES, rsun*, solaire and Earths' orbital params)
outputed before in paramLMDZ_phy.nc are now in
histmth.nc file.

File:

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

LMDZ5/trunk/libf/phylmd/iophy.F90

@@ -17 +17 @@
 #ifdef CPP_XIOS
   INTERFACE histwrite_phy
-    MODULE PROCEDURE histwrite2d_phy,histwrite3d_phy,histwrite2d_phy_old,histwrite3d_phy_old,histwrite2d_xios,histwrite3d_xios
+    MODULE PROCEDURE histwrite2d_phy,histwrite3d_phy,histwrite2d_phy_old,histwrite3d_phy_old,histwrite2d_xios,histwrite3d_xios,histwrite0d_xios
   END INTERFACE
 #else
@@ -1331 +1331 @@
   IF (prt_level >= 10) write(lunout,*)'End histrwrite3d_xios ',field_name
   END SUBROUTINE histwrite3d_xios
+
+  SUBROUTINE histwrite0d_xios(field_name, field)
+  USE xios, only: xios_send_scalar 
+  IMPLICIT NONE
+
+    CHARACTER(LEN=*), INTENT(IN) :: field_name
+    REAL, INTENT(IN) :: field ! --> scalar
+
+!$OMP MASTER
+   CALL xios_send_scalar(field_name, field)
+!$OMP END MASTER
+
+  END SUBROUTINE histwrite0d_xios
 #endif
 end module iophy