--- trunk/libf/phylmd/coefkz.f90	2011/02/22 15:09:57	41
+++ trunk/libf/phylmd/coefkz.f90	2011/03/24 11:52:41	42
@@ -183,11 +183,8 @@
      z1(i) = zgeop(i, 1)
   ENDDO
 
-  CALL clcdrag(klon, knon, nsrf, zxli,  &
-       u1, v1, t1, q1, z1, &
-       ts, qsurf, rugos, &
+  CALL clcdrag(klon, knon, nsrf, zxli, u1, v1, t1, q1, z1, ts, qsurf, rugos, &
        pcfm1, pcfh1) 
-  !IM  $             ts, qsurf, rugos,
 
   DO i = 1, knon
      pcfm(i, 1)=pcfm1(i)