20 |
use netcdf, only: nf90_get_var |
use netcdf, only: nf90_get_var |
21 |
use grid_change, only: dyn_phy |
use grid_change, only: dyn_phy |
22 |
use regr_pr, only: regr_pr_av |
use regr_pr, only: regr_pr_av |
23 |
use nrutil, only: assert |
use numer_rec, only: assert |
24 |
|
|
25 |
integer, intent(in):: ncid ! NetCDF ID of the file |
integer, intent(in):: ncid ! NetCDF ID of the file |
26 |
character(len=*), intent(in):: name ! of the NetCDF variable |
character(len=*), intent(in):: name ! of the NetCDF variable |
85 |
use netcdf, only: nf90_get_var |
use netcdf, only: nf90_get_var |
86 |
use grid_change, only: dyn_phy |
use grid_change, only: dyn_phy |
87 |
use regr_pr, only: regr_pr_int |
use regr_pr, only: regr_pr_int |
88 |
use nrutil, only: assert |
use numer_rec, only: assert |
89 |
|
|
90 |
integer, intent(in):: ncid ! NetCDF ID of the file |
integer, intent(in):: ncid ! NetCDF ID of the file |
91 |
character(len=*), intent(in):: name ! of the NetCDF variable |
character(len=*), intent(in):: name ! of the NetCDF variable |