--- trunk/libf/dyn3d/comdissnew.f90	2011/12/06 15:07:04	54
+++ trunk/libf/dyn3d/Dissipation/comdissnew.f90	2012/01/30 12:54:02	57
@@ -14,7 +14,7 @@
   ! nombre d'itérations de l'opérateur de dissipation divgrad
 
   REAL:: tetagdiv = 7200. ! in s
-  ! temps de dissipation des plus petites longueurs d'ondes pour u, v (gradiv)
+  ! temps de dissipation des plus petites longueurs d'ondes pour u, v (grad div)
 
   REAL:: tetagrot = 7200. ! in s
   ! temps de dissipation des plus petites longueurs d'ondes pour u, v
@@ -29,6 +29,8 @@
 
   subroutine read_comdissnew
 
+    use unit_nml_m, only: unit_nml
+    
     namelist /comdissnew_nml/lstardis, nitergdiv, nitergrot, niterh, &
          tetagdiv, tetagrot, tetatemp, coefdis
 
@@ -36,7 +38,7 @@
 
     print *, "Enter namelist 'comdissnew_nml'."
     read(unit=*, nml=comdissnew_nml)
-    write(unit=*, nml=comdissnew_nml)
+    write(unit_nml, nml=comdissnew_nml)
 
   end subroutine read_comdissnew