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	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. ! in s
25	! temps de dissipation des plus petites longueurs d'ondes pour u,v (gradiv)
26
27	REAL:: tetagrot= 7200. ! in s
28	! temps de dissipation des plus petites longueurs d'ondes pour u,v
29	! (nxgradrot)
30
31	REAL:: tetatemp= 7200. ! in s
32	! temps de dissipation des plus petites longueurs d'ondes pour h (divgrad)
33
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