36 |
! -- time increases from January to December (even though we do |
! -- time increases from January to December (even though we do |
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 dimensions, only: jjm |
40 |
use dynetat0_m, only: rlatv |
use dynetat0_m, only: rlatv |
41 |
use nr_util, only: pi |
use nr_util, only: pi |
42 |
use numer_rec_95, only: regr3_lint, regr1_conserv, slopes |
use numer_rec_95, only: regr3_lint, regr1_conserv, slopes |
235 |
! This subroutine creates the NetCDF output file, defines |
! This subroutine creates the NetCDF output file, defines |
236 |
! dimensions and variables, and writes one of the coordinate variables. |
! dimensions and variables, and writes one of the coordinate variables. |
237 |
|
|
238 |
use dimens_m, only: jjm |
use dimensions, only: jjm |
239 |
use dynetat0_m, only: rlatu |
use dynetat0_m, only: rlatu |
240 |
use netcdf, only: nf90_clobber, nf90_float, nf90_copy_att, nf90_global |
use netcdf, only: nf90_clobber, nf90_float, nf90_copy_att, nf90_global |
241 |
use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, & |
use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, & |