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

revision 57 by guez, Mon Jan 30 12:54:02 2012 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 31  contains Line 29  contains
29    
30      use unit_nml_m, only: unit_nml      use unit_nml_m, only: unit_nml
31            
32      namelist /comdissnew_nml/lstardis, nitergdiv, nitergrot, niterh, &      namelist /comdissnew_nml/nitergdiv, nitergrot, niterh, tetagdiv, &
33           tetagdiv, tetagrot, tetatemp, coefdis           tetagrot, tetatemp, coefdis
34    
35      !-------------------------------------------------      !-------------------------------------------------
36    
Legend:
Removed from v.57  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.21