/[lmdze]/trunk/libf/dyn3d/logic.f90
ViewVC logotype

Annotation of /trunk/libf/dyn3d/logic.f90

Parent Directory Parent Directory | Revision Log Revision Log


Revision 12 - (hide annotations)
Mon Jul 21 16:05:07 2008 UTC (15 years, 11 months ago) by guez
File size: 1005 byte(s)
-- Minor modification of input/output:

Created procedure "read_logic". Variables of module "logic" are read
by "read_logic" instead of "conf_gcm". Variable "offline" of module
"conf_gcm" is read from namelist instead of "*.def".

Deleted arguments "dtime", "co2_ppm_etat0", "solaire_etat0",
"tabcntr0" and local variables "radpas", "tab_cntrl" of
"phyetat0". "phyetat0" does not read "controle" in "startphy.nc" any
longer. "phyetat0" now reads global attribute "itau_phy" from
"startphy.nc". "phyredem" does not create variable "controle" in
"startphy.nc" any longer. "phyredem" now writes global attribute
"itau_phy" of "startphy.nc". Deleted argument "tabcntr0" of
"printflag". Removed diagnostic messages written by "printflag" for
comparison of the variable "controle" of "startphy.nc" and the
variables read from "*.def" or namelist input.

-- Removing unwanted functionality:

Removed variable "lunout" from module "iniprint", replaced everywhere
by standard output.

Removed case "ocean == 'couple'" in "clmain", "interfsurf_hq" and
"physiq". Removed procedure "interfoce_cpl".

-- Should not change anything at run time:

Automated creation of graphs in documentation. More documentation on
input files.

Converted Fortran files to free format: "phyredem.f90", "printflag.f90".

Split module "clesphy" into "clesphys" and "clesphys2".

Removed variables "conser", "leapf", "forward", "apphys", "apdiss" and
"statcl" from module "logic". Added arguments "conser" to "advect",
"leapf" to "integrd". Added local variables "forward", "leapf",
"apphys", "conser", "apdiss" in "leapfrog".

Added intent attributes.

Deleted arguments "dtime" of "phyredem", "pdtime" of "flxdtdq", "sh"
of "phytrac", "dt" of "yamada".

Deleted local variables "dtime", "co2_ppm_etat0", "solaire_etat0",
"length", "tabcntr0" in "physiq". Replaced all references to "dtime"
by references to "pdtphys".

1 guez 3 module logic
2    
3     implicit none
4    
5     LOGICAL:: purmats= .FALSE.
6     ! Help = Choix du schema d'integration temporel.
7     ! y = pure Matsuno sinon c'est du Matsuno-leapfrog
8    
9 guez 12 logical:: fxyhypb = .TRUE.
10     ! (fonction f(y) à dérivée tangente hyperbolique, sinon à dérivée
11     ! sinusoïdale)
12 guez 3
13 guez 12 logical:: ysinus = .TRUE.
14     ! (Fonction f(y) avec y = Sin(latit.) si = .true. sinon y = latit.)
15 guez 3
16     logical:: ok_guide= .FALSE.
17     ! Help = Guidage
18    
19     INTEGER:: iflag_phys = 1
20     ! contrôle l'appel à la physique :
21     ! 0 : pas de physique
22     ! 1 : physique normale (appel à phylmd, phymars...) (default)
23     ! 2 : rappel Newtonien pour la température + friction au sol
24    
25 guez 12 contains
26    
27     subroutine read_logic
28    
29     namelist /logic_nml/ purmats, fxyhypb, ysinus, ok_guide, iflag_phys
30    
31     !------------------------------------
32    
33     print *, "Call sequence information: read_logic"
34    
35     print *, "Enter namelist 'logic_nml'."
36     read(unit=*, nml=logic_nml)
37     write(unit=*, nml=logic_nml)
38    
39     end subroutine read_logic
40    
41 guez 3 end module logic

  ViewVC Help
Powered by ViewVC 1.1.21