| 37 |
! not use values of the input time coordinate). |
! not use values of the input time coordinate). |
| 38 |
|
|
| 39 |
use dimens_m, only: jjm |
use dimens_m, only: jjm |
| 40 |
use comgeom, only: rlatv |
use dynetat0_m, only: rlatv |
| 41 |
use nr_util, only: pi |
use nr_util, only: pi |
| 42 |
use numer_rec_95, only: regr1_step_av, regr3_lint |
use numer_rec_95, only: regr1_step_av, regr3_lint |
| 43 |
use netcdf95, only: nf95_open, nf95_gw_var, nf95_close, & |
use netcdf95, only: nf95_open, nf95_gw_var, nf95_close, & |
| 237 |
! dimensions and variables, and writes one of the coordinate variables. |
! dimensions and variables, and writes one of the coordinate variables. |
| 238 |
|
|
| 239 |
use dimens_m, only: jjm |
use dimens_m, only: jjm |
| 240 |
use comgeom, only: rlatu |
use dynetat0_m, only: rlatu |
| 241 |
use nr_util, only: assert_eq, pi |
use netcdf, only: nf90_clobber, nf90_float, nf90_copy_att, nf90_global |
|
|
|
| 242 |
use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, & |
use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, & |
| 243 |
nf95_put_att, nf95_enddef, nf95_copy_att, nf95_put_var |
nf95_put_att, nf95_enddef, nf95_copy_att, nf95_put_var |
| 244 |
use netcdf, only: nf90_clobber, nf90_float, nf90_copy_att, nf90_global |
use nr_util, only: assert_eq, pi |
| 245 |
|
|
| 246 |
integer, intent(in):: ncid_in, varid_in(:), n_plev |
integer, intent(in):: ncid_in, varid_in(:), n_plev |
| 247 |
character(len=*), intent(in):: name_out(:) ! of NetCDF variables |
character(len=*), intent(in):: name_out(:) ! of NetCDF variables |
Parent Directory
| 
Revision Log
| 
Patch