fix type

ecmwf-ifs · Oct 16, 2024 · 04194bc · 04194bc
1 parent 058dd37
commit 04194bc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/trans/gpu/external/setup_trans.F90 b/src/trans/gpu/external/setup_trans.F90
@@ -537,8 +537,8 @@ SUBROUTINE SETUP_TRANS(KSMAX,KDGL,KDLON,KLOEN,LDSPLIT,PSTRET,&
     ZAS0(:,:) = 0
     ZAA0(1:KDGLU,1:ILA)=S%FA(JMLOC)%RPNMA(1:KDGLU,1:ILA)
     ZAS0(1:KDGLU,1:ILS)=S%FA(JMLOC)%RPNMS(1:KDGLU,1:ILS)
-    WRITE(NOUT,'("ZAA0: ", I, " B")') SIZE(ZAA,KIND=JPIB)*STORAGE_SIZE(ZAA0(1,1))/8
-    WRITE(NOUT,'("ZAS0: ", I, " B")') SIZE(ZAA,KIND=JPIB)*STORAGE_SIZE(ZAS0(1,1))/8
+    WRITE(NOUT,'("ZAA0: ", I, " B")') SIZE(ZAA0,KIND=JPIB)*STORAGE_SIZE(ZAA0(1,1))/8
+    WRITE(NOUT,'("ZAS0: ", I, " B")') SIZE(ZAS0,KIND=JPIB)*STORAGE_SIZE(ZAS0(1,1))/8
     !$ACC ENTER DATA COPYIN(ZAA0,ZAS0) ASYNC(1)
   ENDIF
 ENDDO