Index: trunk/LMDZ.MARS/libf/phymars/comdiurn.h
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/comdiurn.h	(revision 339)
+++ trunk/LMDZ.MARS/libf/phymars/comdiurn.h	(revision 340)
@@ -1,5 +1,6 @@
-      COMMON/comdiurn/ldiurn,
-     s     sinlon(ngridmx),coslon(ngridmx),
-     s     sinlat(ngridmx),coslat(ngridmx)
+      COMMON/comdiurn_r/sinlon(ngridmx),coslon(ngridmx),
+     s        sinlat(ngridmx),coslat(ngridmx)
+      COMMON/comdiurn_l/ldiurn
+
       REAL sinlon,coslon,sinlat,coslat
       LOGICAL ldiurn