From c8dcf5133bc8f9f4f641d4cb3615e1d620b46999 Mon Sep 17 00:00:00 2001 From: Sam Hatfield Date: Tue, 28 Jan 2025 14:15:52 +0000 Subject: [PATCH] Fix type of KPOINTERS dummy argument Commit 8622da102316fb9bab2134cea9e554a164c90a13 changed D%NSTAGTF from JPIM to JPIB. --- src/etrans/cpu/internal/eftdir_ctl_mod.F90 | 2 +- src/etrans/cpu/internal/eftinv_ctlad_mod.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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