--- trunk/libf/dyn3d/comdissnew.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/comdissnew.f90	2010/03/25 14:29:07	27
@@ -14,27 +14,24 @@
   ! gradiv
 
   INTEGER:: nitergrot= 2
-  ! Help = nombre d'iterations de l'operateur de dissipation  
+  ! Help = nombre d'iterations de l'operateur de dissipation 
   ! nxgradrot
 
   INTEGER:: niterh= 2
   ! Help = nombre d'iterations de l'operateur de dissipation
   ! divgrad
 
-  REAL::     tetagdiv= 7200.
-  ! Help = temps de dissipation des plus petites longeur 
-  ! d'ondes pour u,v (gradiv)
-
-  REAL:: tetagrot= 7200.
-  ! Help = temps de dissipation des plus petites longeur 
-  ! d'ondes pour u,v (nxgradrot)
-
-  REAL::  tetatemp= 7200.
-  ! Help =  temps de dissipation des plus petites longeur 
-  ! d'ondes pour h (divgrad)   
+  REAL:: tetagdiv= 7200. ! in s
+  ! temps de dissipation des plus petites longueurs d'ondes pour u,v (gradiv)
+
+  REAL:: tetagrot= 7200. ! in s
+  ! temps de dissipation des plus petites longueurs d'ondes pour u,v
+  ! (nxgradrot)
+
+  REAL:: tetatemp= 7200. ! in s
+  ! temps de dissipation des plus petites longueurs d'ondes pour h (divgrad) 
 
   REAL:: coefdis= 0.
-  ! Help = coefficient pour gamdissip  
 
 contains
 
@@ -45,7 +42,6 @@
 
     !-------------------------------------------------
 
-    print *, "Call sequence information: read_comdissnew"
     print *, "Enter namelist 'comdissnew_nml'."
     read(unit=*, nml=comdissnew_nml)
     write(unit=*, nml=comdissnew_nml)