From 7953e2f9e453157b59c356d1cc8a8d7b6f0a6cd5 Mon Sep 17 00:00:00 2001 From: Sam Hatfield Date: Wed, 13 Nov 2024 15:59:23 +0000 Subject: [PATCH] Add missing module import --- src/trans/cpu/internal/ftdir_mod.F90 | 2 +- src/trans/cpu/internal/ftdirad_mod.F90 | 2 +- src/trans/cpu/internal/ftinv_mod.F90 | 2 +- src/trans/cpu/internal/ftinvad_mod.F90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/trans/cpu/internal/ftdir_mod.F90 b/src/trans/cpu/internal/ftdir_mod.F90 index 2a388653..11191d15 100644 --- a/src/trans/cpu/internal/ftdir_mod.F90 +++ b/src/trans/cpu/internal/ftdir_mod.F90 @@ -50,7 +50,7 @@ SUBROUTINE FTDIR(PREEL,KFIELDS,KGL) USE TPM_DISTR ,ONLY : D, MYSETW USE TPM_GEOMETRY ,ONLY : G -USE TPM_FFTW ,ONLY : EXEC_FFTW +USE TPM_FFTW ,ONLY : EXEC_FFTW, TW USE TPM_DIM ,ONLY : R ! diff --git a/src/trans/cpu/internal/ftdirad_mod.F90 b/src/trans/cpu/internal/ftdirad_mod.F90 index 7c2bd1f0..f5aa0bf3 100644 --- a/src/trans/cpu/internal/ftdirad_mod.F90 +++ b/src/trans/cpu/internal/ftdirad_mod.F90 @@ -49,7 +49,7 @@ SUBROUTINE FTDIRAD(PREEL,KFIELDS,KGL) USE TPM_DISTR ,ONLY : D, MYSETW USE TPM_GEOMETRY ,ONLY : G -USE TPM_FFTW ,ONLY : EXEC_FFTW +USE TPM_FFTW ,ONLY : EXEC_FFTW, TW USE TPM_DIM ,ONLY : R IMPLICIT NONE diff --git a/src/trans/cpu/internal/ftinv_mod.F90 b/src/trans/cpu/internal/ftinv_mod.F90 index 802519c6..9a607e64 100644 --- a/src/trans/cpu/internal/ftinv_mod.F90 +++ b/src/trans/cpu/internal/ftinv_mod.F90 @@ -49,7 +49,7 @@ SUBROUTINE FTINV(PREEL,KFIELDS,KGL) USE TPM_DISTR ,ONLY : D, MYSETW USE TPM_GEOMETRY ,ONLY : G -USE TPM_FFTW ,ONLY : EXEC_FFTW +USE TPM_FFTW ,ONLY : EXEC_FFTW, TW USE TPM_DIM ,ONLY : R IMPLICIT NONE diff --git a/src/trans/cpu/internal/ftinvad_mod.F90 b/src/trans/cpu/internal/ftinvad_mod.F90 index 84a52f37..ef241ffc 100644 --- a/src/trans/cpu/internal/ftinvad_mod.F90 +++ b/src/trans/cpu/internal/ftinvad_mod.F90 @@ -50,7 +50,7 @@ SUBROUTINE FTINVAD(PREEL,KFIELDS,KGL) USE TPM_DISTR ,ONLY : D, MYSETW USE TPM_DIM ,ONLY : R USE TPM_GEOMETRY ,ONLY : G -USE TPM_FFTW ,ONLY : EXEC_FFTW +USE TPM_FFTW ,ONLY : EXEC_FFTW, TW USE TPM_DIM ,ONLY : R !