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

Commit 463fedec authored by Sebastian Müller's avatar Sebastian Müller 🎸

setVario: print information about neighborhood search

parent 2f32791a
......@@ -195,8 +195,11 @@ subroutine dMatrix
if (r > gridMeteo%nrows) r = 1
end do
print*, " ... find neighborhoods"
! find the closest stations to cell i (any order): checked OK
do i=1,nCell
if ( modulo(i,100000) == 0 ) print*, " ... cells ready", i, "of", nCell
list = -9
do j=1,nSta
if (edk_dist%getCS(i,j) <= maxDist) list(j) = j
......
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