Removing these initializations as they are not necessary. I run sever…

…al big jobs 32 (truncation 639) and 64 APUs (truncation 1279) for an MI300A in both discrete and APU mode. Norms look good.
ecmwf-ifs · Dec 13, 2024 · 6c2a79e · 6c2a79e
1 parent e514686
commit 6c2a79e
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 4 deletions.
diff --git 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
@@ -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
-Original file line number
+Diff line change
@@ Expand Up @@
               ELSE
                 IFLDAS(IFLDS,INS)=JFLD
               ENDIF
-            ELSE
-              IFLDAS(JFLD,INS)=IFLDA(JFLD)
             ENDIF
           ENDDO
         ENDDO
@@ Expand Down @@