Need program statement for FORD grid for interpolated data center grid points at zero try a 2d interpolation dump results to a file so we can check things
Type | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|
type(hdf5_file) | :: | hout | ||||
integer, | parameter | :: | lx1 | = | 50 | |
integer, | parameter | :: | lx2 | = | 100 | |
integer, | parameter | :: | lx1i | = | 500 | |
integer, | parameter | :: | lx2i | = | 1000 | |
real(kind=wp), | parameter | :: | stride | = | 0.5_wp | |
real(kind=wp) | :: | x1(lx1) | ||||
real(kind=wp) | :: | x2(lx2) | ||||
real(kind=wp) | :: | f(lx1,lx2) | ||||
real(kind=wp) | :: | x1i(lx1i) | ||||
real(kind=wp) | :: | x2i(lx2i) | ||||
real(kind=wp) | :: | fi(lx1i,lx2i) | ||||
real(kind=wp), | dimension(1:lx1i*lx2i) | :: | x1ilist | |||
real(kind=wp), | dimension(1:lx1i*lx2i) | :: | x2ilist | |||
real(kind=wp), | dimension(1:lx1i*lx2i) | :: | filist | |||
integer | :: | ix1 | ||||
integer | :: | ix2 | ||||
integer | :: | ik |