diff --git a/src/etrans/cpu/internal/eftdir_ctl_mod.F90 b/src/etrans/cpu/internal/eftdir_ctl_mod.F90
index 44a8bffce..bb7d8f9f5 100644
--- a/src/etrans/cpu/internal/eftdir_ctl_mod.F90
+++ b/src/etrans/cpu/internal/eftdir_ctl_mod.F90
@@ -180,7 +180,7 @@ SUBROUTINE EFTDIR_CTL(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS,KF_GPB, &
 
 ! Periodization of auxiliary fields in x direction
 IF(R%NNOEXTZL>0) THEN
-  CALL EXTPER(ZGTF,R%NDLON+R%NNOEXTZL,1,R%NDLON,KF_FS,D%NDGL_FS,D%NSTAGTF,0)
+  CALL EXTPER(ZGTF,R%NDLON+R%NNOEXTZL,1,R%NDLON,KF_FS,D%NDGL_FS,INT(D%NSTAGTF,KIND=JPIM),0)
 ELSE
   IF (PRESENT(AUX_PROC)) THEN
     CALL AUX_PROC(ZGTF,ZDUM,KF_FS,D%NLENGTF,1,D%NDGL_FS,0,.TRUE.,&
diff --git a/src/etrans/cpu/internal/eftinv_ctlad_mod.F90 b/src/etrans/cpu/internal/eftinv_ctlad_mod.F90
index f62784ee9..cf476b0a0 100644
--- a/src/etrans/cpu/internal/eftinv_ctlad_mod.F90
+++ b/src/etrans/cpu/internal/eftinv_ctlad_mod.F90
@@ -219,7 +219,7 @@ SUBROUTINE EFTINV_CTLAD(KF_UV_G,KF_SCALARS_G,&
 
 ! Periodization of auxiliary fields in x direction
 IF(R%NNOEXTZL>0) THEN
-  CALL EXTPER(ZGTF,R%NDLON+R%NNOEXTZL,1,R%NDLON,KF_FS,D%NDGL_FS,D%NSTAGTF,0)
+  CALL EXTPER(ZGTF,R%NDLON+R%NNOEXTZL,1,R%NDLON,KF_FS,D%NDGL_FS,INT(D%NSTAGTF,KIND=JPIM),0)
 ENDIF