Index: trunk/LMDZ.MARS/libf/phymars/vdif_cd.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/vdif_cd.F	(revision 328)
+++ trunk/LMDZ.MARS/libf/phymars/vdif_cd.F	(revision 329)
@@ -90,5 +90,5 @@
 c Original formulation :
 
-      if(callrichsl .eq. .false.) then
+      if(.not.callrichsl) then
 
       DO ig=1,ngrid