| 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: |
Parent Directory
| 
Revision Log
| 
Patch