25 |
use conf_gcm_m, only: dayref |
use conf_gcm_m, only: dayref |
26 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
27 |
use netcdf95, only: nf95_open, nf95_close, nf95_inq_varid, handle_err, & |
use netcdf95, only: nf95_open, nf95_close, nf95_inq_varid, handle_err, & |
28 |
nf95_get_coord |
nf95_gw_var |
29 |
use netcdf, only: nf90_nowrite, nf90_get_var |
use netcdf, only: nf90_nowrite, nf90_get_var |
30 |
use numer_rec, only: assert |
use numer_rec, only: assert |
31 |
use grid_change, only: dyn_phy |
use grid_change, only: dyn_phy |
61 |
|
|
62 |
call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid) |
call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid) |
63 |
|
|
64 |
call nf95_get_coord(ncid, "plev", plev) |
call nf95_inq_varid(ncid, "plev", varid) |
65 |
|
call nf95_gw_var(ncid, varid, plev) |
66 |
! Convert from hPa to Pa because "regr_pr_av" requires so: |
! Convert from hPa to Pa because "regr_pr_av" requires so: |
67 |
plev = plev * 100. |
plev = plev * 100. |
68 |
n_plev = size(plev) |
n_plev = size(plev) |