Index: trunk/LMDZ.MARS/libf/phymars/iostart.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/iostart.F90	(revision 3702)
+++ trunk/LMDZ.MARS/libf/phymars/iostart.F90	(revision 4150)
@@ -8,4 +8,5 @@
     
     ! restartfi.nc file dimension identifiers: (see open_restartphy())
+    INTEGER,SAVE :: idim0  ! "scalar" dimension
     INTEGER,SAVE :: idim1  ! "index" dimension
     INTEGER,SAVE :: idim2  ! "physical_points" dimension
@@ -510,4 +511,11 @@
         write(*,*)'open_restartphy: problem writing title '
         write(*,*)trim(nf90_strerror(ierr))
+      ENDIF
+
+      ierr=NF90_DEF_DIM(nid_restart,"scalar",1,idim0)
+      IF (ierr/=NF90_NOERR) THEN
+        write(*,*)'open_restartphy: problem defining scalar dimension '
+        write(*,*)trim(nf90_strerror(ierr))
+        CALL abort_physic("open_restartphy","Failed defining scalar",1)
       ENDIF
 
@@ -1061,4 +1069,7 @@
         ENDIF
         return ! nothing left to do
+      ELSEIF (var_size==1) THEN
+        ! We know it is a scalar
+        idim1d=idim0
       ELSEIF (var_size==length) THEN
         ! We know it is a "controle" kind of 1D array