/[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

trunk/libf/dyn3d/comdissnew.f90 revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/libf/dyn3d/Dissipation/comdissnew.f90 revision 64 by guez, Wed Aug 29 14:47:17 2012 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.    INTEGER:: nitergdiv = 1
6    ! Help = choix de l'operateur de dissipation    ! nombre d'itérations de l'opérateur de dissipation gradiv
7    ! 'y' si on veut star et 'n' si on veut non-star  
8    ! Moi y en a pas comprendre !    INTEGER:: nitergrot = 2
9      ! nombre d'itérations de l'opérateur de dissipation nxgradrot
10    INTEGER:: nitergdiv= 1  
11    ! Help = nombre d'iterations de l'operateur de dissipation    INTEGER:: niterh = 2
12    ! gradiv    ! nombre d'itérations de l'opérateur de dissipation divgrad
13    
14    INTEGER:: nitergrot= 2    REAL:: tetagdiv = 7200. ! in s
15    ! Help = nombre d'iterations de l'operateur de dissipation      ! temps de dissipation des plus petites longueurs d'ondes pour u, v (grad div)
16    ! nxgradrot  
17      REAL:: tetagrot = 7200. ! in s
18    INTEGER:: niterh= 2    ! temps de dissipation des plus petites longueurs d'ondes pour u, v
19    ! Help = nombre d'iterations de l'operateur de dissipation    ! (nxgradrot)
20    ! divgrad  
21      REAL:: tetatemp = 7200. ! in s
22    REAL::     tetagdiv= 7200.    ! temps de dissipation des plus petites longueurs d'ondes pour h (divgrad)
   ! 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)    
23    
24    REAL:: coefdis= 0.    REAL:: coefdis = 0.
   ! Help = coefficient pour gamdissip    
25    
26  contains  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    
     print *, "Call sequence information: read_comdissnew"  
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.3  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.21