42 |
use grid_change, only: init_dyn_phy, dyn_phy |
use grid_change, only: init_dyn_phy, dyn_phy |
43 |
use q_sat_m, only: q_sat |
use q_sat_m, only: q_sat |
44 |
use exner_hyb_m, only: exner_hyb |
use exner_hyb_m, only: exner_hyb |
45 |
use advtrac_m, only: iniadvtrac |
use iniadvtrac_m, only: iniadvtrac |
46 |
use pressure_var, only: pls, p3d |
use pressure_var, only: pls, p3d |
47 |
use dynredem0_m, only: dynredem0 |
use dynredem0_m, only: dynredem0 |
48 |
use regr_lat_time_coefoz_m, only: regr_lat_time_coefoz |
use regr_lat_time_coefoz_m, only: regr_lat_time_coefoz |
296 |
day_ref = dayref |
day_ref = dayref |
297 |
annee_ref = anneeref |
annee_ref = anneeref |
298 |
|
|
299 |
CALL geopot(ip1jmp1, tpot, pk , pks, phis , phi) |
CALL geopot(ip1jmp1, tpot, pk , pks, phis, phi) |
300 |
CALL caldyn0(0, uvent, vvent, tpot, psol, masse, pk, phis, phi, w, & |
CALL caldyn0(0, uvent, vvent, tpot, psol, masse, pk, phis, phi, w, & |
301 |
pbaru, pbarv, 0) |
pbaru, pbarv, 0) |
302 |
CALL dynredem0("start.nc", dayref, phis) |
CALL dynredem0("start.nc", dayref, phis) |