/[lmdze]/trunk/Sources/dyn3d/ce0l.f
ViewVC logotype

Annotation of /trunk/Sources/dyn3d/ce0l.f

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
Original Path: trunk/libf/dyn3d/etat0_lim.f90
File size: 471 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 PROGRAM etat0_lim
2    
3     ! This program sets the initial and boundary values.
4    
5     use conf_gcm_m, only: conf_gcm
6     use etat0_mod, only: etat0
7 guez 57 use jumble, only: new_unit
8 guez 3 use limit_mod, only: limit
9 guez 57 use unit_nml_m, only: unit_nml
10 guez 3
11     implicit none
12    
13     !-------------------------------------
14    
15 guez 57 call new_unit(unit_nml)
16     open(unit_nml, file="used_namelists", status="replace", action="write")
17 guez 3 CALL conf_gcm
18     CALL etat0
19     CALL limit
20 guez 57 close(unit_nml)
21 guez 3
22     END PROGRAM etat0_lim

  ViewVC Help
Powered by ViewVC 1.1.21