21 |
use dynredem0_m, only: dynredem0 |
use dynredem0_m, only: dynredem0 |
22 |
use grid_change, only: dyn_phy, init_dyn_phy |
use grid_change, only: dyn_phy, init_dyn_phy |
23 |
use histclo_m, only: histclo |
use histclo_m, only: histclo |
24 |
use iniadvtrac_m, only: iniadvtrac |
use infotrac_init_m, only: infotrac_init |
25 |
use inidissip_m, only: inidissip |
use inidissip_m, only: inidissip |
26 |
use inifilr_m, only: inifilr |
use inifilr_m, only: inifilr |
27 |
use inithist_m, only: inithist |
use inithist_m, only: inithist |
67 |
call ioconf_calendar('360d') |
call ioconf_calendar('360d') |
68 |
endif |
endif |
69 |
|
|
70 |
call iniadvtrac |
call infotrac_init |
71 |
CALL iniconst |
CALL iniconst |
72 |
CALL dynetat0_chosen |
CALL dynetat0_chosen |
73 |
CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis) |
CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis) |