diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90 index 84dc46588a2d3a7c2ca7cdc54d54bc5b9952477d..54fdbc67ae54f0338b5036736da0a9d0bc9b5572 100644 --- a/src/MNH/modeln.f90 +++ b/src/MNH/modeln.f90 @@ -2411,7 +2411,7 @@ IF (OEXIT) THEN END IF #ifndef MNH_OPENACC -IF ( ALLOCATED( ZSEA ) ) DEALLOCATE( ZSEA ) +IF ( ASSOCIATED( ZSEA ) ) DEALLOCATE( ZSEA ) DEALLOCATE( ZRWS ) DEALLOCATE( ZPABST ) #else