Index: /LMDZ6/trunk/libf/phylmd/thermcell_dq.F90
===================================================================
--- /LMDZ6/trunk/libf/phylmd/thermcell_dq.F90	(revision 4135)
+++ /LMDZ6/trunk/libf/phylmd/thermcell_dq.F90	(revision 4136)
@@ -39,9 +39,11 @@
 
 ! Old explicite scheme
-      if (impl<=-1) then
+if (impl<=-1) then
+
          call thermcell_dq_o(ngrid,nlay,impl,ptimestep,fm,entr,  &
      &           masse,q,dq,qa,lev_out)
-         goto 1000
-      endif
+
+else
+  
 
 ! Calcul du critere CFL pour l'advection dans la subsidence
@@ -142,7 +144,8 @@
       enddo
 
-1000 continue
- RETURN
+endif ! impl=-1
+RETURN
 end
+
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!