Feel free to join the next Helmholtz Hacky Hour #26 on Wednesday, April 21, 2021 from 2PM to 3PM!

Commit 2f32791a authored by Sebastian Müller's avatar Sebastian Müller 🎸

modules: remove Nk_old and W (weights) from cell information - only needed temporarily in EDK

parent 116b1c1f
......@@ -136,20 +136,16 @@ module kriging
real(dp) :: maxDist ! max distance [m] search stations
type CellCoarser
integer(i4) :: nNS ! No. Nearest Stations (NS) d <= maxDist
integer(i4), allocatable :: Nk_old(:) ! old stations (added)
integer(i4), dimension(:), allocatable :: listNS ! list of NS
real(dp) :: x ! x- coordinate
real(dp) :: y ! y- coordinate
real(dp) :: h ! (estimated) elevation [m] (from the nearest cells DEM)
real(sp), allocatable :: z(:) ! z values to be interpolated (OUTPUT)
real(dp), allocatable :: W(:)
end type CellCoarser
type(CellCoarser), dimension(:), allocatable :: cell ! EDK output
type(dist_t) :: edk_dist ! distance calculations for EDK
real(dp) :: xl, xr, yd, yu ! coordinates of the interpolation block
!real(dp) , allocatable :: X(:)
!
end module kriging
module VarFit
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment