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 |
|
) |
| |