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

Commit 5bb0a5c6 authored by Akash Koppa's avatar Akash Koppa
Browse files

replaced -9999 with NoDataValue in EDK Driver

parent 53194761
No preview for this file type
File added
ncols 6
nrows 10
xllcorner 4530000.0
yllcorner 5664000.0
cellsize 4000
NODATA_value -9999
......@@ -129,14 +129,13 @@ program ED_Kriging
! Akash----------------------------------------------------------------
write(*,*),noDataValue
do iCell = 1, nCell
! initialize cell
allocate(cell(iCell)%Nk_old(nSta))
cell(iCell)%Nk_old = -9999
cell(iCell)%Nk_old = nint(noDataValue)
end do
if (mod((jEnd - jStart + 1),tBuffer) .eq. 0) then ! just use mod
iTime = ((jEnd - jStart + 1)/tBuffer)
else
......@@ -284,17 +283,17 @@ program ED_Kriging
end do bufferloop
! Akash end----------------------------------------------------
do iCell = 1, nCell
! do iCell = 1, nCell
! initialize cell
deallocate(cell(iCell)%Nk_old)
! deallocate(cell(iCell)%Nk_old)
!cell(iCell)%z = noDataValue
end do
!end do
do iCell = 1, nCell
!do iCell = 1, nCell
! initialize cell
if (allocated(cell(iCell)%W)) deallocate(cell(iCell)%W)
! if (allocated(cell(iCell)%W)) deallocate(cell(iCell)%W)
!cell(iCell)%z = noDataValue
end do
!end do
! close netcdf if necessary
call nc_out%close()
......
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