Index: LMDZ6/trunk/libf/phylmd/cosp/dsd.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cosp/dsd.F90	(revision 4130)
+++ LMDZ6/trunk/libf/phylmd/cosp/dsd.F90	(revision 4131)
@@ -1,3 +1,6 @@
-  subroutine dsd(Q,Re,Np,D,N,nsizes,dtype,rho_a,tk, &
+!
+! $Id$
+!
+  subroutine dsd(Q,Re_,Np,D,N,nsizes,dtype,rho_a,tk, &
              dmin,dmax,apm,bpm,rho_c,p1,p2,p3)
   use array_lib