From 6c2a79e89dac794f6dcdd0dd42a209f1a0009aaf Mon Sep 17 00:00:00 2001 From: Paul Mullowney Date: Fri, 13 Dec 2024 08:31:28 -0800 Subject: [PATCH] Removing these initializations as they are not necessary. I run several big jobs 32 (truncation 639) and 64 APUs (truncation 1279) for an MI300A in both discrete and APU mode. Norms look good. --- src/trans/gpu/internal/trgtol_mod.F90 | 2 -- src/trans/gpu/internal/trltog_mod.F90 | 2 -- 2 files changed, 4 deletions(-) diff --git a/src/trans/gpu/internal/trgtol_mod.F90 b/src/trans/gpu/internal/trgtol_mod.F90 index d57229b4..43fc9657 100755 --- a/src/trans/gpu/internal/trgtol_mod.F90 +++ b/src/trans/gpu/internal/trgtol_mod.F90 @@ -487,8 +487,6 @@ SUBROUTINE TRGTOL(ALLOCATOR,HTRGTOL,PREEL_REAL,KF_FS,KF_GP,KF_UV_G,KF_SCALARS_G, ELSE IFLDAS(IFLDS,INS)=JFLD ENDIF - ELSE - IFLDAS(JFLD,INS)=IFLDA(JFLD) ENDIF ENDDO ENDDO diff --git a/src/trans/gpu/internal/trltog_mod.F90 b/src/trans/gpu/internal/trltog_mod.F90 index 32be7cc6..f20e281c 100755 --- a/src/trans/gpu/internal/trltog_mod.F90 +++ b/src/trans/gpu/internal/trltog_mod.F90 @@ -758,8 +758,6 @@ SUBROUTINE TRLTOG(ALLOCATOR,HTRLTOG,PREEL_REAL,KF_FS,KF_GP,KF_UV_G,KF_SCALARS_G, ELSE IFLDAR(IFLDS,INR)=JFLD ENDIF - ELSE - IFLDAR(JFLD,INR) = IFLDA(JFLD) ENDIF ENDDO ENDDO