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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 212 - (show annotations)
Thu Jan 12 12:31:31 2017 UTC (7 years, 4 months ago) by guez
File size: 806 byte(s)
Moved variables from module com_io_dyn to module inithist_m, where
they are defined.

Split grid_atob.f into grille_m.f and dist_sphe.f. Extracted ASCCI art
to documentation. In grille_m, use automatic arrays instead of maximum
size. In grille_m, instead of printing data for every problematic
point, print a single diagnostic message.

Removed variables top_height, overlap, lev_histhf, lev_histday,
lev_histmth, type_run, ok_isccp, ok_regdyn, lonmin_ins, lonmax_ins,
latmin_ins, latmax_ins of module clesphys, not used.

Removed variable itap of module histwrite_phy_m, not used. There is a
variable itap in module time_phylmdz.

Added output of tro3.

In physiq, no need to compute wo at every time-step, since we only use
it in radlwsw.

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 dimens_m, only: iim, jjm
8 use etat0_mod, only: etat0
9 use grilles_gcm_netcdf_sub_m, only: grilles_gcm_netcdf_sub
10 use jumble, only: new_unit
11 use limit_mod, only: limit
12 use read_serre_m, only: read_serre
13 use unit_nml_m, only: unit_nml
14
15 implicit none
16
17 REAL phis(iim + 1, jjm + 1) ! surface geopotential, in m2 s-2
18
19 !-------------------------------------
20
21 call new_unit(unit_nml)
22 open(unit_nml, file="used_namelists.txt", status="replace", action="write")
23 CALL conf_gcm
24 call read_comdissnew
25 call read_serre
26 CALL etat0(phis)
27 CALL limit
28 CALL grilles_gcm_netcdf_sub(phis)
29 close(unit_nml)
30 print *, "ce0l: done"
31
32 END PROGRAM ce0l

  ViewVC Help
Powered by ViewVC 1.1.21