33 |
use geopot_m, only: geopot |
use geopot_m, only: geopot |
34 |
use grid_atob, only: grille_m |
use grid_atob, only: grille_m |
35 |
use grid_change, only: init_dyn_phy, dyn_phy |
use grid_change, only: init_dyn_phy, dyn_phy |
36 |
use histcom, only: histclo |
use histclo_m, only: histclo |
37 |
use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra |
use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra |
38 |
use iniadvtrac_m, only: iniadvtrac |
use iniadvtrac_m, only: iniadvtrac |
39 |
use inidissip_m, only: inidissip |
use inidissip_m, only: inidissip |
40 |
|
use inifilr_m, only: inifilr |
41 |
use inigeom_m, only: inigeom |
use inigeom_m, only: inigeom |
42 |
use netcdf, only: nf90_nowrite |
use netcdf, only: nf90_nowrite |
43 |
use netcdf95, only: nf95_open, nf95_close, nf95_get_var, nf95_inq_varid |
use netcdf95, only: nf95_open, nf95_close, nf95_get_var, nf95_inq_varid |
51 |
use serre, only: alphax |
use serre, only: alphax |
52 |
USE start_init_orog_m, only: start_init_orog, mask, phis |
USE start_init_orog_m, only: start_init_orog, mask, phis |
53 |
use start_init_phys_m, only: start_init_phys |
use start_init_phys_m, only: start_init_phys |
54 |
use startdyn, only: start_inter_3d, start_init_dyn |
use startdyn, only: start_init_dyn |
55 |
|
use start_inter_3d_m, only: start_inter_3d |
56 |
use temps, only: itau_phy, annee_ref, day_ref |
use temps, only: itau_phy, annee_ref, day_ref |
57 |
|
|
58 |
! Variables local to the procedure: |
! Variables local to the procedure: |