From 6a72d8d87ad8a23984ff1753a6b68c42dc5af126 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Wed, 18 May 2022 17:16:11 +0200
Subject: [PATCH] Juan 18/05/2022:ZSOLVER/ , OpenACC Cray Opt:For 4hours/Storm
init file, add acc present_cr , where needed
---
src/ZSOLVER/advection_metsv.f90 | 4 ++--
src/ZSOLVER/ppm.f90 | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/ZSOLVER/advection_metsv.f90 b/src/ZSOLVER/advection_metsv.f90
index 466f611a6..c9cbce0ae 100644
--- a/src/ZSOLVER/advection_metsv.f90
+++ b/src/ZSOLVER/advection_metsv.f90
@@ -910,12 +910,12 @@ DO JSPL=1,KSPLIT
!
! Guesses of the field inside the time splitting loop
!
- !$acc kernels
+ !$acc kernels present_cr(ZTH)
ZTH(:,:,:) = ZTH(:,:,:) + ( ZRTHS_PPM(:,:,:) + ZRTHS_OTHER(:,:,:) + PRTHS_CLD(:,:,:)) * &
ZTSTEP_PPM / PRHODJ(:,:,:)
!$acc end kernels
IF (GTKE) THEN
- !$acc kernels
+ !$acc kernels present_cr(ZTKE)
ZTKE(:,:,:) = ZTKE(:,:,:) + ( ZRTKES_PPM(:,:,:) + ZRTKES_OTHER(:,:,:) ) * ZTSTEP_PPM / PRHODJ(:,:,:)
!$acc end kernels
END IF
diff --git a/src/ZSOLVER/ppm.f90 b/src/ZSOLVER/ppm.f90
index 10a32e375..099e9adb2 100644
--- a/src/ZSOLVER/ppm.f90
+++ b/src/ZSOLVER/ppm.f90
@@ -2364,7 +2364,7 @@ IF (GFIRST_CALL_PPM_S0_X) THEN
END IF
CALL GET_HALO2_DF(PSRC, TZ_PSRC_HALO2_ll, HNAME='GET_HALO2::PSRC')
ZWEST => TZ_PSRC_HALO2_ll%HALO2%WEST
-!$acc kernels
+!$acc kernels present_cr(ZPSRC_HALO2_WEST,ZWEST)
ZPSRC_HALO2_WEST(:,:) = ZWEST(:,:)
!$acc end kernels
#endif
@@ -2805,7 +2805,7 @@ IF (GFIRST_CALL_PPM_S0_Y) THEN
END IF
CALL GET_HALO2_DF(PSRC, TZ_PSRC_HALO2_ll, HNAME='GET_HALO2::PSRC')
ZSOUTH => TZ_PSRC_HALO2_ll%HALO2%SOUTH(:,:)
-!$acc kernels
+!$acc kernels present_cr(ZPSRC_HALO2_SOUTH,ZSOUTH)
ZPSRC_HALO2_SOUTH(:,:) = ZSOUTH(:,:)
!$acc end kernels
#endif
--
GitLab