Index: trunk/LMDZ.MARS/libf/phymars/physiq_mod.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/physiq_mod.F	(revision 2137)
+++ trunk/LMDZ.MARS/libf/phymars/physiq_mod.F	(revision 2141)
@@ -2534,5 +2534,6 @@
          call WRITEDIAGFI(ngrid,"temp","temperature","K",3,zt)
          call WRITEDIAGFI(ngrid,"Sols","Time","sols",0,zday)
-
+         call WRITEDIAGFI(ngrid,"Ls","Solar longitude","deg",
+     &                    0,zls*180./pi)
          call WRITEDIAGFI(ngrid,"u","Zonal wind","m.s-1",3,zu)
          call WRITEDIAGFI(ngrid,"v","Meridional wind","m.s-1",3,zv)
Index: trunk/LMDZ.MARS/libf/phymars/writediagfi.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/writediagfi.F	(revision 2137)
+++ trunk/LMDZ.MARS/libf/phymars/writediagfi.F	(revision 2141)
@@ -506,5 +506,5 @@
          if (is_parallel) then
            write(*,*) "writediagfi error: dim=1 not implemented ",
-     &                 "in parallel mode"
+     &                 "in parallel mode. Problem for ",trim(nom)
            stop
          endif