Index: trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90	(revision 3072)
+++ trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90	(revision 3074)
@@ -16,4 +16,5 @@
 use write_output_mod,    only: write_output
 use init_testphys1d_mod, only: init_testphys1d
+use writerestart1D_mod,  only: writerestart1D
 ! Mostly for XIOS outputs:
 use mod_const_mpi,       only: init_const_mpi
Index: trunk/LMDZ.MARS/libf/phymars/dyn1d/writerestart1D.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/dyn1d/writerestart1D.F90	(revision 3072)
+++ 	(revision )
@@ -1,29 +1,0 @@
-SUBROUTINE writerestart1D(filename,psurf,tsurf,nlayer,nslope,temp,u,v,nq,qnames,qsurf,q)
-
-implicit none
-
-! Arguments
-character(len = *),                intent(in) :: filename
-integer,                           intent(in) :: nlayer, nq, nslope
-real,                              intent(in) :: psurf
-real, dimension(nslope),           intent(in) :: tsurf
-real, dimension(nlayer),           intent(in) :: temp, u, v
-real, dimension(nlayer,nq),        intent(in) :: q
-real, dimension(nq,nslope),        intent(in) :: qsurf
-character(len = *), dimension(nq), intent(in) :: qnames
-
-! Local variables
-integer :: i, j, il
-
-! Write the data needed for a restart in "restart1D.txt"
-open(1,file = filename,status = "replace",action = "write")
-write(1,*) 'ps', psurf
-do i = 1,nq
-    write(1,*) qnames(i), (qsurf(i,j), j = 1,nslope), (q(il,i), il = 1,nlayer)
-enddo
-write(1,*) 'u', (u(il), il = 1,nlayer)
-write(1,*) 'v', (v(il), il = 1,nlayer)
-write(1,*) 'teta', (tsurf(j), j = 1,nslope), (temp(il), il = 1,nlayer)
-close(1)
-
-END SUBROUTINE writerestart1D
Index: trunk/LMDZ.MARS/libf/phymars/dyn1d/writerestart1D_mod.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/dyn1d/writerestart1D_mod.F90	(revision 3074)
+++ trunk/LMDZ.MARS/libf/phymars/dyn1d/writerestart1D_mod.F90	(revision 3074)
@@ -0,0 +1,37 @@
+MODULE writerestart1D_mod
+
+implicit none
+
+contains
+
+SUBROUTINE writerestart1D(filename,psurf,tsurf,nlayer,nslope,temp,u,v,nq,qnames,qsurf,q)
+
+implicit none
+
+! Arguments
+character(len = *),                intent(in) :: filename
+integer,                           intent(in) :: nlayer, nq, nslope
+real,                              intent(in) :: psurf
+real, dimension(nslope),           intent(in) :: tsurf
+real, dimension(nlayer),           intent(in) :: temp, u, v
+real, dimension(nlayer,nq),        intent(in) :: q
+real, dimension(nq,nslope),        intent(in) :: qsurf
+character(len = *), dimension(nq), intent(in) :: qnames
+
+! Local variables
+integer :: i, j, il
+
+! Write the data needed for a restart in "restart1D.txt"
+open(1,file = filename,status = "replace",action = "write")
+write(1,*) 'ps', psurf
+do i = 1,nq
+    write(1,*) qnames(i), (qsurf(i,j), j = 1,nslope), (q(il,i), il = 1,nlayer)
+enddo
+write(1,*) 'u', (u(il), il = 1,nlayer)
+write(1,*) 'v', (v(il), il = 1,nlayer)
+write(1,*) 'teta', (tsurf(j), j = 1,nslope), (temp(il), il = 1,nlayer)
+close(1)
+
+END SUBROUTINE writerestart1D
+
+END MODULE writerestart1D_mod