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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 212 - (hide 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 guez 68 PROGRAM ce0l
2 guez 3
3     ! This program sets the initial and boundary values.
4    
5 guez 191 use comdissnew, only: read_comdissnew
6 guez 3 use conf_gcm_m, only: conf_gcm
7 guez 107 use dimens_m, only: iim, jjm
8 guez 3 use etat0_mod, only: etat0
9 guez 107 use grilles_gcm_netcdf_sub_m, only: grilles_gcm_netcdf_sub
10 guez 57 use jumble, only: new_unit
11 guez 3 use limit_mod, only: limit
12 guez 139 use read_serre_m, only: read_serre
13 guez 57 use unit_nml_m, only: unit_nml
14 guez 3
15     implicit none
16    
17 guez 107 REAL phis(iim + 1, jjm + 1) ! surface geopotential, in m2 s-2
18    
19 guez 3 !-------------------------------------
20    
21 guez 57 call new_unit(unit_nml)
22 guez 79 open(unit_nml, file="used_namelists.txt", status="replace", action="write")
23 guez 3 CALL conf_gcm
24 guez 191 call read_comdissnew
25 guez 113 call read_serre
26 guez 107 CALL etat0(phis)
27 guez 3 CALL limit
28 guez 107 CALL grilles_gcm_netcdf_sub(phis)
29 guez 57 close(unit_nml)
30 guez 212 print *, "ce0l: done"
31 guez 3
32 guez 68 END PROGRAM ce0l

  ViewVC Help
Powered by ViewVC 1.1.21