--- trunk/libf/dyn3d/comdissnew.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/comdissnew.f90	2008/07/25 19:59:34	13
@@ -45,7 +45,6 @@
 
     !-------------------------------------------------
 
-    print *, "Call sequence information: read_comdissnew"
     print *, "Enter namelist 'comdissnew_nml'."
     read(unit=*, nml=comdissnew_nml)
     write(unit=*, nml=comdissnew_nml)