tpm_trans.F90

Go to the documentation of this file.

MODULE tpm_trans

! Module to contain variables "local" to a specific call to a transform

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!INTEGER_M :: NF_UV      ! Number of u-v fields (spectral/fourier space)
!INTEGER_M :: NF_SCALARS ! Number of scalar fields (spectral/fourier space)
!INTEGER_M :: NF_SCDERS  ! Number of fields for derivatives of scalars
                        ! (inverse transform, spectral/fourier space)
!INTEGER_M :: NF_OUT_LT  ! Number of fields that comes out of Inverse 
                        ! Legendre transform
INTEGER(KIND=JPIM) :: nf_sc2
INTEGER(KIND=JPIM) :: nf_sc3a
INTEGER(KIND=JPIM) :: nf_sc3b

!LOGICAL   :: LUV        ! uv fields requested
!LOGICAL   :: LSCALAR    ! scalar fields requested
LOGICAL   :: lvorgp     ! vorticity requested
LOGICAL   :: ldivgp     ! divergence requested
LOGICAL   :: luvder     ! E-W derivatives of U and V requested
LOGICAL   :: lscders    ! derivatives of scalar variables are req.

!INTEGER_M :: NLEI2 ! 8*NF_UV + 2*NF_SCALARS + 2*NF_SCDERS (dimension in 
                   ! inverse  Legendre transform)
!INTEGER_M :: NLED2 ! 2*NF_FS (dimension in direct Legendre transform)

!INTEGER_M :: NF_FS    ! Total number of fields in Fourier space

!INTEGER_M :: NF_GP        ! Total number of field in grid-point space
!INTEGER_M :: NF_UV_G      ! Global version of NF_UV (grid-point space)
!INTEGER_M :: NF_SCALARS_G ! Global version of NF_SCALARS (grid-point space)

REAL(KIND=JPRB), ALLOCATABLE :: foubuf_in(:)  ! Fourier buffer 
REAL(KIND=JPRB), ALLOCATABLE :: foubuf(:)     ! Fourier buffer

INTEGER(KIND=JPIM) :: nproma  ! Blocking factor for gridpoint input/output
INTEGER(KIND=JPIM) :: ngpblks ! Number of NPROMA blocks

!$OMP THREADPRIVATE(ldivgp,lscders,luvder,lvorgp,nf_sc2,nf_sc3a,nf_sc3b,ngpblks,nproma)
!$OMP THREADPRIVATE(foubuf_in,foubuf)

END MODULE tpm_trans