/[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 54 by guez, Tue Dec 6 15:07:04 2011 UTC trunk/libf/dyn3d/Dissipation/comdissnew.f90 revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC
# Line 14  module comdissnew Line 14  module comdissnew
14    ! nombre d'itérations de l'opérateur de dissipation divgrad    ! nombre d'itérations de l'opérateur 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 (grad div)
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
# Line 29  contains Line 29  contains
29    
30    subroutine read_comdissnew    subroutine read_comdissnew
31    
32        use unit_nml_m, only: unit_nml
33        
34      namelist /comdissnew_nml/lstardis, nitergdiv, nitergrot, niterh, &      namelist /comdissnew_nml/lstardis, nitergdiv, nitergrot, niterh, &
35           tetagdiv, tetagrot, tetatemp, coefdis           tetagdiv, tetagrot, tetatemp, coefdis
36    
# Line 36  contains Line 38  contains
38    
39      print *, "Enter namelist 'comdissnew_nml'."      print *, "Enter namelist 'comdissnew_nml'."
40      read(unit=*, nml=comdissnew_nml)      read(unit=*, nml=comdissnew_nml)
41      write(unit=*, nml=comdissnew_nml)      write(unit_nml, nml=comdissnew_nml)
42    
43    end subroutine read_comdissnew    end subroutine read_comdissnew
44    
Legend:
Removed from v.54  
changed lines
  Added in v.57
  ViewVC Help
Powered by ViewVC 1.1.21