--- trunk/libf/phylmd/yamada4.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/yamada4.f	2008/08/05 13:31:32	17
@@ -38,7 +38,9 @@
 c    iflag_pbl=9 : un test ?
 
 c.......................................................................
-      REAL dt,g,rconst
+      REAL, intent(in):: dt
+      real, intent(in):: g
+      real rconst
       real plev(klon,klev+1),temp(klon,klev)
       real ustar(klon)
       real kmin,qmin,pblhmin(klon),coriol(klon)
@@ -391,11 +393,6 @@
                                                           enddo
       enddo
 
-c     if (iflag_pbl.ge.7..and.0.eq.1) then
-c        q2(:,1)=q2(:,2)
-c        call vdif_q2(dt,g,rconst,plev,temp,kq,q2)
-c     endif
-
 c   Traitement des cas noctrunes avec l'introduction d'une longueur
 c   minilale.