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

Commit 9fcedbf7 authored by Sebastian Müller's avatar Sebastian Müller 🎸

clean: call clean routine of the new edk_dist class in the end

parent ec78d063
......@@ -16,24 +16,19 @@ subroutine clean
!
! DEM will be reused...
!
! Stations
do i = 1, nSta
if ( allocated( MetSta(i)%z ) ) deallocate( MetSta(i)%z )
end do
if ( allocated(MetSta) ) deallocate (MetSta)
do i=1,nSta-1
if ( allocated( dS(i)%S ) ) deallocate( dS(i)%S )
end do
if ( allocated(dS) ) deallocate (dS)
do i=1,nCell
if ( allocated( cell(i)%listNS ) ) deallocate ( cell(i)%listNS )
end do
if ( allocated(cell)) deallocate (cell)
if ( allocated(dCS) ) deallocate (dCS)
if ( allocated(dz2S)) deallocate (dz2S)
call edk_dist%clean
end subroutine clean
......
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