Feel free to join the next Helmholtz Hacky Hour #30 on Wednesday, June 16, 2021 from 2PM to 3PM!

Commit 873acf5e authored by Friedrich Boeing's avatar Friedrich Boeing
Browse files

Merge branch 'develop' of git.ufz.de:chs/progs/edk_nc into develop

parents 42467225 32b0da9a
......@@ -139,7 +139,7 @@ contains
if (allocated(X)) deallocate (X)
!
! correct negative
if (correctNeg) cell(k)%z = merge(0._sp, cell(k)%z, (cell(k)%z .gt. noDataValue) .and. (cell(k)%z .lt. 0.))
if (correctNeg) cell(k)%z = merge(0._sp, cell(k)%z, (cell(k)%z .gt. -9999._sp) .and. (cell(k)%z .lt. 0.))
!
end subroutine EDK
......
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