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 |
|
|
open(unit_nml, file="used_namelists", 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 |