--- trunk/libf/dyn3d/comdissnew.f90	2008/07/25 19:59:34	13
+++ 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