subroutine, public iccninterp::ciinterpol |
( |
integer | me, |
|
|
integer | npts, |
|
|
integer, dimension(4) | idate, |
|
|
real(kind=kind_phys) | fhour, |
|
|
integer, dimension(npts) | jindx1, |
|
|
integer, dimension(npts) | jindx2, |
|
|
real(kind=kind_phys), dimension(npts) | ddy, |
|
|
integer, dimension(npts) | iindx1, |
|
|
integer, dimension(npts) | iindx2, |
|
|
real(kind=kind_phys), dimension(npts) | ddx, |
|
|
integer | lev, |
|
|
real(kind=kind_phys), dimension(npts,lev) | prsl, |
|
|
real(kind=kind_phys), dimension(npts,lev) | ciplout, |
|
|
real(kind=kind_phys), dimension(npts,lev) | ccnout ) |