43 |
use netcdf95, only: nf95_close, nf95_get_var, nf95_gw_var, nf95_put_var, & |
use netcdf95, only: nf95_close, nf95_get_var, nf95_gw_var, nf95_put_var, & |
44 |
nf95_inq_varid, nf95_open |
nf95_inq_varid, nf95_open |
45 |
use nr_util, only: pi, assert |
use nr_util, only: pi, assert |
46 |
use phyetat0_m, only: rlat, rlon |
use phyetat0_m, only: rlat, rlon, itau_phy |
47 |
use phyredem0_m, only: phyredem0, ncid_restartphy |
use phyredem0_m, only: phyredem0, ncid_restartphy |
48 |
use phyredem_m, only: phyredem |
use phyredem_m, only: phyredem |
49 |
use q_sat_m, only: q_sat |
use q_sat_m, only: q_sat |
335 |
w01 = 0. |
w01 = 0. |
336 |
|
|
337 |
nday = 0 |
nday = 0 |
338 |
call phyredem0(lmt_pas = day_step / iphysiq, itau_phy = 0) |
itau_phy = 0 ! side effect |
339 |
|
call phyredem0(lmt_pas = day_step / iphysiq) |
340 |
|
|
341 |
call nf95_inq_varid(ncid_restartphy, "trs", varid) |
call nf95_inq_varid(ncid_restartphy, "trs", varid) |
342 |
call nf95_put_var(ncid_restartphy, varid, null_array) |
call nf95_put_var(ncid_restartphy, varid, null_array) |