Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	phylmd/rrtm/tpm_fft.F90	Lines:	0	1	0.0 %
Date:	2023-06-30 12:56:34	Branches:	0	14	0.0 %


MODULE TPM_FFT
USE PARKIND1  ,ONLY : JPIM     ,JPRB

IMPLICIT NONE

SAVE

TYPE FFT_TYPE
  REAL(KIND=JPRB)   ,ALLOCATABLE :: TRIGS(:,:)
  INTEGER(KIND=JPIM),ALLOCATABLE :: NFAX(:,:)
END TYPE FFT_TYPE

TYPE(FFT_TYPE),ALLOCATABLE,TARGET :: FFT_RESOL(:)
TYPE(FFT_TYPE),POINTER     :: T

!$OMP THREADPRIVATE(t)

END MODULE TPM_FFT


Generated by: GCOVR (Version 4.2)

Line	Branch	Exec	Source
1			MODULE TPM_FFT
2			USE PARKIND1 ,ONLY : JPIM ,JPRB
3
4			IMPLICIT NONE
5
6			SAVE
7
8			TYPE FFT_TYPE
9			REAL(KIND=JPRB) ,ALLOCATABLE :: TRIGS(:,:)
10			INTEGER(KIND=JPIM),ALLOCATABLE :: NFAX(:,:)
11			END TYPE FFT_TYPE
12
13			TYPE(FFT_TYPE),ALLOCATABLE,TARGET :: FFT_RESOL(:)
14			TYPE(FFT_TYPE),POINTER :: T
15
16			!$OMP THREADPRIVATE(t)
17
18			END MODULE TPM_FFT