Index: /trunk/LMDZ.TITAN/libf/phytitan/muphys3D.F
===================================================================
--- /trunk/LMDZ.TITAN/libf/phytitan/muphys3D.F	(revision 175)
+++ /trunk/LMDZ.TITAN/libf/phytitan/muphys3D.F	(revision 176)
@@ -235,4 +235,12 @@
 c*******************************************************
 
+         if (clouds.eq.0) then
+           if(nrad .ne. nmicro) then 
+             print*,"aLeRte : nrad != nmicro"
+             print*,'nmicro= ',nmicro 
+             print*,'nrad= ',nrad 
+             stop "je m'arrete..." 
+           endif
+         else
            if(nrad .ne. nmicro/ntype) then 
              print*,"aLeRte : nrad != nmicro/ntype"
@@ -243,4 +251,5 @@
              stop "je m'arrete..." 
            endif
+         endif
 
            do i=1,nrad
Index: /trunk/LMDZ.TITAN/libf/phytitan/phytrac.F
===================================================================
--- /trunk/LMDZ.TITAN/libf/phytitan/phytrac.F	(revision 175)
+++ /trunk/LMDZ.TITAN/libf/phytitan/phytrac.F	(revision 176)
@@ -141,8 +141,14 @@
            endif
 c        Nombre de traceurs incompatibles avec la microphysique. 
-           if (nmicro.ne.ntype*nrad) then
+           if ((nmicro.ne.ntype*nrad).and.(clouds.eq.1)) then
              print*,"aLeRtE cRiTiQuE !!!"
              print*,"Nb trac imcompatible avec la microphysique."
              print*,nmicro,ntype*nrad
+             stop
+           endif
+           if ((nmicro.ne.nrad).and.(clouds.eq.0)) then
+             print*,"aLeRtE cRiTiQuE !!!"
+             print*,"Nb trac imcompatible avec la microphysique."
+             print*,nmicro,nrad
              stop
            endif