Index: trunk/LMDZ.MARS/libf/phymars/thermcell_main_mars.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/thermcell_main_mars.F90	(revision 615)
+++ trunk/LMDZ.MARS/libf/phymars/thermcell_main_mars.F90	(revision 616)
@@ -754,5 +754,7 @@
       do ig=1,ngridmx
             if (zw2(ig,l+1)>0. .and. zw2(ig,l+1).lt.1.e-10) then
+      IF (lwrite) THEN
              print*,'On tombe sur le cas particulier de thermcell_plume'
+      ENDIF
                 zw2(ig,l+1)=0.
                 linter(ig)=l+1
@@ -1029,5 +1031,7 @@
                ncorecfm2=ncorecfm2+1
                else
+               IF (lwrite) THEN
           print*,'fm(l+1)<0 : ig, l+1,lmax :',ig,l+1,lmax(ig),fm(ig,l+1)
+               ENDIF
                ncorecfm1=ncorecfm1+1
                fm(ig,l+1)=fm(ig,l)
@@ -1229,5 +1233,7 @@
      &   fm(ig,k)*ztv(ig,k)+fm(ig,k)*ztva(ig,k)-fm(ig,k+1)*ztva(ig,k+1))
             if (ztv(ig,k) + ptimestep*zdthladj(ig,k) .le. 0.) then
+      IF (lwrite) THEN
               print*,'Teta<0 in thermcell_dTeta up: qenv .. dq : ', ztv(ig,k),ptimestep*zdthladj(ig,k)
+      ENDIF
               if(ztv(ig,k) .gt. 0.) then
               zdthladj(ig,k)=0.
@@ -1315,5 +1321,7 @@
      & fm_down(ig,k)*ztv(ig,k)+fm_down(ig,k)*ztvd(ig,k)-fm_down(ig,k+1)*ztvd(ig,k+1))
             if (ztv(ig,k) + ptimestep*zdthladj_down(ig,k) .le. 0.) then
+      IF (lwrite) THEN
               print*,'q<0 in thermcell_dTeta down: qenv .. dq : ', ztv(ig,k),ptimestep*zdthladj_down(ig,k)
+      ENDIF
               if(ztv(ig,k) .gt. 0.) then
               zdthladj(ig,k)=0.