/[lmdze]/trunk/Sources/dyn3d/Dissipation/comdissnew.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/Dissipation/comdissnew.f

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

revision 55 by guez, Mon Dec 12 13:25:01 2011 UTC revision 64 by guez, Wed Aug 29 14:47:17 2012 UTC
# Line 2  module comdissnew Line 2  module comdissnew
2    
3    implicit none    implicit none
4    
   LOGICAL:: lstardis = .TRUE. ! choix de l'opérateur de dissipation star  
   
5    INTEGER:: nitergdiv = 1    INTEGER:: nitergdiv = 1
6    ! nombre d'itérations de l'opérateur de dissipation gradiv    ! nombre d'itérations de l'opérateur de dissipation gradiv
7    
# Line 14  module comdissnew Line 12  module comdissnew
12    ! nombre d'itérations de l'opérateur de dissipation divgrad    ! nombre d'itérations de l'opérateur de dissipation divgrad
13    
14    REAL:: tetagdiv = 7200. ! in s    REAL:: tetagdiv = 7200. ! in s
15    ! 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 (grad div)
16    
17    REAL:: tetagrot = 7200. ! in s    REAL:: tetagrot = 7200. ! in s
18    ! temps de dissipation des plus petites longueurs d'ondes pour u, v    ! temps de dissipation des plus petites longueurs d'ondes pour u, v
# Line 29  contains Line 27  contains
27    
28    subroutine read_comdissnew    subroutine read_comdissnew
29    
30      namelist /comdissnew_nml/lstardis, nitergdiv, nitergrot, niterh, &      use unit_nml_m, only: unit_nml
31           tetagdiv, tetagrot, tetatemp, coefdis      
32        namelist /comdissnew_nml/nitergdiv, nitergrot, niterh, tetagdiv, &
33             tetagrot, tetatemp, coefdis
34    
35      !-------------------------------------------------      !-------------------------------------------------
36    
37      print *, "Enter namelist 'comdissnew_nml'."      print *, "Enter namelist 'comdissnew_nml'."
38      read(unit=*, nml=comdissnew_nml)      read(unit=*, nml=comdissnew_nml)
39      write(unit=*, nml=comdissnew_nml)      write(unit_nml, nml=comdissnew_nml)
40    
41    end subroutine read_comdissnew    end subroutine read_comdissnew
42    
Legend:
Removed from v.55  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.21