Parent Directory | Revision Log | Patch
trunk/libf/dyn3d/etat0_lim.f90 revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC | trunk/dyn3d/ce0l.f90 revision 79 by guez, Fri Feb 28 17:52:47 2014 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | PROGRAM etat0_lim | PROGRAM ce0l |
2 | ||
3 | ! This program sets the initial and boundary values. | ! This program sets the initial and boundary values. |
4 | ||
# | Line 13 PROGRAM etat0_lim | Line 13 PROGRAM etat0_lim |
13 | !------------------------------------- | !------------------------------------- |
14 | ||
15 | call new_unit(unit_nml) | call new_unit(unit_nml) |
16 | open(unit_nml, file="used_namelists", status="replace", action="write") | open(unit_nml, file="used_namelists.txt", status="replace", action="write") |
17 | CALL conf_gcm | CALL conf_gcm |
18 | CALL etat0 | CALL etat0 |
19 | CALL limit | CALL limit |
20 | close(unit_nml) | close(unit_nml) |
21 | ||
22 | END PROGRAM etat0_lim | END PROGRAM ce0l |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |