Parent Directory | Revision Log
Changed all ".f90" suffixes to ".f".
1 | PROGRAM ce0l |
2 | |
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 | use jumble, only: new_unit |
8 | use limit_mod, only: limit |
9 | use unit_nml_m, only: unit_nml |
10 | |
11 | implicit none |
12 | |
13 | !------------------------------------- |
14 | |
15 | call new_unit(unit_nml) |
16 | open(unit_nml, file="used_namelists.txt", status="replace", action="write") |
17 | CALL conf_gcm |
18 | CALL etat0 |
19 | CALL limit |
20 | close(unit_nml) |
21 | |
22 | END PROGRAM ce0l |
ViewVC Help | |
Powered by ViewVC 1.1.21 |