diff --git a/src/MNH/advecuvw_4th.f90 b/src/MNH/advecuvw_4th.f90 index 7f596bd9d67d7dda5807e721949a21a968f7c0dc..d523b56f51fcb0cc6d9f1c9edced72c873377657 100644 --- a/src/MNH/advecuvw_4th.f90 +++ b/src/MNH/advecuvw_4th.f90 @@ -364,8 +364,10 @@ PRWS(:,:,:) = PRWS(:,:,:) - ZTEMP4 !$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() +#endif IF (MPPDB_INITIALIZED) THEN !Check all INOUT arrays diff --git a/src/MNH/advecuvw_rk.f90 b/src/MNH/advecuvw_rk.f90 index fe1f69f1376d1d1a394ca3bae016fd1c795ff5a1..fc1572e0ea75d6a15b710636d5e20281716edaf6 100644 --- a/src/MNH/advecuvw_rk.f90 +++ b/src/MNH/advecuvw_rk.f90 @@ -616,8 +616,10 @@ CALL DEL_HALO2_ll(TZHALO2MT_ll) !$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() +#endif IF (MPPDB_INITIALIZED) THEN !Check all OUT arrays diff --git a/src/MNH/advecuvw_weno_k.f90 b/src/MNH/advecuvw_weno_k.f90 index 3d5e27a0326a506653092e8f064c00ef174226a7..edd110e8709f0c257522c2955ff3889925d96705 100644 --- a/src/MNH/advecuvw_weno_k.f90 +++ b/src/MNH/advecuvw_weno_k.f90 @@ -678,8 +678,10 @@ END SELECT !$acc end data +#ifdef MNH_OPENACC !Release all memory allocated with MNH_MEM_GET calls since beginning of subroutine CALL MNH_MEM_RELEASE() +#endif IF (MPPDB_INITIALIZED) THEN CALL MPPDB_CHECK(PRUS,"ADVECUVW_WENO_K end:PRUS") diff --git a/src/ZSOLVER/advecuvw_rk.f90 b/src/ZSOLVER/advecuvw_rk.f90 index 8f62e91d0a03780a94fbda81876251ecad4f08aa..4e2f367d6f1ce574f8556bdb91b5aef2656cd035 100644 --- a/src/ZSOLVER/advecuvw_rk.f90 +++ b/src/ZSOLVER/advecuvw_rk.f90 @@ -630,8 +630,10 @@ CALL DEL_HALO2_ll(TZHALO2MT_ll) !$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() +#endif IF (MPPDB_INITIALIZED) THEN !Check all OUT arrays diff --git a/src/ZSOLVER/advecuvw_weno_k.f90 b/src/ZSOLVER/advecuvw_weno_k.f90 index 098ab2c8caa2a37a1bded4190edb81475388d37e..28ac3763040c29218f52ab807a068abc900a7da9 100644 --- a/src/ZSOLVER/advecuvw_weno_k.f90 +++ b/src/ZSOLVER/advecuvw_weno_k.f90 @@ -700,8 +700,10 @@ END SELECT !$acc end data +#ifdef MNH_OPENACC !Release all memory allocated with MNH_MEM_GET calls since beginning of subroutine CALL MNH_MEM_RELEASE() +#endif IF (MPPDB_INITIALIZED) THEN CALL MPPDB_CHECK(PRUS,"ADVECUVW_WENO_K end:PRUS")