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. ! in s
  ! temps de dissipation des plus petites longueurs d'ondes pour u,v (gradiv)

  REAL:: tetagrot= 7200. ! in s
  ! temps de dissipation des plus petites longueurs d'ondes pour u,v
  ! (nxgradrot)

  REAL:: tetatemp= 7200. ! in s
  ! temps de dissipation des plus petites longueurs d'ondes pour h (divgrad) 

  REAL:: coefdis= 0.

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	guez	27	! Help = nombre d'iterations de l'operateur de dissipation
18	guez	3	! nxgradrot
19
20			INTEGER:: niterh= 2
21			! Help = nombre d'iterations de l'operateur de dissipation
22			! divgrad
23
24	guez	27	REAL:: tetagdiv= 7200. ! in s
25			! temps de dissipation des plus petites longueurs d'ondes pour u,v (gradiv)
26	guez	3
27	guez	27	REAL:: tetagrot= 7200. ! in s
28			! temps de dissipation des plus petites longueurs d'ondes pour u,v
29			! (nxgradrot)
30	guez	3
31	guez	27	REAL:: tetatemp= 7200. ! in s
32			! temps de dissipation des plus petites longueurs d'ondes pour h (divgrad)
33	guez	3
34			REAL:: coefdis= 0.
35
36			contains
37
38			subroutine read_comdissnew
39
40			namelist /comdissnew_nml/lstardis, nitergdiv, nitergrot, niterh, &
41			tetagdiv, tetagrot, tetatemp, coefdis
42
43			!-------------------------------------------------
44
45			print *, "Enter namelist 'comdissnew_nml'."
46			read(unit=*, nml=comdissnew_nml)
47			write(unit=*, nml=comdissnew_nml)
48
49			end subroutine read_comdissnew
50
51			end module comdissnew