Parent Directory | Revision Log
Moved procedure iniconst inside module comconst. Removed useless variables of module comconst: im, jm, lllm, imp1, jmp1, lllmm1, lllmp1, lcl, cotot, unsim. Move definition of dtvr that was in dynetat0 and etat0 to iniconst. Moved comparison of dtvr from day_step and start.nc that was in gcm to dynetat0. Moved call to disvert out of iniconst. Moved call to iniconst in gcm before call to dynetat0. Removed unused argument pvteta of physiq (not used either in LMDZ).
1 | guez | 68 | PROGRAM ce0l |
2 | guez | 3 | |
3 | ! This program sets the initial and boundary values. | ||
4 | |||
5 | use conf_gcm_m, only: conf_gcm | ||
6 | use etat0_mod, only: etat0 | ||
7 | guez | 57 | use jumble, only: new_unit |
8 | guez | 3 | use limit_mod, only: limit |
9 | guez | 57 | use unit_nml_m, only: unit_nml |
10 | guez | 3 | |
11 | implicit none | ||
12 | |||
13 | !------------------------------------- | ||
14 | |||
15 | guez | 57 | call new_unit(unit_nml) |
16 | guez | 79 | open(unit_nml, file="used_namelists.txt", status="replace", action="write") |
17 | guez | 3 | CALL conf_gcm |
18 | CALL etat0 | ||
19 | CALL limit | ||
20 | guez | 57 | close(unit_nml) |
21 | guez | 3 | |
22 | guez | 68 | END PROGRAM ce0l |
ViewVC Help | |
Powered by ViewVC 1.1.21 |