35 |
use histclo_m, only: histclo |
use histclo_m, only: histclo |
36 |
use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra |
use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra |
37 |
use iniadvtrac_m, only: iniadvtrac |
use iniadvtrac_m, only: iniadvtrac |
|
use inidissip_m, only: inidissip |
|
38 |
use inifilr_m, only: inifilr |
use inifilr_m, only: inifilr |
39 |
use inigeom_m, only: inigeom |
use inigeom_m, only: inigeom |
40 |
use massdair_m, only: massdair |
use massdair_m, only: massdair |
300 |
|
|
301 |
! Initialisation pour traceurs: |
! Initialisation pour traceurs: |
302 |
call iniadvtrac |
call iniadvtrac |
|
CALL inidissip |
|
303 |
itau_phy = 0 |
itau_phy = 0 |
304 |
day_ref = dayref |
day_ref = dayref |
305 |
annee_ref = anneeref |
annee_ref = anneeref |