/[lmdze]/trunk/libf/dyn3d/Dissipation/comdissnew.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/Dissipation/comdissnew.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC revision 54 by guez, Tue Dec 6 15:07:04 2011 UTC
# Line 1  Line 1 
1  module comdissnew  module comdissnew
2    
   ! The variables declared here are read from the file "run.def"  
   
3    implicit none    implicit none
4    
5    LOGICAL:: lstardis= .TRUE.    LOGICAL:: lstardis = .TRUE. ! choix de l'opérateur de dissipation star
6    ! Help = choix de l'operateur de dissipation  
7    ! 'y' si on veut star et 'n' si on veut non-star    INTEGER:: nitergdiv = 1
8    ! Moi y en a pas comprendre !    ! nombre d'itérations de l'opérateur de dissipation gradiv
9    
10    INTEGER:: nitergdiv= 1    INTEGER:: nitergrot = 2
11    ! Help = nombre d'iterations de l'operateur de dissipation    ! nombre d'itérations de l'opérateur de dissipation nxgradrot
12    ! gradiv  
13      INTEGER:: niterh = 2
14    INTEGER:: nitergrot= 2    ! nombre d'itérations de l'opérateur de dissipation divgrad
   ! Help = nombre d'iterations de l'operateur de dissipation  
   ! nxgradrot  
   
   INTEGER:: niterh= 2  
   ! Help = nombre d'iterations de l'operateur de dissipation  
   ! divgrad  
15    
16    REAL:: tetagdiv= 7200. ! in s    REAL:: tetagdiv = 7200. ! in s
17    ! 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 (gradiv)
18    
19    REAL:: tetagrot= 7200. ! in s    REAL:: tetagrot = 7200. ! in s
20    ! temps de dissipation des plus petites longueurs d'ondes pour u,v    ! temps de dissipation des plus petites longueurs d'ondes pour u, v
21    ! (nxgradrot)    ! (nxgradrot)
22    
23    REAL:: tetatemp= 7200. ! in s    REAL:: tetatemp = 7200. ! in s
24    ! temps de dissipation des plus petites longueurs d'ondes pour h (divgrad)    ! temps de dissipation des plus petites longueurs d'ondes pour h (divgrad)
25    
26    REAL:: coefdis= 0.    REAL:: coefdis = 0.
27    
28  contains  contains
29    
Legend:
Removed from v.27  
changed lines
  Added in v.54
  ViewVC Help
Powered by ViewVC 1.1.21