Index: LMDZ6/trunk/libf/phylmd/cv3p1_closure.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cv3p1_closure.F90	(revision 3570)
+++ LMDZ6/trunk/libf/phylmd/cv3p1_closure.F90	(revision 3571)
@@ -537,9 +537,9 @@
     ELSE
       ! Calculate wbeff
-      IF (flag_wb==0) THEN
+      IF (NINT(flag_wb)==0) THEN
         wbeff(il) = wbmax
-      ELSE IF (flag_wb==1) THEN
+      ELSE IF (NINT(flag_wb)==1) THEN
         wbeff(il) = wbmax/(1.+500./(ph(il,1)-plfc(il)))
-      ELSE IF (flag_wb==2) THEN
+      ELSE IF (NINT(flag_wb)==2) THEN
         wbeff(il) = wbmax*(0.01*(ph(il,1)-plfc(il)))**2
       ELSE ! Option provisoire ou le iflag_wb/10 est considere comme une vitesse
Index: LMDZ6/trunk/libf/phylmd/cv3p2_closure.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cv3p2_closure.F90	(revision 3570)
+++ LMDZ6/trunk/libf/phylmd/cv3p2_closure.F90	(revision 3571)
@@ -609,9 +609,9 @@
     ELSE
       ! Calculate wbeff
-      IF (flag_wb==0) THEN
+      IF (NINT(flag_wb)==0) THEN
         wbeff(il) = wbmax
-      ELSE IF (flag_wb==1) THEN
+      ELSE IF (NINT(flag_wb)==1) THEN
         wbeff(il) = wbmax/(1.+500./(ph(il,1)-plfc(il)))
-      ELSE IF (flag_wb==2) THEN
+      ELSE IF (NINT(flag_wb)==2) THEN
         wbeff(il) = wbmax*(0.01*(ph(il,1)-plfc(il)))**2
       END IF
Index: LMDZ6/trunk/libf/phylmd/cv3param.h
===================================================================
--- LMDZ6/trunk/libf/phylmd/cv3param.h	(revision 3570)
+++ LMDZ6/trunk/libf/phylmd/cv3param.h	(revision 3571)
@@ -7,5 +7,6 @@
 !------------------------------------------------------------
 
-      integer flag_epKEorig, flag_wb
+      integer flag_epKEorig
+      real flag_wb
       integer cv_flag_feed
       integer noff, minorig, nl, nlp, nlm