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