Index: trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F	(revision 2980)
+++ trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F	(revision 2981)
@@ -992,5 +992,5 @@
       IF (write_prof) then
               DO iq = 1, nq
-        	call writeprofile(nlayer,q(:,iq),noms(iq),iq)
+        	call writeprofile(nlayer,q(:,iq),noms(iq),iq,qsurf)
               ENDDO
       ENDIF
Index: trunk/LMDZ.MARS/libf/phymars/dyn1d/write_profile.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/dyn1d/write_profile.F90	(revision 2980)
+++ trunk/LMDZ.MARS/libf/phymars/dyn1d/write_profile.F90	(revision 2981)
@@ -1,3 +1,3 @@
-SUBROUTINE writeprofile(nlev,data,name2,iq)
+SUBROUTINE writeprofile(nlev,data,name2,iq,qsurf)
 
 
@@ -7,4 +7,5 @@
 INTEGER nlev,iq
 REAL data(nlev)
+REAL qsurf
 CHARACTER(len=30) :: name2
 
@@ -14,4 +15,5 @@
 !write the data
 OPEN(iq,file='profile_out_'//trim(name2),form='formatted')
+write(iq,*) qsurf
 DO il=1,nlev
 	write(iq,*) data(il)