diff --git a/src/MNH/flat_inv.f90 b/src/MNH/flat_inv.f90 index 80e4c312bbc92b9ad017c96a9bddf9c53696e609..113dd9902490298d5a35dc83508a902da7884eb2 100644 --- a/src/MNH/flat_inv.f90 +++ b/src/MNH/flat_inv.f90 @@ -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)