--- trunk/libf/dyn3d/Dissipation/comdissnew.f90	2012/01/10 19:02:02	56
+++ trunk/Sources/dyn3d/Dissipation/comdissnew.f	2015/04/29 15:47:56	134
@@ -2,8 +2,6 @@
 
   implicit none
 
-  LOGICAL:: lstardis = .TRUE. ! choix de l'opérateur de dissipation star
-
   INTEGER:: nitergdiv = 1
   ! nombre d'itérations de l'opérateur de dissipation gradiv
 
@@ -29,14 +27,16 @@
 
   subroutine read_comdissnew
 
-    namelist /comdissnew_nml/lstardis, nitergdiv, nitergrot, niterh, &
-         tetagdiv, tetagrot, tetatemp, coefdis
+    use unit_nml_m, only: unit_nml
+    
+    namelist /comdissnew_nml/nitergdiv, nitergrot, niterh, tetagdiv, &
+         tetagrot, tetatemp, coefdis
 
     !-------------------------------------------------
 
     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