From 82f910d144dd2f4cc691584d5662189103ed9e23 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Wed, 26 Aug 2020 11:05:00 +0200
Subject: [PATCH] Juan 26/08/2020:mode_mppdb.f90, move deallocate at end of
routine , to inspecte TAB on debugger
---
src/LIB/SURCOUCHE/src/mode_mppdb.f90 | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_mppdb.f90 b/src/LIB/SURCOUCHE/src/mode_mppdb.f90
index 47073588d..5356753d1 100644
--- a/src/LIB/SURCOUCHE/src/mode_mppdb.f90
+++ b/src/LIB/SURCOUCHE/src/mode_mppdb.f90
@@ -1306,7 +1306,7 @@ MODULE MODE_MPPDB
END IF
!flush(unit=OUTPUT_UNIT)
!
- DEALLOCATE(TAB_ll,TAB_SON_ll)
+ !DEALLOCATE(TAB_ll,TAB_SON_ll)
!
END IF
ELSE
@@ -1402,6 +1402,7 @@ MODULE MODE_MPPDB
ELSE
CALL PRINT_MSG(NVERB_WARNING,'GEN','MPPDB_CHECK3D_REAL','NPAS_ll>2 not (yet) implemented')
END IF
+ DEALLOCATE(TAB_ll,TAB_SON_ll)
END IF
#endif
END SUBROUTINE MPPDB_CHECK3D_REAL
@@ -1666,7 +1667,7 @@ MODULE MODE_MPPDB
OK(IPAS) = .TRUE.
END IF
!
- DEALLOCATE(TAB_ll,TAB_SON_ll)
+ !DEALLOCATE(TAB_ll,TAB_SON_ll)
!
END IF
ELSE
@@ -1774,6 +1775,7 @@ MODULE MODE_MPPDB
ELSE
CALL PRINT_MSG(NVERB_WARNING,'GEN','MPPDB_CHECK2D_REAL','NPAS_ll>2 not (yet) implemented')
END IF
+ DEALLOCATE(TAB_ll,TAB_SON_ll)
END IF
#endif
END SUBROUTINE MPPDB_CHECK2D_REAL
--
GitLab