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 | 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 |