You develop research software? Need some ideas for your R or python scripts? Join our Coding@UFZ community on Mattermost! 💬

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 ...@@ -139,7 +139,7 @@ contains
if (allocated(X)) deallocate (X) if (allocated(X)) deallocate (X)
! !
! correct negative ! 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 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