/[lmdze]/trunk/libf/dyn3d/Dissipation/comdissnew.f90
ViewVC logotype

Annotation of /trunk/libf/dyn3d/Dissipation/comdissnew.f90

Parent Directory Parent Directory | Revision Log Revision Log

Revision 57 - (hide annotations)
Mon Jan 30 12:54:02 2012 UTC (12 years, 3 months ago) by guez
File size: 1189 byte(s) 
Write used namelists to file "" instead of standard output.

Avoid aliasing in "inidissip" in calls to "divgrad2", "divgrad",
"gradiv2", "gradiv", "nxgraro2" and "nxgrarot". Add a degenerate
dimension to arrays so they have rank 3, like the dummy arguments in
"divgrad2", "divgrad", "gradiv2", "gradiv", "nxgraro2" and "nxgrarot".

Extract the initialization part from "bilan_dyn" and make a separate
procedure, "init_dynzon", from it.

Move variables from modules "iniprint" and "logic" to module
"conf_gcm_m".

Promote internal procedures of "fxy" to private procedures of module
"fxy_m".

Extracted documentation from "inigeom". Removed useless "save"
attributes. Removed useless intermediate variables. Extracted
processing of poles from loop on latitudes. Write coordinates to file
"longitude_latitude.txt" instead of standard output.

Do not use ozone tracer for radiative transfer.
1 guez 3 module comdissnew
2    
3     implicit none
4    
5 guez 54 LOGICAL:: lstardis = .TRUE. ! choix de l'opérateur de dissipation star
6 guez 3
7 guez 54 INTEGER:: nitergdiv = 1
8     ! nombre d'itérations de l'opérateur de dissipation gradiv
9 guez 3
10 guez 54 INTEGER:: nitergrot = 2
11     ! nombre d'itérations de l'opérateur de dissipation nxgradrot
12 guez 3
13 guez 54 INTEGER:: niterh = 2
14     ! nombre d'itérations de l'opérateur de dissipation divgrad
15 guez 3
16 guez 54 REAL:: tetagdiv = 7200. ! in s
17 guez 56 ! temps de dissipation des plus petites longueurs d'ondes pour u, v (grad div)
18 guez 3
19 guez 54 REAL:: tetagrot = 7200. ! in s
20     ! temps de dissipation des plus petites longueurs d'ondes pour u, v
21 guez 27 ! (nxgradrot)
22 guez 3
23 guez 54 REAL:: tetatemp = 7200. ! in s
24 guez 27 ! temps de dissipation des plus petites longueurs d'ondes pour h (divgrad)
25 guez 3
26 guez 54 REAL:: coefdis = 0.
27 guez 3
28     contains
29    
30     subroutine read_comdissnew
31    
32 guez 57 use unit_nml_m, only: unit_nml
33    
34 guez 3 namelist /comdissnew_nml/lstardis, nitergdiv, nitergrot, niterh, &
35     tetagdiv, tetagrot, tetatemp, coefdis
36    
37     !-------------------------------------------------
38    
39     print *, "Enter namelist 'comdissnew_nml'."
40     read(unit=*, nml=comdissnew_nml)
41 guez 57 write(unit_nml, nml=comdissnew_nml)
42 guez 3
43     end subroutine read_comdissnew
44    
45     end module comdissnew
  ViewVC Help
Powered by ViewVC 1.1.21