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)
DEALLOCATE(ZAF)
DEALLOCATE(ZBAND_X)
DEALLOCATE(ZBAND_Y)
DEALLOCATE(ZBAND_YT)
DEALLOCATE(ZBAND_YRT)
IF (.NOT. L2D) THEN
DEALLOCATE(ZBAND_YT)
DEALLOCATE(ZBAND_YRT)
END IF
DEALLOCATE(ZBAND_YR)
DEALLOCATE(ZWORKX)
DEALLOCATE(ZWORKY)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment