revert change

Author: lukasm91

src/trans/gpu/internal/leinv_mod.F90

@@ -115,7 +115,6 @@ SUBROUTINE LEINV(ALLOCATOR,PIA,ZINP,ZINP0,ZOUTS,ZOUTA,ZOUTS0,ZOUTA0,KF_LEG)
     USE, INTRINSIC :: ISO_C_BINDING, ONLY: C_INT, C_LONG, C_LOC
     USE MPL_MODULE,                  ONLY: MPL_BARRIER,MPL_ALL_MS_COMM
     USE TPM_STATS,                   ONLY: GSTATS => GSTATS_NVTX
-  USE IEEE_ARITHMETIC
 #ifdef ACCGPU
     USE OPENACC_LIB, ONLY: ACC_GET_HIP_STREAM
 #endif
@@ -127,7 +126,7 @@ SUBROUTINE LEINV(ALLOCATOR,PIA,ZINP,ZINP0,ZOUTS,ZOUTA,ZOUTS0,ZOUTA0,KF_LEG)
 
     IMPLICIT NONE
 
-    REAL(KIND=JPRB),    INTENT(INOUT)  :: PIA(:,:,:)
+    REAL(KIND=JPRB),    INTENT(IN)  :: PIA(:,:,:)
     INTEGER(KIND=JPIM), INTENT(IN)  :: KF_LEG
     REAL(KIND=JPRBT), INTENT(OUT) :: ZINP(:), ZOUTS(:), ZOUTA(:)
     REAL(KIND=JPRD), INTENT(OUT) :: ZINP0(:), ZOUTS0(:), ZOUTA0(:)
@@ -143,7 +142,6 @@ SUBROUTINE LEINV(ALLOCATOR,PIA,ZINP,ZINP0,ZOUTS,ZOUTA,ZOUTS0,ZOUTA0,KF_LEG)
     INTEGER(KIND=JPIB)  :: IIN_SIZE
     INTEGER(KIND=JPIM)  :: IOUT0_STRIDES0, IOUT0_SIZE
     INTEGER(KIND=JPIM)  :: IIN0_STRIDES0, IIN0_SIZE
-    REAL(KIND=JPRB) :: TMP
 
     REAL(KIND=JPHOOK) :: ZHOOK_HANDLE
 
@@ -163,7 +161,6 @@ SUBROUTINE LEINV(ALLOCATOR,PIA,ZINP,ZINP0,ZOUTS,ZOUTA,ZOUTS0,ZOUTA0,KF_LEG)
     HIP_STREAM = 0_C_LONG
 #endif
 
-
     !     ------------------------------------------------------------------
 
     !*       1.       PERFORM LEGENDRE TRANFORM.

src/trans/gpu/internal/ltinv_mod.F90

@@ -121,7 +121,6 @@ SUBROUTINE LTINV(ALLOCATOR,HLTINV,KF_UV,KF_SCALARS,&
     USE TPM_STATS,              ONLY: GSTATS => GSTATS_NVTX
     USE ISO_C_BINDING,          ONLY: C_SIZE_T, C_LOC, C_SIZEOF, C_F_POINTER
 
-  USE IEEE_ARITHMETIC
     !**** *LTINV* - Inverse Legendre transform
     !
     !     Purpose.
@@ -207,8 +206,6 @@ SUBROUTINE LTINV(ALLOCATOR,HLTINV,KF_UV,KF_SCALARS,&
 
     REAL(KIND=JPRBT), POINTER :: ZINP(:)
     REAL(KIND=JPRD), POINTER :: ZINP0(:)
-    INTEGER(KIND=JPIM)  :: KM, KMLOC, IA, IS, ISL, J1, JGL, JK, J, IMLOC0(1)
-    REAL(KIND=JPRB) :: TMP
 
     ASSOCIATE(ZEPSNM=>FG%ZEPSNM)