25 |
use grille_m_m, only: grille_m |
use grille_m_m, only: grille_m |
26 |
use grid_change, only: init_dyn_phy, dyn_phy |
use grid_change, only: init_dyn_phy, dyn_phy |
27 |
use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra, nbsrf |
use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra, nbsrf |
28 |
use iniadvtrac_m, only: iniadvtrac |
use infotrac_init_m, only: infotrac_init |
29 |
use inifilr_m, only: inifilr |
use inifilr_m, only: inifilr |
30 |
use massdair_m, only: massdair |
use massdair_m, only: massdair |
31 |
use netcdf, only: nf90_nowrite |
use netcdf, only: nf90_nowrite |
270 |
SUM(aire_2d(:iim, jjm + 1) * masse(:iim, jjm + 1, l)) / apols |
SUM(aire_2d(:iim, jjm + 1) * masse(:iim, jjm + 1, l)) / apols |
271 |
END forall |
END forall |
272 |
|
|
273 |
call iniadvtrac |
call infotrac_init |
274 |
CALL geopot(teta, pk , pks, phis, phi) |
CALL geopot(teta, pk , pks, phis, phi) |
275 |
CALL caldyn0(ucov, vcov, teta, ps, pk, phis, phi) |
CALL caldyn0(ucov, vcov, teta, ps, pk, phis, phi) |
276 |
CALL dynredem0(day_ref, phis) |
CALL dynredem0(day_ref, phis) |