25 |
|
|
26 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
27 |
use dimphy, only: klon |
use dimphy, only: klon |
|
use netcdf95, only: nf95_inq_varid, handle_err |
|
|
use netcdf, only: nf90_get_var |
|
28 |
use grid_change, only: dyn_phy |
use grid_change, only: dyn_phy |
29 |
use numer_rec, only: assert |
use netcdf, only: nf90_get_var |
30 |
|
use netcdf95, only: nf95_inq_varid, handle_err |
31 |
|
use nr_util, only: assert |
32 |
|
use numer_rec_95, only: regr1_step_av |
33 |
use press_coefoz_m, only: press_in_edg |
use press_coefoz_m, only: press_in_edg |
|
use regr1_step_av_m, only: regr1_step_av |
|
34 |
use pressure_var, only: p3d |
use pressure_var, only: p3d |
35 |
|
|
36 |
integer, intent(in):: ncid ! NetCDF ID of the file |
integer, intent(in):: ncid ! NetCDF ID of the file |
101 |
|
|
102 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
103 |
use dimphy, only: klon |
use dimphy, only: klon |
|
use netcdf95, only: nf95_inq_varid, handle_err |
|
|
use netcdf, only: nf90_get_var |
|
104 |
use grid_change, only: dyn_phy |
use grid_change, only: dyn_phy |
105 |
use numer_rec, only: assert |
use netcdf, only: nf90_get_var |
106 |
|
use netcdf95, only: nf95_inq_varid, handle_err |
107 |
|
use nr_util, only: assert |
108 |
|
use numer_rec_95, only: regr1_lint |
109 |
use press_coefoz_m, only: plev |
use press_coefoz_m, only: plev |
|
use regr1_lint_m, only: regr1_lint |
|
110 |
use pressure_var, only: pls |
use pressure_var, only: pls |
111 |
|
|
112 |
integer, intent(in):: ncid ! NetCDF ID of the file |
integer, intent(in):: ncid ! NetCDF ID of the file |