| 20 |
use caldyn0_m, only: caldyn0 |
use caldyn0_m, only: caldyn0 |
| 21 |
use comconst, only: cpp, kappa, iniconst |
use comconst, only: cpp, kappa, iniconst |
| 22 |
use comgeom, only: aire_2d, apoln, apols, cu_2d, cv_2d, inigeom |
use comgeom, only: aire_2d, apoln, apols, cu_2d, cv_2d, inigeom |
| 23 |
use conf_gcm_m, only: nday, day_step, iphysiq |
use conf_gcm_m, only: nday |
| 24 |
use dimens_m, only: iim, jjm, llm, nqmx |
use dimens_m, only: iim, jjm, llm, nqmx |
| 25 |
use dimphy, only: zmasq |
use dimphy, only: zmasq |
| 26 |
use dimsoil, only: nsoilmx |
use dimsoil, only: nsoilmx |
| 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 paramet_m, only: ip1jm, ip1jmp1 |
use phyetat0_m, only: rlat, rlon, itau_phy |
|
use phyetat0_m, only: rlat, rlon |
|
| 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 |
| 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) |
Parent Directory
| 
Revision Log
| 
Patch