dyn3d/Dissipation/comdissnew.f90

module comdissnew

  ! The variables declared here are read from the file "run.def"

  implicit none

  LOGICAL:: lstardis= .TRUE.
  ! Help = choix de l'operateur de dissipation
  ! 'y' si on veut star et 'n' si on veut non-star
  ! Moi y en a pas comprendre ! 

  INTEGER:: nitergdiv= 1
  ! Help = nombre d'iterations de l'operateur de dissipation 
  ! gradiv

  INTEGER:: nitergrot= 2
  ! Help = nombre d'iterations de l'operateur de dissipation  
  ! nxgradrot

  INTEGER:: niterh= 2
  ! Help = nombre d'iterations de l'operateur de dissipation
  ! divgrad

  REAL::     tetagdiv= 7200.
  ! 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)   

  REAL:: coefdis= 0.
  ! Help = coefficient pour gamdissip  

contains

  subroutine read_comdissnew

    namelist /comdissnew_nml/lstardis, nitergdiv, nitergrot, niterh, &
         tetagdiv, tetagrot, tetatemp, coefdis

    !-------------------------------------------------

    print *, "Enter namelist 'comdissnew_nml'."
    read(unit=*, nml=comdissnew_nml)
    write(unit=*, nml=comdissnew_nml)

  end subroutine read_comdissnew

end module comdissnew
1	guez	3	module comdissnew
2
3			! The variables declared here are read from the file "run.def"
4
5			implicit none
6
7			LOGICAL:: lstardis= .TRUE.
8			! Help = choix de l'operateur de dissipation
9			! 'y' si on veut star et 'n' si on veut non-star
10			! Moi y en a pas comprendre !
11
12			INTEGER:: nitergdiv= 1
13			! Help = nombre d'iterations de l'operateur de dissipation
14			! gradiv
15
16			INTEGER:: nitergrot= 2
17			! Help = nombre d'iterations de l'operateur de dissipation
18			! nxgradrot
19
20			INTEGER:: niterh= 2
21			! Help = nombre d'iterations de l'operateur de dissipation
22			! divgrad
23
24			REAL:: tetagdiv= 7200.
25			! Help = temps de dissipation des plus petites longeur
26			! d'ondes pour u,v (gradiv)
27
28			REAL:: tetagrot= 7200.
29			! Help = temps de dissipation des plus petites longeur
30			! d'ondes pour u,v (nxgradrot)
31
32			REAL:: tetatemp= 7200.
33			! Help = temps de dissipation des plus petites longeur
34			! d'ondes pour h (divgrad)
35
36			REAL:: coefdis= 0.
37			! Help = coefficient pour gamdissip
38
39			contains
40
41			subroutine read_comdissnew
42
43			namelist /comdissnew_nml/lstardis, nitergdiv, nitergrot, niterh, &
44			tetagdiv, tetagrot, tetatemp, coefdis
45
46			!-------------------------------------------------
47
48			print *, "Enter namelist 'comdissnew_nml'."
49			read(unit=*, nml=comdissnew_nml)
50			write(unit=*, nml=comdissnew_nml)
51
52			end subroutine read_comdissnew
53
54			end module comdissnew