From 31ed603157b9fe254ab5c01b7b207f5ba2e6c487 Mon Sep 17 00:00:00 2001 From: Ahmad Nawab Date: Tue, 2 Apr 2024 09:33:15 +0000 Subject: [PATCH] PROPAGS2: remove unused temporaries --- src/ecwam/propags2.F90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/ecwam/propags2.F90 b/src/ecwam/propags2.F90 index 18ccda39..2526ec9f 100644 --- a/src/ecwam/propags2.F90 +++ b/src/ecwam/propags2.F90 @@ -80,7 +80,6 @@ SUBROUTINE PROPAGS2 (F1, F3, NINF, NSUP, KIJS, KIJL, NANG, ND3S, ND3E) INTEGER(KIND=JWIM) :: JJK, JJY, JJX REAL(KIND=JPHOOK) :: ZHOOK_HANDLE - REAL(KIND=JWRB), DIMENSION(KIJS:KIJL) :: FJ1, FJ2, FJ3, FJ4, FJ5 ! ---------------------------------------------------------------------- @@ -97,7 +96,7 @@ SUBROUTINE PROPAGS2 (F1, F3, NINF, NSUP, KIJS, KIJL, NANG, ND3S, ND3E) !* WITHOUT DEPTH OR/AND CURRENT REFRACTION. ! ---------------------------------------- -!$acc kernels loop present(F1,F3) create(FJ1, FJ2, FJ3, FJ4, FJ5) PRESENT(KLON,KLAT,KCOR,WKPMN,LLWKPMN, SUMWN, WLONN, WLATN, WCORN) PRESENT(JXO,JYO,KCR) +!$acc kernels loop present(F1,F3) PRESENT(KLON,KLAT,KCOR,WKPMN,LLWKPMN,SUMWN,WLONN,WLATN,WCORN,JXO,JYO,KCR) DO K = 1, NANG DO M = ND3S, ND3E