8 |
use grilles_gcm_netcdf_sub_m, only: grilles_gcm_netcdf_sub |
use grilles_gcm_netcdf_sub_m, only: grilles_gcm_netcdf_sub |
9 |
use jumble, only: new_unit |
use jumble, only: new_unit |
10 |
use limit_mod, only: limit |
use limit_mod, only: limit |
11 |
|
use read_serre_m, only: read_serre |
12 |
use unit_nml_m, only: unit_nml |
use unit_nml_m, only: unit_nml |
13 |
|
|
14 |
implicit none |
implicit none |
20 |
call new_unit(unit_nml) |
call new_unit(unit_nml) |
21 |
open(unit_nml, file="used_namelists.txt", status="replace", action="write") |
open(unit_nml, file="used_namelists.txt", status="replace", action="write") |
22 |
CALL conf_gcm |
CALL conf_gcm |
23 |
|
call read_serre |
24 |
CALL etat0(phis) |
CALL etat0(phis) |
25 |
CALL limit |
CALL limit |
26 |
CALL grilles_gcm_netcdf_sub(phis) |
CALL grilles_gcm_netcdf_sub(phis) |