--- trunk/libf/dyn3d/iniadvtrac.f90	2009/12/14 15:25:16	23
+++ trunk/libf/dyn3d/iniadvtrac.f90	2010/06/02 11:01:12	34
@@ -91,7 +91,7 @@
        endif
        tnom(iq)=str1
        tname(iq)=tnom(iq) 
-       str2=tnom(iq) 
+       str2=tnom(iq)
        ttext(iq) = trim(str2) // descrq(iadv(iq))
     end do