Index: LMDZ6/trunk/libf/phylmd/Ocean_skin/sens_heat_rain_m.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/Ocean_skin/sens_heat_rain_m.F90	(revision 5966)
+++ LMDZ6/trunk/libf/phylmd/Ocean_skin/sens_heat_rain_m.F90	(revision 5967)
@@ -6,7 +6,7 @@
 
 #ifdef IN_LMDZ
-  real function sens_heat_rain(rain, t, q, rhoa, xlv, t_int, p)
+  function sens_heat_rain(rain, t, q, rhoa, xlv, t_int, p)
 #else
-  elemental real function sens_heat_rain(rain, t, q, rhoa, xlv, t_int, p)
+  elemental function sens_heat_rain(rain, t, q, rhoa, xlv, t_int, p)
 #endif