istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

src/magsurf_data.f90: fix memory leak

Browse Source
This commit is contained in:
Michele Guerini Rocco 2021-12-15 02:31:08 +01:00
parent b1694bc575
commit 4f867bad14
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/magsurf_data.f90
View File

@ -97,6 +97,7 @@ contains
if(allocated(cratjpl)) deallocate(cratjpl) if(allocated(cratjpl)) deallocate(cratjpl)
if(allocated(cratja)) deallocate(cratja) if(allocated(cratja)) deallocate(cratja)
if(allocated(cratjb)) deallocate(cratjb) if(allocated(cratjb)) deallocate(cratjb)
if(allocated(tjp)) deallocate(tjp,tlm,ch)
end subroutine dealloc_surfvec end subroutine dealloc_surfvec
@ -420,6 +421,7 @@ contains
call print_contour(psicon(jp),rcon(:,jp),zcon(:,jp)) call print_contour(psicon(jp),rcon(:,jp),zcon(:,jp))
end do end do
deallocate(rctemp, zctemp)
end subroutine flux_average end subroutine flux_average