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

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

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

revision 26 by guez, Fri Jul 25 19:59:34 2008 UTC revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC
# Line 14  module comdissnew Line 14  module comdissnew
14    ! gradiv    ! gradiv
15    
16    INTEGER:: nitergrot= 2    INTEGER:: nitergrot= 2
17    ! Help = nombre d'iterations de l'operateur de dissipation      ! Help = nombre d'iterations de l'operateur de dissipation
18    ! nxgradrot    ! nxgradrot
19    
20    INTEGER:: niterh= 2    INTEGER:: niterh= 2
21    ! Help = nombre d'iterations de l'operateur de dissipation    ! Help = nombre d'iterations de l'operateur de dissipation
22    ! divgrad    ! divgrad
23    
24    REAL::     tetagdiv= 7200.    REAL:: tetagdiv= 7200. ! in s
25    ! Help = temps de dissipation des plus petites longeur    ! temps de dissipation des plus petites longueurs d'ondes pour u,v (gradiv)
26    ! d'ondes pour u,v (gradiv)  
27      REAL:: tetagrot= 7200. ! in s
28    REAL:: tetagrot= 7200.    ! temps de dissipation des plus petites longueurs d'ondes pour u,v
29    ! Help = temps de dissipation des plus petites longeur    ! (nxgradrot)
30    ! d'ondes pour u,v (nxgradrot)  
31      REAL:: tetatemp= 7200. ! in s
32    REAL::  tetatemp= 7200.    ! temps de dissipation des plus petites longueurs d'ondes pour h (divgrad)
   ! Help =  temps de dissipation des plus petites longeur  
   ! d'ondes pour h (divgrad)    
33    
34    REAL:: coefdis= 0.    REAL:: coefdis= 0.
   ! Help = coefficient pour gamdissip    
35    
36  contains  contains
37    
Legend:
Removed from v.26  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.21