Parent Directory | Revision Log
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 |