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: |