Skip to content
Snippets Groups Projects
Commit e7e8c8b7 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 18/09/2023: FLAT_INV: fix for NOOPENACC (deallocate ZBAND_YT and...

Philippe 18/09/2023: FLAT_INV: fix for NOOPENACC (deallocate ZBAND_YT and ZBAND_YRT only if allocated)
parent 287ef4fb
No related branches found
No related tags found
No related merge requests found
...@@ -667,8 +667,10 @@ DEALLOCATE(ZY) ...@@ -667,8 +667,10 @@ DEALLOCATE(ZY)
DEALLOCATE(ZAF) DEALLOCATE(ZAF)
DEALLOCATE(ZBAND_X) DEALLOCATE(ZBAND_X)
DEALLOCATE(ZBAND_Y) DEALLOCATE(ZBAND_Y)
DEALLOCATE(ZBAND_YT) IF (.NOT. L2D) THEN
DEALLOCATE(ZBAND_YRT) DEALLOCATE(ZBAND_YT)
DEALLOCATE(ZBAND_YRT)
END IF
DEALLOCATE(ZBAND_YR) DEALLOCATE(ZBAND_YR)
DEALLOCATE(ZWORKX) DEALLOCATE(ZWORKX)
DEALLOCATE(ZWORKY) DEALLOCATE(ZWORKY)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment