Index: trunk/LMDZ.MARS/libf/phymars/vlz_fi.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/vlz_fi.F	(revision 2119)
+++ trunk/LMDZ.MARS/libf/phymars/vlz_fi.F	(revision 2120)
@@ -187,5 +187,5 @@
 
 c            it cannot entrain more than available mass !
-            if ( (wq(ij,l+1)-wq(ij,l)) .lt. -(masse(ij,l)*q(ij,l)) ) then
+            if ((wq(ij,l+1)-wq(ij,l)) .lt. -(masse(ij,l)*q(ij,l))) then
               wq(ij,l+1) = wq(ij,l)-masse(ij,l)*q(ij,l)
             end if