Fix type of KPOINTERS dummy argument

Commit 8622da1 changed D%NSTAGTF from JPIM to JPIB.
ecmwf-ifs · Jan 28, 2025 · 476cf8d · 476cf8d
1 parent 6ab8fc7
commit 476cf8d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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