PROPAGS2: remove unused temporaries

ecmwf-ifs · Apr 2, 2024 · 31ed603 · 31ed603
1 parent 2f2b8d1
commit 31ed603
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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