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

Contents of /trunk/dyn3d/ce0l.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 313 - (show annotations)
Mon Dec 10 15:54:30 2018 UTC (5 years, 5 months ago) by guez
File size: 974 byte(s) 
Remove module temps. Move variable itau_dyn from module temps to
module dynetat0_m, where it is defined.

Split module dynetat0_m into dynetat0_m and dynetat0_chosen_m. The
motivation is to create smaller modules. Procedures principal_cshift
and invert_zoomx had to stay in dynetat0_m because of circular
dependency. Now we will be able to move them away. Module variables
which are chosen by the user, not computed, in program ce0l go to
dynetat0_chosen_m: day_ref, annee_ref, clon, clat, grossismx,
grossismy, dzoomx, dzoomy, taux, tauy.

Move variable "pa" from module disvert_m to module
dynetat0_chosen_m. Define "pa" in dynetat0_chosen rather than etat0.

Define day_ref and annee_ref in procedure read_serre rather than
etat0.
1 PROGRAM ce0l
2
3 ! This program sets the initial and boundary values.
4
5 use comdissnew, only: read_comdissnew
6 use conf_gcm_m, only: conf_gcm
7 use dimensions, only: iim, jjm
8 use dimphy, only: klon
9 use dynetat0_chosen_m, only: read_serre
10 use etat0_m, only: etat0
11 use grilles_gcm_netcdf_sub_m, only: grilles_gcm_netcdf_sub
12 use indicesol, only: nbsrf
13 use limit_mod, only: limit
14 use unit_nml_m, only: unit_nml, set_unit_nml
15
16 implicit none
17
18 REAL phis(iim + 1, jjm + 1) ! surface geopotential, in m2 s-2
19
20 REAL pctsrf(klon, nbsrf)
21 ! ("pctsrf(i, :)" is the composition of the surface at horizontal
22 ! position "i")
23
24 !-------------------------------------
25
26 call set_unit_nml
27 open(unit_nml, file="used_namelists.txt", status="replace", action="write")
28 CALL conf_gcm
29 call read_comdissnew
30 call read_serre
31 CALL etat0(phis, pctsrf)
32 CALL limit(pctsrf)
33 CALL grilles_gcm_netcdf_sub(phis)
34 close(unit_nml)
35 print *, "ce0l: done"
36
37 END PROGRAM ce0l
  ViewVC Help
Powered by ViewVC 1.1.21