--- trunk/libf/dyn3d/interpre.f	2010/04/01 14:59:19	31
+++ trunk/libf/dyn3d/interpre.f	2010/04/06 17:52:58	32
@@ -91,8 +91,6 @@
            do j=1,jjp1
               do i=1,iip1              
                fluxw(i,j,l)=w(i,j,l)*g*0.01/aire_2d(i,j)
-C               print*,i,j,l,'fluxw(i,j,l)=',fluxw(i,j,l),
-C     c                      'w(i,j,l)=',w(i,j,l)
               enddo
            enddo
       enddo