diff --git a/src/LIB/SURCOUCHE/src/mode_exchange_ll.f90 b/src/LIB/SURCOUCHE/src/mode_exchange_ll.f90
index 3a832a2326bc9c3141d77860d12d7296942a7da9..e8409c572b597c4500eb02b096a26c90bbaaafa9 100644
--- a/src/LIB/SURCOUCHE/src/mode_exchange_ll.f90
+++ b/src/LIB/SURCOUCHE/src/mode_exchange_ll.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1998-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1998-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -2504,7 +2504,7 @@ INTEGER :: NB_REQ,NFIRST_REQ_RECV
IBUFFSIZE = IBUFFSIZE * (NKMAX_TMP_ll + 2 * JPVEXT)
!
!Pin positions in the pools of MNH memory
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'SEND_RECV_FIELD_DEVICE' )
IF ( .NOT. LMNH_MPI_BSEND) THEN
CALL MNH_MEM_GET( TZBUFFER, IBUFFSIZE, ISENDNB + IRECVNB )
@@ -2735,7 +2735,7 @@ INTEGER :: NB_REQ,NFIRST_REQ_RECV
ITAGOFFSET = MOD((ITAGOFFSET + NNEXTTAG), NMAXTAG)
!
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'SEND_RECV_FIELD_DEVICE' )
!$acc end data
!
diff --git a/src/MNH/advec_4th_order_aux.f90 b/src/MNH/advec_4th_order_aux.f90
index 9838c4762cf61ca7e0ba265ebd579076e5cc3352..c0e5a6e636313d20b344c65b4e0457320fe6ea05 100644
--- a/src/MNH/advec_4th_order_aux.f90
+++ b/src/MNH/advec_4th_order_aux.f90
@@ -126,9 +126,6 @@ USE MODD_CONF
USE MODE_DEVICE
#endif
use mode_ll, only: GET_INDICE_ll, LWEST_ll, LEAST_ll, LNORTH_ll, LSOUTH_ll
-#ifdef MNH_OPENACC
-USE MODE_MNH_ZWORK, ONLY: MNH_MEM_GET, MNH_MEM_POSITION_PIN, MNH_MEM_RELEASE
-#endif
use mode_mppdb
#ifdef MNH_OPENACC
use mode_msg
diff --git a/src/MNH/advec_ppm_algo.f90 b/src/MNH/advec_ppm_algo.f90
index c26b3e09214df1bfeb992876e2b2260e3c013649..957e9e8f28633b484c31bfff9ab0f9dbff3822c3 100644
--- a/src/MNH/advec_ppm_algo.f90
+++ b/src/MNH/advec_ppm_algo.f90
@@ -250,7 +250,7 @@ CASE('PPM_01')
!
#ifdef MNH_OPENACC
!Pin positions in the pools of MNH memory
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'ADVEC_PPM_ALGO' )
CALL MNH_MEM_GET( ZPPM, SIZE( PSRC, 1 ), SIZE( PSRC, 2 ), SIZE( PSRC, 3 ) )
@@ -358,7 +358,7 @@ CASE('PPM_01')
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'ADVEC_PPM_ALGO' )
#endif
!
! monotonic scheme (Skamarock notation)
diff --git a/src/MNH/advection_metsv.f90 b/src/MNH/advection_metsv.f90
index faab6f65418665457148a8301070791f88fca29e..a54dc3d1adc87c4172af4bf4de5dcf79599e94f9 100644
--- a/src/MNH/advection_metsv.f90
+++ b/src/MNH/advection_metsv.f90
@@ -385,7 +385,7 @@ allocate( ZLS ( JIU,JJU,JKU ) )
allocate( ZCPH ( JIU,JJU,JKU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'ADVECTION_METSV' )
CALL MNH_MEM_GET( ZRUCPPM , JIU, JJU, JKU )
CALL MNH_MEM_GET( ZRVCPPM , JIU, JJU, JKU )
@@ -1134,7 +1134,7 @@ deallocate ( ZRUCPPM, ZRVCPPM, ZRWCPPM, ZCFLU, ZCFLV, ZCFLW, ZCFL, ZTH,
ZT, ZEXN, ZLV, ZLS, ZCPH )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'ADVECTION_METSV' )
#endif
!$acc end data
diff --git a/src/MNH/advection_uvw.f90 b/src/MNH/advection_uvw.f90
index c8ad50efa2ae2acceb589a0cbdae1969e6294627..e34a11c7a8b045f710b590513b157c300f614a83 100644
--- a/src/MNH/advection_uvw.f90
+++ b/src/MNH/advection_uvw.f90
@@ -252,7 +252,7 @@ ALLOCATE( ZMYM_RHODJ( IIU,IJU,IKU ) )
ALLOCATE( ZMZM_RHODJ( IIU,IJU,IKU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'ADVECTION_UVW' )
CALL MNH_MEM_GET( ZRUT, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZRVT, IIU, IJU, IKU )
@@ -504,7 +504,7 @@ DEALLOCATE(zrut, zrvt, zrwt, zruct, zrvct, zrwct, zu, zv, zw, &
zmxm_rhodj, zmym_rhodj, zmzm_rhodj )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'ADVECTION_UVW')
#endif
!$acc end data
diff --git a/src/MNH/advecuvw_4th.f90 b/src/MNH/advecuvw_4th.f90
index 2cca135379e793fe3bbb41e54b58f6ad0a9bb7f2..0c57d71765d10a57b09d0a33b1ea8cbf25697b4d 100644
--- a/src/MNH/advecuvw_4th.f90
+++ b/src/MNH/advecuvw_4th.f90
@@ -214,7 +214,7 @@ IJU = SIZE( PUT, 2 )
IKU = SIZE( PUT, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'ADVECUVW_4TH' )
CALL MNH_MEM_GET( ZMEANX, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZMEANY, IIU, IJU, IKU )
@@ -408,7 +408,7 @@ PRWS(:,:,:) = PRWS(:,:,:) - ZTEMP4
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'ADVECUVW_4TH' )
#endif
IF (MPPDB_INITIALIZED) THEN
diff --git a/src/MNH/advecuvw_rk.f90 b/src/MNH/advecuvw_rk.f90
index c46759984a067aeaee31cd496545c507e4da1333..18bbbffa4aff2ea0ac2f0afe26c91f10cf08369f 100644
--- a/src/MNH/advecuvw_rk.f90
+++ b/src/MNH/advecuvw_rk.f90
@@ -302,7 +302,7 @@ ALLOCATE(ZBUT(ISPL-1,ISPL-1))
ALLOCATE(ZBUTS(ISPL))
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'ADVECUVW_RK' )
CALL MNH_MEM_GET( ZUT, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZVT, IIU, IJU, IKU )
@@ -673,7 +673,7 @@ CALL DEL_HALO2_ll(TZHALO2MT_ll)
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'ADVECUVW_RK' )
#endif
IF (MPPDB_INITIALIZED) THEN
diff --git a/src/MNH/advecuvw_weno_k.f90 b/src/MNH/advecuvw_weno_k.f90
index e438471e2461f8fab44414ff5c5605d69514beeb..0dad7467cbdae4f2c9d8060d86d45d5f8c172b20 100644
--- a/src/MNH/advecuvw_weno_k.f90
+++ b/src/MNH/advecuvw_weno_k.f90
@@ -158,7 +158,7 @@ allocate( ZMEAN(IIU, IJU, IKU) )
allocate( ZWORK(IIU, IJU, IKU) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'ADVECUVW_WENO_K' )
CALL MNH_MEM_GET( ZMEAN, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZWORK, IIU, IJU, IKU )
@@ -343,7 +343,7 @@ CASE(3) ! WENO 3
PRWS = PRWS - DZM(WENO_K_2_WZ(PWT,MZF(PRWCT)))
#else
!Pin positions in the pools of MNH memory
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'ADVECUVW_WENO_K WENO3' )
CALL MNH_MEM_GET( ZFPOS1, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZFPOS2, IIU, IJU, IKU )
@@ -466,7 +466,7 @@ CASE(3) ! WENO 3
!$acc end kernels
!
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'ADVECUVW_WENO_K WENO3' )
#endif
!
!
@@ -530,7 +530,7 @@ CASE(5) ! WENO 5
PRWS = PRWS - DZM(ZMEAN)
#else
!Pin positions in the pools of MNH memory
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'ADVECUVW_WENO_K WENO5' )
CALL MNH_MEM_GET( ZFPOS1, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZFPOS2, IIU, IJU, IKU )
@@ -690,7 +690,7 @@ CASE(5) ! WENO 5
!$acc end kernels
!
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'ADVECUVW_WENO_K WENO5')
#endif
!
!
@@ -702,7 +702,7 @@ END SELECT
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since beginning of subroutine
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'ADVECUVW_WENO_K' )
#endif
IF (MPPDB_INITIALIZED) THEN
diff --git a/src/MNH/bl89.f90 b/src/MNH/bl89.f90
index dbd82b24e0a1880ade50638fa82d54a92cf4b21b..6aa37569a9cd0d8f7535837942d61d88dde956f1 100644
--- a/src/MNH/bl89.f90
+++ b/src/MNH/bl89.f90
@@ -213,7 +213,7 @@ if ( krr > 0 ) &
allocate( zsum (size( prm, 1 ) * size( prm, 2 ), size( prm, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'BL89' )
CALL MNH_MEM_GET( zvpt, IIU * IJU, IKT )
CALL MNH_MEM_GET( zdeltvpt, IIU * IJU, IKT )
@@ -581,7 +581,7 @@ end if
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'BL89')
#endif
!$acc end data
diff --git a/src/MNH/condensation.f90 b/src/MNH/condensation.f90
index d4ca85714eadd55b5c6057a7e8db749f2b015fcb..d4bc2503409420b3bd37d62e71b0b84a89c6481a 100644
--- a/src/MNH/condensation.f90
+++ b/src/MNH/condensation.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2002-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2002-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -341,7 +341,7 @@ allocate( JKMK(kku) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'CONDENSATION' )
CALL MNH_MEM_GET( ztlk, kiu, kju, kku )
CALL MNH_MEM_GET( zrt, kiu, kju, kku )
@@ -724,7 +724,7 @@ deallocate( ZGAUTCP, ZGAUCP, ZCRIAUTIP, ZAUTIP, ZGAUTIP, ZGAUIP, INQ1P, ZINCP, Z
deallocate( JKPK,JKMK )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'CONDENSATION' )
#endif
IF (MPPDB_INITIALIZED) THEN
diff --git a/src/MNH/conjgrad.f90 b/src/MNH/conjgrad.f90
index 4db68c47a5b83636ae2d08755db811caf50562ad..ac95a2f412473741ad821941b77023f43f7c0590 100644
--- a/src/MNH/conjgrad.f90
+++ b/src/MNH/conjgrad.f90
@@ -258,7 +258,7 @@ JJU = size(PPHI, 2 )
JKU = size(PPHI, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'CONJGRAD' )
CALL MNH_MEM_GET( ZDELTA, JIU, JJU, JKU )
CALL MNH_MEM_GET( ZP, JIU, JJU, JKU )
@@ -348,7 +348,7 @@ PPHI(:,:,:) = PPHI(:,:,:) + ZLAMBDA * ZP(:,:,:)
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'CONJGRAD' )
#endif
IF (MPPDB_INITIALIZED) THEN
diff --git a/src/MNH/conresol.f90 b/src/MNH/conresol.f90
index 51bb0bb575b1c383a27e4ad0a4df895d78be071c..67c45cf3ea8245f80fa225925e03369c55996f25 100644
--- a/src/MNH/conresol.f90
+++ b/src/MNH/conresol.f90
@@ -246,7 +246,7 @@ JJU = size(PPHI, 2 )
JKU = size(PPHI, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'CONRESOL' )
CALL MNH_MEM_GET( ZDELTA, JIU, JJU, JKU )
CALL MNH_MEM_GET( ZKSI, JIU, JJU, JKU )
@@ -324,7 +324,7 @@ END DO ! end of the loop for the iterative solver
!
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'CONRESOL' )
#endif
IF (MPPDB_INITIALIZED) THEN
diff --git a/src/MNH/conresolz.f90 b/src/MNH/conresolz.f90
index 7e7f5ac60070e6b7363981857913b4e7046b31d0..5c6e732cdbaea084f352458bf810286d1569e6c5 100644
--- a/src/MNH/conresolz.f90
+++ b/src/MNH/conresolz.f90
@@ -257,7 +257,7 @@ JJU = size(PPHI, 2 )
JKU = size(PPHI, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN ( 'CONRESOLZ' )
CALL MNH_MEM_GET( ZDELTA , JIU, JJU, JKU )
CALL MNH_MEM_GET( ZKSI , JIU, JJU, JKU )
@@ -356,7 +356,7 @@ END DO ! end of the loop for the iterative solver
!
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'CONRESOLZ' )
#endif
!$acc end data
diff --git a/src/MNH/dotprod.f90 b/src/MNH/dotprod.f90
index 3b144b8c712b220eead23f67baf24c492be52c6f..6db0b3dea16131b016cb5cbbd52d71f7b177e9ee 100644
--- a/src/MNH/dotprod.f90
+++ b/src/MNH/dotprod.f90
@@ -179,7 +179,7 @@ ENDIF
#ifndef MNH_OPENACC
ALLOCATE(ZDOTPROD(ILBXB:ILBXE,ILBYB:ILBYE))
#else
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'DOTPROD' )
CALL MNH_MEM_GET(ZDOTPROD, ILBXB,ILBXE ,ILBYB,ILBYE )
#endif
!$acc kernels present(ZDOTPROD)
@@ -199,7 +199,7 @@ PDOTPROD = SUM_DD_R2_ll_DEVICE(ZDOTPROD)
#ifndef MNH_OPENACC
DEALLOCATE(ZDOTPROD)
#else
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'DOTPROD' )
#endif
!$acc end data
diff --git a/src/MNH/emoist.f90 b/src/MNH/emoist.f90
index 40fe38c23e9e696c9de67640428a9bce158a0f56..84f2b07638809a3ead57b2dd377d265cfd0c6ed2 100644
--- a/src/MNH/emoist.f90
+++ b/src/MNH/emoist.f90
@@ -158,7 +158,7 @@ allocate( za (JIU,JJU,JKU) )
allocate( zrw (JIU,JJU,JKU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'EMOIST' )
CALL MNH_MEM_GET( za, JIU, JJU, JKU )
CALL MNH_MEM_GET( zrw, JIU, JJU, JKU )
@@ -273,7 +273,7 @@ end if
deallocate( za, zrw )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'EMOIST' )
#endif
!$acc end data
diff --git a/src/MNH/etheta.f90 b/src/MNH/etheta.f90
index 8768a94d17dddda1be9a575bd2adc8bac788c929..a1b332e629e252697e2542528c6c4b7021013919 100644
--- a/src/MNH/etheta.f90
+++ b/src/MNH/etheta.f90
@@ -158,7 +158,7 @@ allocate( za ( size( pthlm, 1 ), size( pthlm, 2 ), size( pthlm, 3 ) ) )
allocate( zrw ( size( pthlm, 1 ), size( pthlm, 2 ), size( pthlm, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'ETHETA' )
CALL MNH_MEM_GET( za , size( pthlm, 1 ), size( pthlm, 2 ), size( pthlm, 3 ) )
CALL MNH_MEM_GET( zrw , size( pthlm, 1 ), size( pthlm, 2 ), size( pthlm, 3 ) )
@@ -256,7 +256,7 @@ end if
deallocate (za, zrw)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'ETHETA' )
#endif
!$acc end data
diff --git a/src/MNH/flat_inv.f90 b/src/MNH/flat_inv.f90
index 5ac8c5c8e0b87b51e1c7c48edf4c34f432d7a0ce..e1408a5b4552853cf312d15bcda98cbe5d22b1a7 100644
--- a/src/MNH/flat_inv.f90
+++ b/src/MNH/flat_inv.f90
@@ -291,7 +291,7 @@ IF (.NOT. L2D) THEN
END IF
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'FLAT_INV' )
CALL MNH_MEM_GET( ZY, SIZE( PY, 1 ), SIZE( PY, 2 ), SIZE( PY, 3 ) )
CALL MNH_MEM_GET( ZAF, SIZE( PBF, 1 ), SIZE( PBF, 2 ), SIZE( PBF, 3 ) )
@@ -686,7 +686,7 @@ DEALLOCATE(ZBETX)
DEALLOCATE(ZGAM)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'FLAT_INV' )
#endif
!$acc end data
diff --git a/src/MNH/flat_invz.f90 b/src/MNH/flat_invz.f90
index f1efeaa0986262bc1c1c169d69025579548f4f82..d430bd07fd6509b6f82ec7cbf881cd4927618c72 100644
--- a/src/MNH/flat_invz.f90
+++ b/src/MNH/flat_invz.f90
@@ -379,7 +379,7 @@ SUBROUTINE FLAT_INVZ(HLBCX,HLBCY,PDXHATM,PDYHATM,PRHOM,PAF,PBF,PCF, &
END IF ! NZ_SPLITTING
#else
!Pin positions in the pools of MNH memory
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'FLAT_INVZ' )
CALL MNH_MEM_GET( ZY_B, SIZE( PY, 1 ), SIZE( PY, 2 ), SIZE( PY, 3 ) )
CALL MNH_MEM_GET( ZAF, SIZE( PBF, 1 ), SIZE( PBF, 2 ), SIZE( PBF, 3 ) )
@@ -1215,7 +1215,7 @@ CALL PRINT_MSG( NVERB_WARNING, 'GEN', 'FLAT_INVZ', 'L2D=T not tested' )
END IF
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'FLAT_INVZ' )
#endif
!JUAN SCALASCA TEST
! CALL MPI_BARRIER(NTRANS_COM, IERROR)
diff --git a/src/MNH/gdiv.f90 b/src/MNH/gdiv.f90
index 445c1d90809a861d2db6fc3bb085dd75319193e7..fcb7638422a9fbc26cf54b45bd63509517cb5970 100644
--- a/src/MNH/gdiv.f90
+++ b/src/MNH/gdiv.f90
@@ -481,7 +481,7 @@ ALLOCATE(ZUC(IIU,IJU,IKU),ZVC(IIU,IJU,IKU),ZWC(IIU,IJU,IKU))
ALLOCATE(Z1(IIU,IJU,IKU),Z2(IIU,IJU,IKU),Z3(IIU,IJU,IKU))
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GDIV' )
CALL MNH_MEM_GET( ZUC, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZVC, IIU, IJU, IKU )
@@ -677,7 +677,7 @@ DEALLOCATE( ZUC, ZVC, ZWC, Z1, Z2, Z3 )
#else
!$acc end data
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GDIV' )
#endif
!$acc end data
diff --git a/src/MNH/gradient_m.f90 b/src/MNH/gradient_m.f90
index 15ced819881101e4ca0b3212c44407fe3bfa4137..2b558170cdf544fd07faa58bcf890a39dc6e33ad 100644
--- a/src/MNH/gradient_m.f90
+++ b/src/MNH/gradient_m.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -306,7 +306,7 @@ IJU = SIZE( PA, 2 )
IKU = SIZE( PA, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GX_M_M' )
CALL MNH_MEM_GET( ZTMP1, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZTMP2, IIU, IJU, IKU )
@@ -343,7 +343,7 @@ END IF
!$acc end data
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GX_M_M' )
!----------------------------------------------------------------------------
!
@@ -482,7 +482,7 @@ IJU = SIZE( PA, 2 )
IKU = SIZE( PA, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GY_M_M' )
CALL MNH_MEM_GET( ZTMP1, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZTMP2, IIU, IJU, IKU )
@@ -520,7 +520,7 @@ ENDIF
!$acc end data
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GY_M_M' )
!----------------------------------------------------------------------------
!
@@ -644,7 +644,7 @@ IJU = SIZE( PA, 2 )
IKU = SIZE( PA, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GZ_M_M' )
CALL MNH_MEM_GET( ZTMP1, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZTMP2, IIU, IJU, IKU )
@@ -665,7 +665,7 @@ CALL MZF_DEVICE( ZTMP2(:,:,:), PGZ_M_M(:,:,:) )
!$acc end data
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GZ_M_M' )
!----------------------------------------------------------------------------
!
diff --git a/src/MNH/gradient_u.f90 b/src/MNH/gradient_u.f90
index 57d1f6c41c592e0b0e7d2564228ef161ccbcafcf..8e65513d3040dd3b5078ce53929348c746d52a53 100644
--- a/src/MNH/gradient_u.f90
+++ b/src/MNH/gradient_u.f90
@@ -224,7 +224,7 @@ JJU = size(pa, 2 )
JKU = size(pa, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GX_U_M' )
CALL MNH_MEM_GET( ztmp1_device, JIU, JJU, JKU )
CALL MNH_MEM_GET( ztmp2_device, JIU, JJU, JKU )
@@ -271,7 +271,7 @@ END IF
!$acc end data
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GX_U_M' )
!$acc end data
@@ -419,7 +419,7 @@ JJU = size(pa, 2 )
JKU = size(pa, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GY_U_UV' )
CALL MNH_MEM_GET( ztmp1_device, JIU, JJU, JKU )
CALL MNH_MEM_GET( ztmp2_device, JIU, JJU, JKU )
@@ -474,7 +474,7 @@ END IF
!$acc end data
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GY_U_UV' )
!$acc end data
@@ -600,7 +600,7 @@ JJU = size(pa, 2 )
JKU = size(pa, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GZ_U_UW' )
CALL MNH_MEM_GET( ztmp1_device, JIU, JJU, JKU )
CALL MNH_MEM_GET( ztmp2_device, JIU, JJU, JKU )
@@ -620,7 +620,7 @@ PGZ_U_UW_DEVICE(:,:,:)= ZTMP1_DEVICE(:,:,:) / ZTMP2_DEVICE(:,:,:)
!$acc end data
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GZ_U_UW' )
!$acc end data
diff --git a/src/MNH/gradient_v.f90 b/src/MNH/gradient_v.f90
index 57ebbd0d967878f9f953a6845cc8d7667398779c..2daf81dcdda27f0d81068ab293532270365a96dc 100644
--- a/src/MNH/gradient_v.f90
+++ b/src/MNH/gradient_v.f90
@@ -225,7 +225,7 @@ JJU = size(pa, 2 )
JKU = size(pa, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GY_V_M' )
CALL MNH_MEM_GET( ztmp1_device, JIU, JJU, JKU )
CALL MNH_MEM_GET( ztmp2_device, JIU, JJU, JKU )
@@ -273,7 +273,7 @@ END IF
!$acc end data
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GY_V_M' )
!$acc end data
@@ -418,7 +418,7 @@ JJU = size(pa, 2 )
JKU = size(pa, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GX_V_UV' )
CALL MNH_MEM_GET( ztmp1_device, JIU, JJU, JKU )
CALL MNH_MEM_GET( ztmp2_device, JIU, JJU, JKU )
@@ -474,7 +474,7 @@ END IF
!$acc end data
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GX_V_UV' )
!$acc end data
@@ -602,7 +602,7 @@ JJU = size(pa, 2 )
JKU = size(pa, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GZ_V_VW' )
CALL MNH_MEM_GET( ztmp1_device, JIU, JJU, JKU )
CALL MNH_MEM_GET( ztmp2_device, JIU, JJU, JKU )
@@ -622,7 +622,7 @@ PGZ_V_VW_DEVICE(:,:,:)= ZTMP1_DEVICE(:,:,:) / ZTMP2_DEVICE(:,:,:)
!$acc end data
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GZ_V_VW' )
!$acc end data
diff --git a/src/MNH/gradient_w.f90 b/src/MNH/gradient_w.f90
index aa095ecb9129e4319a27ccb34e82aaa2cd7897ea..923891109bf989c3bfa2d656554c3c429b7a719a 100644
--- a/src/MNH/gradient_w.f90
+++ b/src/MNH/gradient_w.f90
@@ -200,7 +200,7 @@ JJU = size(pa, 2 )
JKU = size(pa, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GZ_W_M' )
CALL MNH_MEM_GET( ztmp1_device, JIU, JJU, JKU )
CALL MNH_MEM_GET( ztmp2_device, JIU, JJU, JKU )
@@ -220,7 +220,7 @@ PGZ_W_M_DEVICE(:,:,:)= ZTMP1_DEVICE(:,:,:)/ZTMP2_DEVICE(:,:,:)
!$acc end data
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GZ_W_M' )
!$acc end data
@@ -354,7 +354,7 @@ JJU = size(pa, 2 )
JKU = size(pa, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GX_W_UW' )
CALL MNH_MEM_GET( ztmp1_device, JIU, JJU, JKU )
CALL MNH_MEM_GET( ztmp2_device, JIU, JJU, JKU )
@@ -394,7 +394,7 @@ END IF
!$acc end data
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GX_W_UW' )
!$acc end data
@@ -529,7 +529,7 @@ JJU = size(pa, 2 )
JKU = size(pa, 3 )
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GY_W_VW' )
CALL MNH_MEM_GET( ztmp1_device, JIU, JJU, JKU )
CALL MNH_MEM_GET( ztmp2_device, JIU, JJU, JKU )
@@ -569,7 +569,7 @@ END IF
!$acc end data
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GY_W_VW' )
!$acc end data
diff --git a/src/MNH/gravity.f90 b/src/MNH/gravity.f90
index cb778ec60672fe828bf99aac93c12edf12f1cf8d..9ca8f1c82b9c4283f0ee0f1e98bc47ef7ef414c5 100644
--- a/src/MNH/gravity.f90
+++ b/src/MNH/gravity.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -167,7 +167,7 @@ allocate( zwork1(IIU, IJU, IKU ) )
allocate( zwork2(IIU, IJU, IKU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GRAVITY' )
CALL MNH_MEM_GET( zwork1, IIU, IJU, IKU )
CALL MNH_MEM_GET( zwork2, IIU, IJU, IKU )
@@ -269,7 +269,7 @@ END IF
deallocate( zwork1, zwork2 )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GRAVITY' )
#endif
IF (MPPDB_INITIALIZED) THEN
diff --git a/src/MNH/gravity_impl.f90 b/src/MNH/gravity_impl.f90
index 6ae2c343055062b7b9cc20822c57311fe46c4469..9d9104d53b750a9119a3c1b1296a954da1b6dbff 100644
--- a/src/MNH/gravity_impl.f90
+++ b/src/MNH/gravity_impl.f90
@@ -160,7 +160,7 @@ allocate( zth (JIU, JJU, JKU ) )
allocate( zr (JIU, JJU, JKU, JRU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GRAVITY_IMPL' )
CALL MNH_MEM_GET( zrws_grav, JIU, JJU, JKU )
CALL MNH_MEM_GET( zth, JIU, JJU, JKU )
@@ -216,7 +216,7 @@ end if
DEALLOCATE( zrws_grav, zth, zr )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GRAVITY_IMPL' )
#endif
IF (MPPDB_INITIALIZED) THEN
diff --git a/src/MNH/ground_paramn.f90 b/src/MNH/ground_paramn.f90
index 292f3ee77c0a4587d7cab61e0b8c4e03c9350d54..17d20febab736ef4ad6e4f2827181eb8d12c9e99 100644
--- a/src/MNH/ground_paramn.f90
+++ b/src/MNH/ground_paramn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1995-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1995-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -394,7 +394,7 @@ allocate( ZUA (SIZE(PSFTH,1),SIZE(PSFTH,2)) )
allocate( ZVA (SIZE(PSFTH,1),SIZE(PSFTH,2)) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'GROUND_PARAM_n' )
CALL MNH_MEM_GET( ZUA, SIZE(PSFTH,1), SIZE(PSFTH,2) )
CALL MNH_MEM_GET( ZVA, SIZE(PSFTH,1), SIZE(PSFTH,2) )
@@ -863,7 +863,7 @@ END IF
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'GROUND_PARAM_n' )
#endif
!
!==================================================================================
diff --git a/src/MNH/ice4_fast_rg.f90 b/src/MNH/ice4_fast_rg.f90
index 9156a05f0223ffb86824a3747842f66571983a51..a1329e53d11346ed5a0976ba4f5824e340ba8f7f 100644
--- a/src/MNH/ice4_fast_rg.f90
+++ b/src/MNH/ice4_fast_rg.f90
@@ -251,7 +251,7 @@ allocate( zrdryg_init( isize ) )
allocate( zrwetg_init( isize ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'ICE4_FAST_RG' )
CALL MNH_MEM_GET( I1, ISIZE )
CALL MNH_MEM_GET( IVEC1, ISIZE )
@@ -851,7 +851,7 @@ deallocate( ivec1 )
deallocate( i1 )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'ICE4_FAST_RG' )
#endif
!$acc end data
diff --git a/src/MNH/ice4_fast_rs.f90 b/src/MNH/ice4_fast_rs.f90
index 621ad61731ff9415073556c4946b0f873b541385..8ffab3db7a68ca1a2ab1fe376d531e71c6aa2751 100644
--- a/src/MNH/ice4_fast_rs.f90
+++ b/src/MNH/ice4_fast_rs.f90
@@ -212,7 +212,7 @@ allocate( zzw6 ( isize ) )
allocate( zfreez_rate ( isize ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'ICE4_FAST_RS' )
CALL MNH_MEM_GET( I1, ISIZE )
CALL MNH_MEM_GET( IVEC1, ISIZE )
@@ -763,7 +763,7 @@ deallocate( ivec1 )
deallocate( i1 )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'ICE4_FAST_RS' )
#endif
!$acc end data
diff --git a/src/MNH/ice4_rimltc.f90 b/src/MNH/ice4_rimltc.f90
index 650e9394888844a56094ef28b1dba76f8cf25e8a..b07f200dfd73ab05c4d2aa9880975ef778d79064 100644
--- a/src/MNH/ice4_rimltc.f90
+++ b/src/MNH/ice4_rimltc.f90
@@ -108,7 +108,7 @@ isize = Size( pcompute )
allocate( zmask(isize) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'ICE4_RIMLTC' )
CALL MNH_MEM_GET( zmask, isize )
@@ -145,7 +145,7 @@ ENDDO
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'ICE4_RIMLTC' )
#endif
IF (MPPDB_INITIALIZED) THEN
diff --git a/src/MNH/ice4_rrhong.f90 b/src/MNH/ice4_rrhong.f90
index 042c9ed3fec631876270407e70e6ef42a0348ccf..841a0da45ab60d474b4257c7d85e1c26862c7573 100644
--- a/src/MNH/ice4_rrhong.f90
+++ b/src/MNH/ice4_rrhong.f90
@@ -108,7 +108,7 @@ isize = Size( prrt )
allocate( zmask(isize) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'ICE4_RRHONG' )
CALL MNH_MEM_GET( zmask, isize )
@@ -144,7 +144,7 @@ ENDDO
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'ICE4_RRHONG' )
#endif
IF (MPPDB_INITIALIZED) THEN
diff --git a/src/MNH/ice4_sedimentation_split.f90 b/src/MNH/ice4_sedimentation_split.f90
index de1f7577609e07aaae8dd1eaf70fafe5abc8b4f1..38f6ad05de23a77a6fdb2f20f16f7cd72de0b2ac 100644
--- a/src/MNH/ice4_sedimentation_split.f90
+++ b/src/MNH/ice4_sedimentation_split.f90
@@ -224,7 +224,7 @@ allocate( zrgt (size( prhodref, 1 ), size( prhodref, 2 ), size( prhodref, 3 )
allocate( zrht (size( prhodref, 1 ), size( prhodref, 2 ), size( prhodref, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'ICE4_SEDIMENTATION_SPLIT' )
CALL MNH_MEM_GET( zconc_tmp, KIT , KJT )
@@ -469,7 +469,7 @@ END IF
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'ICE4_SEDIMENTATION_SPLIT' )
#endif
!$acc end data
@@ -576,7 +576,7 @@ allocate( zremaint(size( prhodref, 1 ), size( prhodref, 2 ) ) )
allocate( zwsed(size( prhodref, 1 ), size( prhodref, 2 ), 0 : size( prhodref, 3 ) + 1 ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'INTERNAL_SEDIM_SPLI' )
CALL MNH_MEM_GET( i1, kit * kjt * kkt )
CALL MNH_MEM_GET( i2, kit * kjt * kkt )
@@ -810,7 +810,7 @@ deallocate( i2 )
deallocate( i1 )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'INTERNAL_SEDIM_SPLI' )
#endif
!$acc end data
diff --git a/src/MNH/ice4_tendencies.f90 b/src/MNH/ice4_tendencies.f90
index 7d41eef25c0cf29d82ff09c16c28394cc98d70ad..ad36fcb3b282c47f1659d04131bdf15edd3ec6d5 100644
--- a/src/MNH/ice4_tendencies.f90
+++ b/src/MNH/ice4_tendencies.f90
@@ -423,7 +423,7 @@ allocate( zrgt3d(kit, kjt, kkt ) )
allocate( zrht3d(kit, kjt, kkt ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'ICE4_TENDENCIES' )
allocate( gldcompute(isize ) )
@@ -1008,7 +1008,7 @@ deallocate( zwetg )
deallocate( gldcompute )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'ICE4_TENDENCIES' )
deallocate( gldcompute )
#endif
diff --git a/src/MNH/ice_adjust.f90 b/src/MNH/ice_adjust.f90
index 77b7e509c646f432c28d8566ebbf6205b1246645..d0592d2519b8d7085e9d706c6ca60d391107ff21 100644
--- a/src/MNH/ice_adjust.f90
+++ b/src/MNH/ice_adjust.f90
@@ -387,7 +387,7 @@ allocate( zhr (IIU, IJU, IKU ) )
allocate( ZTEMP_BUD (IIU, IJU, IKU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'ICE_ADJUST' )
CALL MNH_MEM_GET( gtemp , IIU, IJU, IKU )
CALL MNH_MEM_GET( zsigs , IIU, IJU, IKU )
@@ -711,7 +711,7 @@ end if
deallocate( gtemp, zsigs, zsrcs, zt, zrv, zrc, zri, zcph, zlv, zls, zw1, zw2, zcriaut, zhcf, zhr , ZTEMP_BUD )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'ICE_ADJUST' )
#endif
!------------------------------------------------------------------------------
!
diff --git a/src/MNH/mass_leak.f90 b/src/MNH/mass_leak.f90
index 5dbbe0e5be5703aa61076158b65b085611ea5233..1196ac5bcaf6b367db9207ca92fbe6c11ef92efb 100644
--- a/src/MNH/mass_leak.f90
+++ b/src/MNH/mass_leak.f90
@@ -202,7 +202,7 @@ IF( HLBCY(1) /= 'CYCL' ) THEN
END IF
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'MASS_LEAK' )
IF( HLBCX(1) /= 'CYCL' ) THEN
CALL MNH_MEM_GET(ZLEAK_W_2D , IIB ,IIB , IJB,IJE )
CALL MNH_MEM_GET(ZLEAK_E_2D , IIE+1,IIE+1 , IJB,IJE )
@@ -332,7 +332,7 @@ IF( HLBCY(1) /= 'CYCL' ) THEN
END IF
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'MASS_LEAK' )
#endif
!$acc end data
diff --git a/src/MNH/mode_prandtl.f90 b/src/MNH/mode_prandtl.f90
index e8e8bb1cbafb99793e6025d2e8c44e1105982534..126d3d898298b3282409101a869ad9c876a17f1a 100644
--- a/src/MNH/mode_prandtl.f90
+++ b/src/MNH/mode_prandtl.f90
@@ -47,7 +47,7 @@ REAL, DIMENSION(:,:,:), pointer,contiguous :: ZCOEF
#ifdef MNH_OPENACC
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'SMOOTH_TURB_FUNCT' )
CALL MNH_MEM_GET( ZCOEF , SIZE(PF,1),SIZE(PF,2),SIZE(PF,3) )
#endif
@@ -71,7 +71,7 @@ PF(:,:,:) = ZCOEF(:,:,:) * PF &
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'SMOOTH_TURB_FUNCT' )
#endif
END SUBROUTINE SMOOTH_TURB_FUNCT
@@ -119,7 +119,7 @@ allocate( zw2 ( size( predth1, 1 ), size( predth1, 2 ), size( predth1, 3 )
allocate( gphi3logic( size( predth1, 1 ), size( predth1, 2 ), size( predth1, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'PHI3' )
CALL MNH_MEM_GET( zw1 , JIU,JJU,JKU )
CALL MNH_MEM_GET( zw2 , JIU,JJU,JKU )
@@ -197,7 +197,7 @@ PPHI3(:,:,IKE+1)=PPHI3(:,:,IKE)
deallocate ( zw1,zw2,gphi3logic)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'PHI3' )
#endif
!$acc end data
@@ -236,7 +236,7 @@ SUBROUTINE PSI_SV(PREDTH1,PREDR1,PREDS1,PRED2THS,PRED2RS,PPHI3,PPSI3,PPSI_SV)
allocate( gpsilogic( size( pred2ths, 1 ), size( pred2ths, 2 ), size( pred2ths, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'PSI_SV' )
CALL MNH_MEM_GET( gpsilogic , size( pred2ths, 1 ), size( pred2ths, 2 ), size( pred2ths, 3 ) )
#endif
@@ -276,7 +276,7 @@ END DO
deallocate( gpsilogic )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'PSI_SV' )
#endif
!$acc end data
@@ -481,7 +481,7 @@ SUBROUTINE D_PHI3DTDZ2_O_DDTDZ(PPHI3,PREDTH1,PREDR1,PRED2TH3,PRED2THR3,PDTDZ,HTU
#ifdef MNH_OPENACC
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'D_PHI3DTDZ2_O_DDTDZ' )
CALL MNH_MEM_GET( ztmp1_device, size( predth1, 1 ), size( predth1, 2 ), size( predth1, 3 ) )
#endif
@@ -563,7 +563,7 @@ PD_PHI3DTDZ2_O_DDTDZ(:,:,IKE+1)=PD_PHI3DTDZ2_O_DDTDZ(:,:,IKE)
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'D_PHI3DTDZ2_O_DDTDZ')
#endif
!$acc end data
@@ -689,7 +689,7 @@ call Print_msg( NVERB_WARNING, 'GEN', 'M3_WTH_W2TH', 'OpenACC: not yet tested' )
allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'M3_WTH_W2TH' )
CALL MNH_MEM_GET(ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
#endif
@@ -717,7 +717,7 @@ PM3_WTH_W2TH(:,:,IKE+1)=PM3_WTH_W2TH(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'M3_WTH_W2TH' )
#endif
@@ -760,7 +760,7 @@ call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_WTH_W2TH_O_DDTDZ', 'OpenACC: not yet
#ifndef MNH_OPENACC
allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'D_M3_WTH_W2TH_O_DDTDZ' )
CALL MNH_MEM_GET(ztmp1_device, size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
#endif
@@ -799,7 +799,7 @@ PD_M3_WTH_W2TH_O_DDTDZ(:,:,IKE+1)=PD_M3_WTH_W2TH_O_DDTDZ(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'D_M3_WTH_W2TH_O_DDTDZ' )
#endif
@@ -841,7 +841,7 @@ call Print_msg( NVERB_WARNING, 'GEN', 'M3_WTH_W2R', 'OpenACC: not yet tested' )
#ifndef MNH_OPENACC
allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'M3_WTH_W2R' )
CALL MNH_MEM_GET(ztmp1_device, size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
#endif
@@ -869,7 +869,7 @@ PM3_WTH_W2R(:,:,IKE+1)=PM3_WTH_W2R(:,:,IKE)
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'M3_WTH_W2R' )
#endif
@@ -913,7 +913,7 @@ call Print_msg( NVERB_WARNING, 'GEN', 'D_M3_WTH_W2R_O_DDTDZ', 'OpenACC: not yet
allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'D_M3_WTH_W2R_O_DDTDZ' )
CALL MNH_MEM_GET(ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
#endif
@@ -942,7 +942,7 @@ PD_M3_WTH_W2R_O_DDTDZ(:,:,IKE+1)=PD_M3_WTH_W2R_O_DDTDZ(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'D_M3_WTH_W2R_O_DDTDZ' )
#endif
#ifndef MNH_OPENACC
@@ -988,7 +988,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'M3_WTH_WR2' )
CALL MNH_MEM_GET(ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ))
CALL MNH_MEM_GET(ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ))
@@ -1029,7 +1029,7 @@ PM3_WTH_WR2(:,:,IKE+1)=PM3_WTH_WR2(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'M3_WTH_WR2' )
#endif
#ifndef MNH_OPENACC
@@ -1078,7 +1078,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'D_M3_WTH_WR2_O_DDTDZ' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -1121,7 +1121,7 @@ PD_M3_WTH_WR2_O_DDTDZ(:,:,IKE+1)=PD_M3_WTH_WR2_O_DDTDZ(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'D_M3_WTH_WR2_O_DDTDZ' )
#endif
#ifndef MNH_OPENACC
@@ -1167,7 +1167,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'M3_WTH_WTHR' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -1200,7 +1200,7 @@ PM3_WTH_WTHR(:,:,IKE+1)=PM3_WTH_WTHR(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'M3_WTH_WTHR' )
#endif
#ifndef MNH_OPENACC
@@ -1286,7 +1286,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'M3_TH2_W2TH' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -1319,7 +1319,7 @@ PM3_TH2_W2TH(:,:,IKE+1)=PM3_TH2_W2TH(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'M3_TH2_W2TH' )
#endif
#ifndef MNH_OPENACC
@@ -1363,7 +1363,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'D_M3_TH2_W2TH_O_DDTDZ' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -1431,7 +1431,7 @@ PD_M3_TH2_W2TH_O_DDTDZ(:,:,IKE+1)=PD_M3_TH2_W2TH_O_DDTDZ(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'D_M3_TH2_W2TH_O_DDTDZ' )
#endif
#ifndef MNH_OPENACC
@@ -1473,7 +1473,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'M3_TH2_WTH2' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -1513,7 +1513,7 @@ PM3_TH2_WTH2(:,:,IKE+1)=PM3_TH2_WTH2(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'M3_TH2_WTH2' )
#endif
#ifndef MNH_OPENACC
@@ -1558,7 +1558,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'D_M3_TH2_WTH2_O_DDTDZ' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -1603,7 +1603,7 @@ PD_M3_TH2_WTH2_O_DDTDZ(:,:,IKE+1)=PD_M3_TH2_WTH2_O_DDTDZ(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'D_M3_TH2_WTH2_O_DDTDZ')
#endif
#ifndef MNH_OPENACC
@@ -1648,7 +1648,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'M3_TH2_W2R' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -1692,7 +1692,7 @@ PM3_TH2_W2R(:,:,IKE+1)=PM3_TH2_W2R(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'M3_TH2_W2R' )
#endif
#ifndef MNH_OPENACC
@@ -1738,7 +1738,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'D_M3_TH2_W2R_O_DDTDZ' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -1780,7 +1780,7 @@ PD_M3_TH2_W2R_O_DDTDZ(:,:,IKE+1)=PD_M3_TH2_W2R_O_DDTDZ(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'D_M3_TH2_W2R_O_DDTDZ' )
#endif
#ifndef MNH_OPENACC
@@ -1823,7 +1823,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'M3_TH2_WR2' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -1867,7 +1867,7 @@ PM3_TH2_WR2(:,:,IKE+1)=PM3_TH2_WR2(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'M3_TH2_WR2' )
#endif
#ifndef MNH_OPENACC
@@ -1911,7 +1911,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'D_M3_TH2_WR2_O_DDTDZ' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -1958,7 +1958,7 @@ PD_M3_TH2_WR2_O_DDTDZ(:,:,IKE+1)=PD_M3_TH2_WR2_O_DDTDZ(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'D_M3_TH2_WR2_O_DDTDZ' )
#endif
#ifndef MNH_OPENACC
@@ -2002,7 +2002,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'M3_TH2_WTHR' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -2035,7 +2035,7 @@ PM3_TH2_WTHR(:,:,IKE+1)=PM3_TH2_WTHR(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'M3_TH2_WTHR' )
#endif
#ifndef MNH_OPENACC
@@ -2080,7 +2080,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'D_M3_TH2_WTHR_O_DDTDZ' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -2114,7 +2114,7 @@ PD_M3_TH2_WTHR_O_DDTDZ(:,:,IKE+1)=PD_M3_TH2_WTHR_O_DDTDZ(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'D_M3_TH2_WTHR_O_DDTDZ' )
#endif
#ifndef MNH_OPENACC
@@ -2156,7 +2156,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'M3_THR_WTHR' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -2189,7 +2189,7 @@ PM3_THR_WTHR(:,:,IKE+1)=PM3_THR_WTHR(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'M3_THR_WTHR' )
#endif
#ifndef MNH_OPENACC
@@ -2233,7 +2233,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'D_M3_THR_WTHR_O_DDTDZ' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -2266,7 +2266,7 @@ PD_M3_THR_WTHR_O_DDTDZ(:,:,IKE+1)=PD_M3_THR_WTHR_O_DDTDZ(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'D_M3_THR_WTHR_O_DDTDZ' )
#endif
#ifndef MNH_OPENACC
@@ -2310,7 +2310,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'M3_THR_WTH2' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -2343,7 +2343,7 @@ PM3_THR_WTH2(:,:,IKE+1)=PM3_THR_WTH2(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'M3_THR_WTH2' )
#endif
#ifndef MNH_OPENACC
@@ -2388,7 +2388,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'D_M3_THR_WTH2_O_DDTDZ' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -2434,7 +2434,7 @@ PD_M3_THR_WTH2_O_DDTDZ(:,:,IKE+1)=PD_M3_THR_WTH2_O_DDTDZ(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'D_M3_THR_WTH2_O_DDTDZ' )
#endif
#ifndef MNH_OPENACC
@@ -2478,7 +2478,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'D_M3_THR_WTH2_O_DDRDZ' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -2514,7 +2514,7 @@ PD_M3_THR_WTH2_O_DDRDZ(:,:,IKE+1)=PD_M3_THR_WTH2_O_DDRDZ(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'D_M3_THR_WTH2_O_DDRDZ' )
#endif
#ifndef MNH_OPENACC
@@ -2557,7 +2557,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'M3_THR_W2TH' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -2590,7 +2590,7 @@ PM3_THR_W2TH(:,:,IKE+1)=PM3_THR_W2TH(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'M3_THR_W2TH' )
#endif
#ifndef MNH_OPENACC
@@ -2636,7 +2636,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'D_M3_THR_W2TH_O_DDTDZ' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -2681,6 +2681,11 @@ PD_M3_THR_W2TH_O_DDTDZ(:,:,IKE+1)=PD_M3_THR_W2TH_O_DDTDZ(:,:,IKE)
!$acc end data
+#ifdef MNH_OPENACC
+!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
+CALL MNH_MEM_RELEASE( 'D_M3_THR_W2TH_O_DDTDZ' )
+#endif
+
#ifndef MNH_OPENACC
END FUNCTION D_M3_THR_W2TH_O_DDTDZ
#else
@@ -2721,7 +2726,7 @@ allocate( ztmp1_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
allocate( ztmp2_device(size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'D_M3_THR_W2TH_O_DDRDZ' )
CALL MNH_MEM_GET( ztmp1_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
CALL MNH_MEM_GET( ztmp2_device,size( pd, 1 ), size( pd, 2 ), size( pd, 3 ) )
@@ -2765,7 +2770,7 @@ PD_M3_THR_W2TH_O_DDRDZ(:,:,IKE+1)=PD_M3_THR_W2TH_O_DDRDZ(:,:,IKE)
!$acc end data
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'D_M3_THR_W2TH_O_DDRDZ' )
#endif
#ifndef MNH_OPENACC
diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index e8530e4bc222b3e1677c0fc078c9a9fc88b6d2e1..ab883121e072c6a3369736d6f8913a0bf17eb647 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -594,7 +594,7 @@ allocate( ZRWS (SIZE(XTHT,1),SIZE(XTHT,2),SIZE(XTHT,3)) )
allocate( ZPABST(SIZE(XTHT,1),SIZE(XTHT,2),SIZE(XTHT,3)) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'MODEL_n 1')
CALL MNH_MEM_GET( ZRUS, SIZE( XTHT, 1 ), SIZE( XTHT, 2 ), SIZE( XTHT, 3 ) )
CALL MNH_MEM_GET( ZRVS, SIZE( XTHT, 1 ), SIZE( XTHT, 2 ), SIZE( XTHT, 3 ) )
CALL MNH_MEM_GET( ZRWS, SIZE( XTHT, 1 ), SIZE( XTHT, 2 ), SIZE( XTHT, 3 ) )
@@ -1996,7 +1996,7 @@ IF (CCLOUD /= 'NONE' .AND. CELEC == 'NONE') THEN
ALLOCATE (ZSEA(SIZE(XRHODJ,1),SIZE(XRHODJ,2)))
ALLOCATE (ZTOWN(SIZE(XRHODJ,1),SIZE(XRHODJ,2)))
#else
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'MODEL_n 2')
CALL MNH_MEM_GET( ZSEA, SIZE( XRHODJ, 1 ), SIZE( XRHODJ, 2 ) )
CALL MNH_MEM_GET( ZTOWN, SIZE( XRHODJ, 1 ), SIZE( XRHODJ, 2 ) )
@@ -2027,7 +2027,7 @@ IF (CCLOUD /= 'NONE' .AND. CELEC == 'NONE') THEN
DEALLOCATE(ZTOWN)
DEALLOCATE(ZSEA)
#else
- CALL MNH_MEM_RELEASE() !Release ZSEA and ZTOWN
+ CALL MNH_MEM_RELEASE( 'MODEL_n 2' ) !Release ZSEA and ZTOWN
#endif
ELSE
CALL RESOLVED_CLOUD ( CCLOUD, CACTCCN, CSCONV, CMF_CLOUD, NRR, NSPLITR, &
@@ -2116,7 +2116,7 @@ IF (CELEC /= 'NONE' .AND. (CCLOUD(1:3) == 'ICE')) THEN
ALLOCATE (ZSEA(SIZE(XRHODJ,1),SIZE(XRHODJ,2)))
ALLOCATE (ZTOWN(SIZE(XRHODJ,1),SIZE(XRHODJ,2)))
#else
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'MODEL_n 3' )
CALL MNH_MEM_GET( ZSEA, SIZE( XRHODJ, 1 ), SIZE( XRHODJ, 2 ) )
CALL MNH_MEM_GET( ZTOWN, SIZE( XRHODJ, 1 ), SIZE( XRHODJ, 2 ) )
@@ -2138,7 +2138,7 @@ IF (CELEC /= 'NONE' .AND. (CCLOUD(1:3) == 'ICE')) THEN
DEALLOCATE(ZTOWN)
DEALLOCATE(ZSEA)
#else
- CALL MNH_MEM_RELEASE() !Release ZSEA and ZTOWN
+ CALL MNH_MEM_RELEASE( 'MODEL_n 3' ) !Release ZSEA and ZTOWN
#endif
ELSE
CALL RESOLVED_ELEC_n (CCLOUD, CSCONV, CMF_CLOUD, &
@@ -2252,7 +2252,7 @@ IF (LFLYER) THEN
#ifndef MNH_OPENACC
ALLOCATE(ZSEA(IIU,IJU))
#else
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'MODEL_n 4' )
CALL MNH_MEM_GET( ZSEA, IIU, IJU )
#endif
@@ -2265,7 +2265,7 @@ IF (LFLYER) THEN
#ifndef MNH_OPENACC
DEALLOCATE(ZSEA)
#else
- CALL MNH_MEM_RELEASE() !Release ZSEA
+ CALL MNH_MEM_RELEASE( 'MODEL_n 4' ) !Release ZSEA
#endif
ELSE
CALL AIRCRAFT_BALLOON(XTSTEP, &
@@ -2295,7 +2295,7 @@ IF (LPROFILER) THEN
#ifndef MNH_OPENACC
ALLOCATE(ZSEA(IIU,IJU))
#else
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'MODEL_n 5' )
CALL MNH_MEM_GET( ZSEA, IIU, IJU )
#endif
@@ -2308,7 +2308,7 @@ IF (LPROFILER) THEN
#ifndef MNH_OPENACC
DEALLOCATE(ZSEA)
#else
- CALL MNH_MEM_RELEASE() !Release ZSEA
+ CALL MNH_MEM_RELEASE( 'MODEL_n 5' ) !Release ZSEA
#endif
ELSE
CALL PROFILER_n(XTSTEP, &
@@ -2516,7 +2516,7 @@ END IF
DEALLOCATE( ZRUS,ZRVS,ZRWS )
DEALLOCATE( ZPABST )
#else
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'MODEL_n 1' )
#endif
END SUBROUTINE MODEL_n
diff --git a/src/MNH/p_abs.f90 b/src/MNH/p_abs.f90
index 16175935074231790965ef32473e124cc74e2783..9e9159ed94c92d68ad809f49b54a2bf050657b6a 100644
--- a/src/MNH/p_abs.f90
+++ b/src/MNH/p_abs.f90
@@ -248,7 +248,7 @@ ALLOCATE(ZWATERMASST_2D(IIB:IIE,IJB:IJE))
ALLOCATE (ZRTOT(IIU,IJU,IKU), ZRHOREF(IIU,IJU,IKU), ZWORK(IIU,IJU,IKU))
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'P_ABS' )
#ifdef MNH_COMPILER_CCE_1403 && defined(MNH_BITREP_OMP)
CALL MNH_MEM_GET( PEXNREF_BR, IIB, IIE, IJB, IJE, IKB, IKE )
@@ -509,7 +509,7 @@ DEALLOCATE(ZMASS_O_PI_2D,ZMASSGUESS_2D,ZWATERMASST_2D)
DEALLOCATE (ZRTOT, ZRHOREF, ZWORK)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'P_ABS' )
#endif
IF (MPPDB_INITIALIZED) THEN
CALL MPPDB_CHECK(PPHIT,"P_ABS end:PPHIT")
diff --git a/src/MNH/ppm.f90 b/src/MNH/ppm.f90
index 5e170e440b6cc9d1097df11a134d25934e86ffd9..414b1bcb1434f9f834eab36a7be680f236b14fa0 100644
--- a/src/MNH/ppm.f90
+++ b/src/MNH/ppm.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -437,7 +437,7 @@ iku = size( PSRC, 3 )
#ifdef MNH_OPENACC
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'PPM_01_X' )
CALL MNH_MEM_GET( ZQL, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZQR, IIU, IJU, IKU )
@@ -924,7 +924,7 @@ END IF
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'PPM_01_X' )
#endif
CONTAINS
@@ -1128,7 +1128,7 @@ iku = size( PSRC, 3 )
#ifdef MNH_OPENACC
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'PPM_01_Y' )
CALL MNH_MEM_GET( ZQL, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZQR, IIU, IJU, IKU )
@@ -1680,7 +1680,7 @@ END IF
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'PPM_01_Y' )
#endif
CONTAINS
@@ -1878,7 +1878,7 @@ iku = size( PSRC, 3 )
#ifdef MNH_OPENACC
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'PPM_01_Z' )
CALL MNH_MEM_GET( ZQL, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZQR, IIU, IJU, IKU )
@@ -2139,7 +2139,7 @@ END IF
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'PPM_01_Z' )
#endif
CONTAINS
@@ -2328,7 +2328,7 @@ iku = size( PSRC, 3 )
#ifdef MNH_OPENACC
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'PPM_S0_X' )
CALL MNH_MEM_GET( ZFPOS, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZFNEG, IIU, IJU, IKU )
@@ -2621,7 +2621,7 @@ END IF
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'PPM_S0_X' )
#endif
#ifdef MNH_OPENACC
@@ -2744,7 +2744,7 @@ iku = size( PSRC, 3 )
#ifdef MNH_OPENACC
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'PPM_S0_Y' )
CALL MNH_MEM_GET( ZFPOS, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZFNEG, IIU, IJU, IKU )
@@ -3044,7 +3044,7 @@ END IF !not L2D
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'PPM_S0_Y' )
#endif
#ifdef MNH_OPENACC
@@ -3148,7 +3148,7 @@ iku = size( PSRC, 3 )
#ifdef MNH_OPENACC
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'PPM_S0_Z' )
CALL MNH_MEM_GET( ZFPOS, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZFNEG, IIU, IJU, IKU )
@@ -3269,7 +3269,7 @@ END IF
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'PPM_S0_Z' )
#endif
#ifdef MNH_OPENACC
@@ -3395,7 +3395,7 @@ iku = size( PSRC, 3 )
#ifdef MNH_OPENACC
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'PPM_S1_X' )
CALL MNH_MEM_GET( ZPHAT, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZRUT, IIU, IJU, IKU )
@@ -3602,7 +3602,7 @@ END IF
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'PPM_S1_X' )
#endif
#ifdef MNH_OPENACC
@@ -3731,7 +3731,7 @@ iku = size( PSRC, 3 )
#ifdef MNH_OPENACC
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'PPM_S1_Y' )
CALL MNH_MEM_GET( ZPHAT, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZRVT, IIU, IJU, IKU )
@@ -3941,7 +3941,7 @@ END IF !not L2D
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'PPM_S1_Y' )
#endif
#ifdef MNH_OPENACC
@@ -4064,7 +4064,7 @@ iku = size( PSRC, 3 )
#ifdef MNH_OPENACC
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'PPM_S1_Z' )
CALL MNH_MEM_GET( ZPHAT, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZRVT, IIU, IJU, IKU )
@@ -4335,7 +4335,7 @@ END IF
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'PPM_S1_Z' )
#endif
#ifdef MNH_OPENACC
diff --git a/src/MNH/prandtl.f90 b/src/MNH/prandtl.f90
index f2cc9f810f3a36a4769bae4ad7b07f094e0a44bb..7d11515468c2f9bcc09a52da8f6db26ea6b10a78 100644
--- a/src/MNH/prandtl.f90
+++ b/src/MNH/prandtl.f90
@@ -337,7 +337,7 @@ allocate( zw1(JIU,JJU,JKU ) )
allocate( zw2(JIU,JJU,JKU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'PRANDTL' )
CALL MNH_MEM_GET( zw1, JIU,JJU,JKU )
CALL MNH_MEM_GET( zw2, JIU,JJU,JKU )
@@ -1230,7 +1230,7 @@ end if
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-call MNH_MEM_RELEASE()
+call MNH_MEM_RELEASE( 'PRANDTL' )
#else
DEALLOCATE(ZW1,ZW2)
#endif
diff --git a/src/MNH/pressurez.f90 b/src/MNH/pressurez.f90
index 74f6fec9ae52c0a9132d856c70f7fa100a87ed20..128661e9b7df7476f9332362561b975e116704b5 100644
--- a/src/MNH/pressurez.f90
+++ b/src/MNH/pressurez.f90
@@ -495,7 +495,7 @@ GPRVREF0 = ( SIZE(PRVREF,1) == 0 )
!
#ifdef MNH_OPENACC
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'PRESSUREZ' )
CALL MNH_MEM_GET( ZDV_SOURCE, IIU, IJU, IKU )
CALL MNH_MEM_GET( ZTHETAV, IIU, IJU, IKU )
@@ -1190,7 +1190,7 @@ IF (MPPDB_INITIALIZED) THEN
END IF
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'PRESSUREZ' )
#endif
!$acc end data
diff --git a/src/MNH/rain_ice.f90 b/src/MNH/rain_ice.f90
index 2c9d9a8347ba274c57b44559115f7f6c7a365657..cbb91af2c959f3193a2afddd18226e86facbf507 100644
--- a/src/MNH/rain_ice.f90
+++ b/src/MNH/rain_ice.f90
@@ -478,7 +478,7 @@ IIJKU = IIU * IJU * IKU
ALLOCATE( I1(SIZE(PEXNREF)), I2(SIZE(PEXNREF)), I3(SIZE(PEXNREF)) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'RAIN_ICE 1' )
CALL MNH_MEM_GET( I1, IIJKU )
CALL MNH_MEM_GET( I2, IIJKU )
@@ -637,7 +637,7 @@ IF( IMICRO >= 0 ) THEN
END IF
#else
!Pin positions in the pools of MNH memory
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'RAIN_ICE 2' )
CALL MNH_MEM_GET(ZRVT,IMICRO)
CALL MNH_MEM_GET(ZRCT,IMICRO)
@@ -1224,7 +1224,7 @@ IF( IMICRO >= 0 ) THEN
DEALLOCATE(ZHLC_LRCLOCAL)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'RAIN_ICE 2')
#endif
END IF
!
@@ -1292,7 +1292,7 @@ DEALLOCATE ( I1,I2,I3 )
DEALLOCATE ( GMICRO, ZRR, ZRS, ZRG, ZT )
#else
!Release all memory allocated with MNH_MEM_GET calls since beginning of subroutine
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'RAIN_ICE 1' )
#endif
!$acc end data
diff --git a/src/MNH/rain_ice_fast_rh.f90 b/src/MNH/rain_ice_fast_rh.f90
index a2d969e71ff3eb5aebc331e8a9dc4af9f9ffc46a..83e4237fd3ee0cf3518ba7331ac141b49d3fae26 100644
--- a/src/MNH/rain_ice_fast_rh.f90
+++ b/src/MNH/rain_ice_fast_rh.f90
@@ -252,7 +252,7 @@ CALL MNH_MEM_GET( ZZW1, SIZE(PRHODREF), 7 )
ALLOCATE(IVEC2(IGWET))
#else
!Pin positions in the pools of MNH memory
- CALL MNH_MEM_POSITION_PIN( 'RAIN_ICE_FAST_RG 2' )
+ CALL MNH_MEM_POSITION_PIN( 'RAIN_ICE_FAST_RH 2' )
CALL MNH_MEM_GET( ZVECLBDAH, IGWET )
CALL MNH_MEM_GET( ZVECLBDAS, IGWET )
diff --git a/src/MNH/rain_ice_nucleation.f90 b/src/MNH/rain_ice_nucleation.f90
index dbac01ac7c272af6e32df903580505fd626d2c53..b96befdb0827ea5b9c3fe4bfb5fd3767a671d67f 100644
--- a/src/MNH/rain_ice_nucleation.f90
+++ b/src/MNH/rain_ice_nucleation.f90
@@ -144,7 +144,7 @@ allocate( gnegt( JIU,JJU,JKU ) )
allocate( zw ( JIU,JJU,JKU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'RAIN_ICE_NUCLEATION 1' )
CALL MNH_MEM_GET( i1, JIJKU )
CALL MNH_MEM_GET( i2, JIJKU )
@@ -197,7 +197,7 @@ IF( INEGT >= 1 ) THEN
ALLOCATE(ZSSI(INEGT))
#else
!Pin positions in the pools of MNH memory
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'RAIN_ICE_NUCLEATION 2' )
CALL MNH_MEM_GET( ZRVT, INEGT )
CALL MNH_MEM_GET( ZCIT, INEGT )
@@ -356,7 +356,7 @@ END IF
DEALLOCATE(ZRVT)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'RAIN_ICE_NUCLEATION 2' )
#endif
END IF
!
@@ -380,7 +380,7 @@ END IF
deallocate (i1, i2, i3, gnegt, zw )
#else
!Release all memory allocated with MNH_MEM_GET calls since beginning of subroutine
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'RAIN_ICE_NUCLEATION 1' )
#endif
!$acc end data
diff --git a/src/MNH/rain_ice_red.f90 b/src/MNH/rain_ice_red.f90
index 221cd5fc7304a0ee7dd5b8d632ed85db8da4d3eb..8302bd5e8505f7591eae74a0deedf64fc8328633 100644
--- a/src/MNH/rain_ice_red.f90
+++ b/src/MNH/rain_ice_red.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1995-2021 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1995-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -947,7 +947,7 @@ allocate( zw_rhs(jiu, jju, jku ) )
allocate( zw_ths(jiu, jju, jku ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'RAIN_ICE_RED' )
CALL MNH_MEM_GET( i1, imicro )
CALL MNH_MEM_GET( i2, imicro )
@@ -2834,7 +2834,7 @@ ENDIF
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'RAIN_ICE_RED' )
#endif
IF (MPPDB_INITIALIZED) THEN
@@ -2908,7 +2908,7 @@ CONTAINS
allocate( zw(size( prv, 1 ), size( prv, 2 ), size( prv, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'CORRECT_NEGATIVITIES' )
CALL MNH_MEM_GET( gw, size( prv, 1 ), size( prv, 2 ), size( prv, 3 ) )
CALL MNH_MEM_GET( zw, size( prv, 1 ), size( prv, 2 ), size( prv, 3 ) )
@@ -3018,7 +3018,7 @@ CONTAINS
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'CORRECT_NEGATIVITIES' )
#endif
!$acc end data
diff --git a/src/MNH/rain_ice_sedimentation_split.f90 b/src/MNH/rain_ice_sedimentation_split.f90
index 68c2ea95dd51c158d701d1ca4feecd07ac40dea5..c9478caa3c5489dead0419653fc98dca4ecd3db5 100644
--- a/src/MNH/rain_ice_sedimentation_split.f90
+++ b/src/MNH/rain_ice_sedimentation_split.f90
@@ -203,7 +203,7 @@ ALLOCATE( IG1(IIJKU), IG2(IIJKU), IG3(IIJKU) )
ALLOCATE( IH1(IIJKU), IH2(IIJKU), IH3(IIJKU) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'RAIN_ICE_SEDIMENTATION_SPLIT' )
CALL MNH_MEM_GET(IC1,IIJKU)
CALL MNH_MEM_GET(IC2,IIJKU)
@@ -739,7 +739,7 @@ DEALLOCATE(ZRAY, ZLBC, ZFSEDC,ZPRCS, ZPRRS, ZPRSS, ZPRGS, ZPRHS, ZW)
DEALLOCATE(ZWSED)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'RAIN_ICE_SEDIMENTATION_SPLIT' )
#endif
!$acc end data
diff --git a/src/MNH/resolved_cloud.f90 b/src/MNH/resolved_cloud.f90
index 2519f66d3806253ca51f69107499e96732bc81cf..071c83e1fe0ee18d109ffdf4aa863d0da1594c19 100644
--- a/src/MNH/resolved_cloud.f90
+++ b/src/MNH/resolved_cloud.f90
@@ -637,7 +637,7 @@ END IF
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'RESOLVED_CLOUD' )
CALL MNH_MEM_GET( LLMICRO ,JIU,JJU,JKU )
CALL MNH_MEM_GET( ZDZZ ,JIU,JJU,JKU )
@@ -1341,7 +1341,7 @@ deallocate( ZDZZ )
deallocate( LLMICRO )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'RESOLVED_CLOUD' )
#endif
!$acc end data
diff --git a/src/MNH/richardson.f90 b/src/MNH/richardson.f90
index 753d4d54ad67f80d844513cf3d135b6cd06f31f2..89ea4a4b8a85a093285e2b4813f089c07912aa9c 100644
--- a/src/MNH/richardson.f90
+++ b/src/MNH/richardson.f90
@@ -230,7 +230,7 @@ END IF
#ifdef MNH_OPENACC
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'RICHARDSON' )
CALL MNH_MEM_GET( ZF_1_Y, SIZE( PPHI, 1 ), SIZE( PPHI, 2 ), SIZE( PPHI, 3 ) )
CALL MNH_MEM_GET( ZCORREC, SIZE( PPHI, 1 ), SIZE( PPHI, 2 ), SIZE( PPHI, 3 ) )
@@ -276,7 +276,7 @@ END DO
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'RICHARDSON' )
#endif
!$acc end data
diff --git a/src/MNH/slow_terms.f90 b/src/MNH/slow_terms.f90
index 80db2c4cfaec5e5beb72d05f05330b85e5c79065..2d7e5b7f94da0e5946cd54ef1e1acbe9e5d2adc6 100644
--- a/src/MNH/slow_terms.f90
+++ b/src/MNH/slow_terms.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2020 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -267,7 +267,7 @@ allocate( zdzz (JIU,JJU,JKU) )
allocate( g3d (JIU,JJU,JKU) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'SLOW_TERMS' )
CALL MNH_MEM_GET( zt ,JIU,JJU,JKU )
CALL MNH_MEM_GET( zw ,JIU,JJU,JKU )
CALL MNH_MEM_GET( zw1 ,JIU,JJU,JKU )
@@ -591,7 +591,7 @@ END IF
deallocate (zt, zw, zw1, zw2, zw3, zexnt, zdzz, g3d )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'SLOW_TERMS' )
#endif
!$acc end data
diff --git a/src/MNH/sources_neg_correct.f90 b/src/MNH/sources_neg_correct.f90
index f08c426fa5cbf672b38da78df30c33a1e0abb2e3..b98dcb2e81335ed15d7afcb27874f43c14416e20 100644
--- a/src/MNH/sources_neg_correct.f90
+++ b/src/MNH/sources_neg_correct.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2020-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2020-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -90,7 +90,7 @@ if ( .not. Associated( zcor ) ) Allocate( zcor(0, 0, 0) )
ALLOCATE(ZTEMP_BUD( jiu, jju, jku ))
#else
!Pin positions in the pools of MNH memory
-call Mnh_mem_position_pin()
+call Mnh_mem_position_pin( 'Sources_neg_correct' )
call Mnh_mem_get( zt, jiu, jju, jku )
call Mnh_mem_get( zexn, jiu, jju, jku )
@@ -469,7 +469,7 @@ end select CLOUD
deallocate( zexn, zlv, zcph, zls, zcor , ZTEMP_BUD)
#else
!Release all memory allocated with Mnh_mem_get calls since last call to Mnh_mem_position_pin
-call Mnh_mem_release()
+call Mnh_mem_release( 'Sources_neg_correct' )
#endif
if ( hbudname /= 'NECON' .and. hbudname /= 'NEGA' ) then
diff --git a/src/MNH/tke_eps_sources.f90 b/src/MNH/tke_eps_sources.f90
index 0636775b90ea108da8c655e84deaa8faa1166e6f..1fb7b5dc4ed0bba504b147f0c4209f0e6e3513a8 100644
--- a/src/MNH/tke_eps_sources.f90
+++ b/src/MNH/tke_eps_sources.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -315,7 +315,7 @@ allocate( zsource(JIU,JJU,JKU ) )
allocate( zkeff (JIU,JJU,JKU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TKE_EPS_SOURCES' )
CALL MNH_MEM_GET( za ,JIU,JJU,JKU)
CALL MNH_MEM_GET( zres ,JIU,JJU,JKU)
@@ -685,7 +685,7 @@ end if
deallocate( ZA, ZRES, ZFLX, ZSOURCE, ZKEFF )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TKE_EPS_SOURCES' )
#endif
!$acc end data
diff --git a/src/MNH/tridiag_thermo.f90 b/src/MNH/tridiag_thermo.f90
index 871581a0642cda548e118707ec8fdf0c861fb994..81b1efeb290b65ba524d3be3d66924a8d7165885 100644
--- a/src/MNH/tridiag_thermo.f90
+++ b/src/MNH/tridiag_thermo.f90
@@ -228,7 +228,7 @@ allocate( zgam (JIU,JJU,JKU ) )
allocate( zbet (JIU,JJU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TRIDIAG_THERMO' )
CALL MNH_MEM_GET( zrhodj_dfddtdz_o_dz2, JIU, JJU, JKU )
CALL MNH_MEM_GET( zmzm_rhodj , JIU, JJU, JKU )
@@ -481,7 +481,7 @@ end if
deallocate (zrhodj_dfddtdz_o_dz2,zmzm_rhodj,za,zb,zc,zy,zgam,zbet)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TRIDIAG_THERMO' )
#endif
!$acc end data
diff --git a/src/MNH/tridiag_tke.f90 b/src/MNH/tridiag_tke.f90
index 89840fb59c15629d93b8d70dc27acb5ed3473947..6187983ab9d383388d5cb9b8a4d1e3dc8fb849de 100644
--- a/src/MNH/tridiag_tke.f90
+++ b/src/MNH/tridiag_tke.f90
@@ -198,7 +198,7 @@ allocate( zgam(JIU,JJU,JKU ) )
allocate( zbet(JIU,JJU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TRIDIAG_TKE' )
CALL MNH_MEM_GET( zy , JIU, JJU, JKU )
CALL MNH_MEM_GET( zgam, JIU, JJU, JKU )
@@ -374,7 +374,7 @@ end if
deallocate( ZY, ZGAM, ZBET )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TRIDIAG_TKE' )
#endif
!$acc end data
diff --git a/src/MNH/tridiag_w.f90 b/src/MNH/tridiag_w.f90
index 62561c15f533a70575c9646ad790be965ad6851e..8f5fb2e9107418087dde951b1774f25154de7bed 100644
--- a/src/MNH/tridiag_w.f90
+++ b/src/MNH/tridiag_w.f90
@@ -224,7 +224,7 @@ allocate( zgam (JIU,JJU,JKU ) )
allocate( zbet (JIU,JJU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TRIDIAG_W' )
CALL MNH_MEM_GET( zrhodj_dfddwdz_o_dz2,JIU,JJU,JKU )
CALL MNH_MEM_GET( zmzm_rhodj ,JIU,JJU,JKU )
@@ -447,7 +447,7 @@ end if
deallocate (ZRHODJ_DFDDWDZ_O_DZ2, ZMZM_RHODJ, ZA, ZB, ZC, ZY, ZGAM, ZBET)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TRIDIAG_W' )
#endif
diff --git a/src/MNH/tridiag_wind.f90 b/src/MNH/tridiag_wind.f90
index 58dd63f4d332bab728aabd3b79ea1c6838500d13..8d7f982c04ad6da9024eb0d34b2cdd07abde3988 100644
--- a/src/MNH/tridiag_wind.f90
+++ b/src/MNH/tridiag_wind.f90
@@ -205,7 +205,7 @@ allocate( zgam(JIU,JJU,JKU ) )
allocate( zbet(JIU,JJU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TRIDIAG_WIND' )
CALL MNH_MEM_GET( zy , JIU, JJU, JKU )
CALL MNH_MEM_GET( zgam, JIU, JJU, JKU )
@@ -345,7 +345,7 @@ end if
deallocate ( zy,zgam,zbet )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TRIDIAG_WIND' )
#endif
!$acc end data
diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90
index cbc2f4966642e7acca6e47b5c670db4780deee74..d1e733a48fa88b0aa3ae617f25bb0cefd191e574 100644
--- a/src/MNH/turb.f90
+++ b/src/MNH/turb.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -607,7 +607,7 @@ allocate( zdvdz (JIU,JJU, JKU_TURB ) )
ALLOCATE(ZTEMP_BUD(JIU,JJU,JKU))
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TURB 1' )
CALL MNH_MEM_GET( ZCP, JIU, JJU, JKU )
CALL MNH_MEM_GET( ZEXN, JIU, JJU, JKU )
@@ -793,11 +793,11 @@ IF (KRRL >=1) THEN
ALLOCATE(ZAMOIST_ICE(JIU,JJU,JKU))
ALLOCATE(ZATHETA_ICE(JIU,JJU,JKU))
#else
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'TURB 2' )
CALL MNH_MEM_GET( ZLVOCPEXNM, JIU, JJU, JKU )
CALL MNH_MEM_GET( ZLSOCPEXNM, JIU, JJU, JKU )
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'TURB 3')
CALL MNH_MEM_GET( ZAMOIST_ICE, JIU, JJU, JKU )
CALL MNH_MEM_GET( ZATHETA_ICE, JIU, JJU, JKU )
#endif
@@ -831,7 +831,7 @@ IF (KRRL >=1) THEN
DEALLOCATE(ZAMOIST_ICE)
DEALLOCATE(ZATHETA_ICE)
#else
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'TURB 3')
#endif
ELSE
CALL COMPUTE_FUNCTION_THERMO(XALPW,XBETAW,XGAMW,XLVTT,XCL,ZT,ZEXN,ZCP, &
@@ -1501,7 +1501,7 @@ IF ( KRRL >= 1 ) THEN
DEALLOCATE(ZLVOCPEXNM)
DEALLOCATE(ZLSOCPEXNM)
#else
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'TURB 2' )
#endif
ELSE
!$acc kernels present_cr(PRT,PRRS,PTHLT,PRTHLS, zlocpexnm )
@@ -1681,7 +1681,7 @@ deallocate( zcp, zexn, zt, zlocpexnm, zleps, ztrh, &
ZTEMP_BUD)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TURB 1' )
#endif
!$acc end data
@@ -1855,7 +1855,7 @@ end if
allocate( zdrvsatdt( size( pexn, 1 ), size( pexn, 2 ), size( pexn, 3 ) ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'COMPUTE_FUNCTION_THERMO' )
CALL MNH_MEM_GET( zrvsat , size( pexn, 1 ), size( pexn, 2 ), size( pexn, 3 ) )
CALL MNH_MEM_GET( zdrvsatdt, size( pexn, 1 ), size( pexn, 2 ), size( pexn, 3 ) )
@@ -1950,7 +1950,7 @@ CALL MNH_MEM_GET( zdrvsatdt, size( pexn, 1 ), size( pexn, 2 ), size( pexn, 3 ) )
deallocate( zrvsat, zdrvsatdt )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'COMPUTE_FUNCTION_THERMO' )
#endif
!$acc end data
@@ -2229,7 +2229,7 @@ end if
#ifdef MNH_OPENACC
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'DELT')
CALL MNH_MEM_GET( ztmp1_device, JIU,JJU,JKU )
CALL MNH_MEM_GET( ztmp2_device, JIU,JJU,JKU )
#endif
@@ -2374,7 +2374,7 @@ end if
#ifdef MNH_OPENACC
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'DELT' )
#endif
END SUBROUTINE DELT
@@ -2506,7 +2506,7 @@ allocate( ZETHETA(JIU,JJU,JKU) )
allocate( ZEMOIST(JIU,JJU,JKU) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'DEAR' )
CALL MNH_MEM_GET( ZWORK2D, JIU, JJU )
CALL MNH_MEM_GET( ZDTHLDZ, JIU, JJU, JKU )
@@ -2723,7 +2723,7 @@ end if
deallocate(zwork2d, zdthldz, zdrtdz, zetheta, zemoist )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'DEAR' )
#endif
!$acc end data
diff --git a/src/MNH/turb_hor_dyn_corr.f90 b/src/MNH/turb_hor_dyn_corr.f90
index d66d1f983b57271183e78dacbe09f5b1d58d7683..7ab54da8e0a89781427482ba10ca9a93d5baffb1 100644
--- a/src/MNH/turb_hor_dyn_corr.f90
+++ b/src/MNH/turb_hor_dyn_corr.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -355,7 +355,7 @@ allocate( zcoeff(JIU,JJU, 1 + jpvext : 3 + jpvext ) )
allocate( zdzz (JIU,JJU, 1 + jpvext : 3 + jpvext ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TURB_HOR_DYN_CORR' )
CALL MNH_MEM_GET( zflx, JIU, JJU, JKU )
CALL MNH_MEM_GET( zwork, JIU, JJU, JKU )
@@ -1333,7 +1333,7 @@ DEALLOCATE (ZFLX, ZWORK, ZDIRSINZW, ZCOEFF, ZDZZ, &
ZDU_DZ_DZS_DX, ZDV_DZ_DZS_DY, ZDU_DX, ZDV_DY, ZDW_DZ )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TURB_HOR_DYN_CORR' )
#endif
!$acc end data
diff --git a/src/MNH/turb_hor_splt.f90 b/src/MNH/turb_hor_splt.f90
index b30e280c6be04a887b09b5b50eb78f39e54f5003..2f920f93e55efab5dd207079d29360aacea47815 100644
--- a/src/MNH/turb_hor_splt.f90
+++ b/src/MNH/turb_hor_splt.f90
@@ -459,7 +459,7 @@ ALLOCATE(ZINV_PDZZ(JIU,JJU,JKU))
ALLOCATE(ZMZM_PRHODJ(JIU,JJU,JKU))
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TURB_HOR_SPLT 1' )
CALL MNH_MEM_GET( ZK, JIU, JJU, JKU )
CALL MNH_MEM_GET( ZINV_PDXX, JIU, JJU, JKU )
@@ -515,7 +515,7 @@ IF (KSPLIT>1 .AND. CPROGRAM=='MESONH') THEN
ALLOCATE(ZRRS(SIZE(PRRS,1),SIZE(PRRS,2),SIZE(PRRS,3),SIZE(PRRS,4)))
#else
!Pin positions in the pools of MNH memory
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'TURB_HOR_SPLT 2' )
CALL MNH_MEM_GET( ZUM, JIU, JJU, JKU )
CALL MNH_MEM_GET( ZVM, JIU, JJU, JKU )
@@ -758,7 +758,7 @@ IF (KSPLIT>1 .AND. CPROGRAM=='MESONH') THEN
DEALLOCATE(ZRTHLS)
DEALLOCATE(ZRRS)
#else
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'TURB_HOR_SPLT 2' )
#endif
!
@@ -809,7 +809,7 @@ DEALLOCATE(ZINV_PDZZ)
DEALLOCATE(ZMZM_PRHODJ)
#else
!Release all memory allocated with MNH_MEM_GET calls since beginning of subroutine
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TURB_HOR_SPLT 1' )
#endif
if ( mppdb_initialized ) then
diff --git a/src/MNH/turb_hor_sv_flux.f90 b/src/MNH/turb_hor_sv_flux.f90
index 9cf51e163bbca854699e59e3eb926b34372c548c..fbdbf0f23047f63eb4b3856c7c896123ad6005e3 100644
--- a/src/MNH/turb_hor_sv_flux.f90
+++ b/src/MNH/turb_hor_sv_flux.f90
@@ -245,7 +245,7 @@ allocate( zwork2d(JIU,JJU, 1 ) )
allocate( zcoeff(JIU,JJU, 1 + jpvext : 3 + jpvext ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TURB_HOR_SV_FLUX' )
CALL MNH_MEM_GET( zflxx, JIU, JJU, JKU )
CALL MNH_MEM_GET( zflxy, JIU, JJU, JKU )
@@ -640,7 +640,7 @@ end if
deallocate( ZFLXX, ZFLXY, ZWORK2D, ZCOEFF )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TURB_HOR_SV_FLUX' )
#endif
!$acc end data
diff --git a/src/MNH/turb_hor_thermo_corr.f90 b/src/MNH/turb_hor_thermo_corr.f90
index 26005448572dfd181b3586af97b106ff147b390f..4098559c4c650ec125ed95eab674bfc26e41d6bc 100644
--- a/src/MNH/turb_hor_thermo_corr.f90
+++ b/src/MNH/turb_hor_thermo_corr.f90
@@ -265,7 +265,7 @@ allocate( za (JIU,JJU,JKU ) )
allocate( zcoeff(JIU,JJU, 1 + jpvext : 3 + jpvext ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TURB_HOR_THERMO_CORR' )
CALL MNH_MEM_GET( zflx , JIU, JJU, JKU )
CALL MNH_MEM_GET( zwork , JIU, JJU, JKU )
@@ -905,7 +905,7 @@ end if
deallocate (zflx,zwork,za,zcoeff)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TURB_HOR_THERMO_CORR' )
#endif
!$acc end data
diff --git a/src/MNH/turb_hor_thermo_flux.f90 b/src/MNH/turb_hor_thermo_flux.f90
index e1fc823fd6ab8fada0b6a76e5ed174d9b379b91c..d36659eefcecfcb468ece7301982646d7f14fa02 100644
--- a/src/MNH/turb_hor_thermo_flux.f90
+++ b/src/MNH/turb_hor_thermo_flux.f90
@@ -279,7 +279,7 @@ allocate( zflxc(JIU,JJU,JKU) )
allocate( zcoeff(JIU,JJU, 1 + jpvext : 3 + jpvext ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TURB_HOR_THERMO_FLUX' )
CALL MNH_MEM_GET( zflx, JIU, JJU, JKU )
CALL MNH_MEM_GET( zflxc, JIU, JJU, JKU )
@@ -1794,7 +1794,7 @@ end if
deallocate (zflx,zflxc,zcoeff)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TURB_HOR_THERMO_FLUX' )
#endif
!$acc end data
diff --git a/src/MNH/turb_hor_tke.f90 b/src/MNH/turb_hor_tke.f90
index d538b366d11f7b93289477380254d9fa1742dedd..bc2f326e218b664e672a99c5e8e350524b427fff 100644
--- a/src/MNH/turb_hor_tke.f90
+++ b/src/MNH/turb_hor_tke.f90
@@ -178,7 +178,7 @@ allocate( zflx (JIU,JJU,JKU ) )
allocate( zcoeff(JIU,JJU, 1 + jpvext : 3 + jpvext ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TURB_HOR_TKE' )
CALL MNH_MEM_GET( zflx, JIU, JJU, JKU )
@@ -536,7 +536,7 @@ end if
deallocate( ZCOEFF, ZFLX )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TURB_HOR_TKE' )
#endif
!$acc end data
diff --git a/src/MNH/turb_hor_uv.f90 b/src/MNH/turb_hor_uv.f90
index b9d578a5941164de1f73be6e467f3197fe570942..c2478f1c00930baae9ccf56bb0a35c7275b90496 100644
--- a/src/MNH/turb_hor_uv.f90
+++ b/src/MNH/turb_hor_uv.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -285,7 +285,7 @@ allocate( gy_u_uv_pum(JIU,JJU,JKU ) )
allocate( gx_v_uv_pvm(JIU,JJU,JKU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TURB_HOR_UV' )
CALL MNH_MEM_GET( zflx, JIU, JJU, JKU )
CALL MNH_MEM_GET( zwork, JIU, JJU, JKU )
@@ -831,7 +831,7 @@ end if
deallocate ( ZFLX, ZWORK, ZDIRSINZW, GY_U_UV_PUM, GX_V_UV_PVM )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TURB_HOR_UV' )
#endif
diff --git a/src/MNH/turb_hor_uw.f90 b/src/MNH/turb_hor_uw.f90
index 186fb9de8477f20f67b5b993b3d8e2c2e244fa4e..8179cacc11d970fde619a4a35a4d5bf943fba9cb 100644
--- a/src/MNH/turb_hor_uw.f90
+++ b/src/MNH/turb_hor_uw.f90
@@ -242,7 +242,7 @@ allocate( zwork(JIU,JJU,JKU ) )
allocate( gx_w_uw_pwm(JIU,JJU,JKU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TURB_HOR_UW' )
CALL MNH_MEM_GET( zflx, JIU, JJU, JKU )
CALL MNH_MEM_GET( zwork, JIU, JJU, JKU )
@@ -600,7 +600,7 @@ end if
deallocate( ZFLX, ZWORK, GX_W_UW_PWM )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TURB_HOR_UW' )
#endif
!$acc end data
diff --git a/src/MNH/turb_hor_vw.f90 b/src/MNH/turb_hor_vw.f90
index 0237734124cc629ac97d07adb3ed742a9b1dcce3..7792771dcc5c986e3766df2a2c5ce54664255a1a 100644
--- a/src/MNH/turb_hor_vw.f90
+++ b/src/MNH/turb_hor_vw.f90
@@ -239,7 +239,7 @@ allocate( zwork(JIU,JJU,JKU ) )
allocate( gy_w_vw_pwm(JIU,JJU,JKU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TURB_HOR_VW' )
CALL MNH_MEM_GET( zflx, JIU, JJU, JKU )
CALL MNH_MEM_GET( zwork, JIU, JJU, JKU )
@@ -629,7 +629,7 @@ end if
deallocate( ZFLX, ZWORK, GY_W_VW_PWM )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TURB_HOR_VW' )
#endif
!$acc end data
diff --git a/src/MNH/turb_ver.f90 b/src/MNH/turb_ver.f90
index 21851b90b55999a8d88dca1c9ee8b92559cb71f4..8cd2a2ff7880c7ea80f82c5012fa4f135615cea6 100644
--- a/src/MNH/turb_ver.f90
+++ b/src/MNH/turb_ver.f90
@@ -576,7 +576,7 @@ allocate( zthlp (JIU,JJU,JKU) )
allocate( zrp (JIU,JJU,JKU) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TURB_VER' )
CALL MNH_MEM_GET( zbeta, JIU, JJU, JKU )
CALL MNH_MEM_GET( zsqrt_tke, JIU, JJU, JKU )
@@ -917,7 +917,7 @@ DEALLOCATE(zbeta,zsqrt_tke,zdth_dz,zdr_dz,zred2th3,zred2r3,zred2thr3, &
DEALLOCATE(zpsi_sv,zreds1,zred2ths,zred2rs)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TURB_VER' )
#endif
!$acc end data
diff --git a/src/MNH/turb_ver_dyn_flux.f90 b/src/MNH/turb_ver_dyn_flux.f90
index f608c5be745833416c0c2e2a8ac742480444da69..18fb68491560fc02eff9e2ce3c23f3436a8bba7d 100644
--- a/src/MNH/turb_ver_dyn_flux.f90
+++ b/src/MNH/turb_ver_dyn_flux.f90
@@ -482,7 +482,7 @@ allocate( zuslopem (JIU,JJU, 1 ) )
allocate( zvslopem (JIU,JJU, 1 ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TURB_VER_DYN_FLUX' )
CALL MNH_MEM_GET( zdirsinzw, JIU, JJU )
@@ -1647,7 +1647,7 @@ end if
deallocate (zdirsinzw,zcoefs,za,zres,zflxz,zsource,zkeff,zcoefflxu,zcoefflxv,zuslopem,zvslopem)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TURB_VER_DYN_FLUX' )
#endif
!$acc end data
diff --git a/src/MNH/turb_ver_thermo_corr.f90 b/src/MNH/turb_ver_thermo_corr.f90
index c4a2059561ba99795e8e59b96ab5619ff0305c8d..383ce40f41ff9f25094591c63348d98a47da258f 100644
--- a/src/MNH/turb_ver_thermo_corr.f90
+++ b/src/MNH/turb_ver_thermo_corr.f90
@@ -483,7 +483,7 @@ allocate( zdfddrdz (JIU,JJU,JKU) )
allocate( zcoeff(JIU,JJU, i1 : i2 ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TURB_VER_THERMO_CORR' )
CALL MNH_MEM_GET( zflxz, JIU, JJU, JKU )
CALL MNH_MEM_GET( zkeff, JIU, JJU, JKU )
@@ -1560,7 +1560,7 @@ end if
deallocate( zflxz, zkeff, zf , zdfddtdz , zdfddrdz , zcoeff )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TURB_VER_THERMO_CORR' )
#endif
!$acc end data
diff --git a/src/MNH/turb_ver_thermo_flux.f90 b/src/MNH/turb_ver_thermo_flux.f90
index bf4f25c3eebe12f619637c6f5343249d176d59e2..a9499222d9919943d1479fa61655acd9114dcd37 100644
--- a/src/MNH/turb_ver_thermo_flux.f90
+++ b/src/MNH/turb_ver_thermo_flux.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -614,7 +614,7 @@ allocate( zcld_thold(JIU,JJU,JKU ) )
allocate( zalt (JIU,JJU,JKU ) )
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'TURB_VER_THERMO_FLUX' )
CALL MNH_MEM_GET( za, JIU,JJU,JKU )
CALL MNH_MEM_GET( zflxz, JIU,JJU,JKU )
@@ -1828,7 +1828,7 @@ end if
Deallocate( za, zflxz, zsource, zkeff, zf, zdfddtdz, zdfddrdz, z3rdmoment, zf_new, zrwthl, zrwrnp, zcld_thold, zalt )
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'TURB_VER_THERMO_FLUX' )
#endif
!$acc end data
diff --git a/src/MNH/zdiffusetup.f90 b/src/MNH/zdiffusetup.f90
index 955853512eb79517e052560b117e01f2952d3117..41e271e2140f2e7c108b27906b270cbc776a20c2 100644
--- a/src/MNH/zdiffusetup.f90
+++ b/src/MNH/zdiffusetup.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2006-2020 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2006-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
diff --git a/src/MNH/zsolver.f90 b/src/MNH/zsolver.f90
index 36f2e3f91b7fb34ecb781b272cea7a03d9f9e29a..c8b9fe7abe03b8dda6dec050a1d99e5081808c57 100644
--- a/src/MNH/zsolver.f90
+++ b/src/MNH/zsolver.f90
@@ -193,7 +193,7 @@ JKU = size(PPHI, 3 )
ALLOCATE(ZDELTA(JIU,JJU,JKU),ZKSI(JIU,JJU,JKU),ZP(JIU,JJU,JKU),ZQ(JIU,JJU,JKU),ZRESIDUE(JIU,JJU,JKU))
#else
!Pin positions in the pools of MNH memory
-CALL MNH_MEM_POSITION_PIN()
+CALL MNH_MEM_POSITION_PIN( 'ZSOLVER' )
CALL MNH_MEM_GET( ZDELTA , JIU, JJU, JKU )
CALL MNH_MEM_GET( ZKSI , JIU, JJU, JKU )
@@ -277,7 +277,7 @@ END DO ! end of the loop for the iterative solver
DEALLOCATE(ZDELTA,ZKSI,ZP,ZQ,ZRESIDUE)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
-CALL MNH_MEM_RELEASE()
+CALL MNH_MEM_RELEASE( 'ZSOLVER' )
#endif
!-------------------------------------------------------------------------------
!
diff --git a/src/MNH/zsolver_inv.f90 b/src/MNH/zsolver_inv.f90
index a488737d08368e51bee9167f51d962c466cd44e9..281c8e14b6f4ffefebf53cab3806361f1fcf76ee 100644
--- a/src/MNH/zsolver_inv.f90
+++ b/src/MNH/zsolver_inv.f90
@@ -182,7 +182,7 @@ END MODULE MODI_ZSOLVER_INV
ALLOCATE(ZY(IIU,IJU,IKU))
#else
!Pin positions in the pools of MNH memory
- CALL MNH_MEM_POSITION_PIN()
+ CALL MNH_MEM_POSITION_PIN( 'ZSOLVER_INV' )
CALL MNH_MEM_GET( ZY, IIU, IJU, IKU )
#endif
@@ -292,7 +292,7 @@ END MODULE MODI_ZSOLVER_INV
DEALLOCATE(ZY)
#else
!Release all memory allocated with MNH_MEM_GET calls since last call to MNH_MEM_POSITION_PIN
- CALL MNH_MEM_RELEASE()
+ CALL MNH_MEM_RELEASE( 'ZSOLVER_INV' )
#endif
!
CONTAINS