tpm_fft.F90

Go to the documentation of this file.

MODULE tpm_fft
USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

TYPE fft_type
  REAL(KIND=JPRB)   ,POINTER :: trigs(:,:)
  INTEGER(KIND=JPIM),POINTER :: nfax(:,:)
END TYPE fft_type

TYPE(fft_type),ALLOCATABLE,TARGET :: fft_resol(:)
TYPE(fft_type),POINTER     :: t

!$OMP THREADPRIVATE(t)

END MODULE tpm_fft