/[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 3 by guez, Wed Feb 27 13:16:39 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    
# Line 45  contains Line 42  contains
42    
43      !-------------------------------------------------      !-------------------------------------------------
44    
     print *, "Call sequence information: read_comdissnew"  
45      print *, "Enter namelist 'comdissnew_nml'."      print *, "Enter namelist 'comdissnew_nml'."
46      read(unit=*, nml=comdissnew_nml)      read(unit=*, nml=comdissnew_nml)
47      write(unit=*, nml=comdissnew_nml)      write(unit=*, nml=comdissnew_nml)
Legend:
Removed from v.3  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.21