tpm_dim.F90

Go to the documentation of this file.

MODULE tpm_dim

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

TYPE dim_type
! SPECTRAL SPACE DIMENSIONS

  INTEGER(KIND=JPIM) :: nsmax      ! Truncation order
  INTEGER(KIND=JPIM) :: ntmax
  INTEGER(KIND=JPIM) :: nspoleg    ! Number of Legandre polynomials
  INTEGER(KIND=JPIM) :: nspec_g    ! Number of complex spectral coefficients (global)
  INTEGER(KIND=JPIM) :: nspec2_g   ! 2*NSPEC_G

! COLLOCATION GRID DIMENSIONS
  
  INTEGER(KIND=JPIM) :: ndgl       ! Number of rows of latitudes
  INTEGER(KIND=JPIM) :: ndlon      ! Maximum number of longitude points (near equator)
  INTEGER(KIND=JPIM) :: ndgnh      ! Number of rows in northern hemisphere

! Legendre transform dimensions
  INTEGER(KIND=JPIM) :: nlei1      ! R%NSMAX+4+MOD(R%NSMAX+4+1,2)
  INTEGER(KIND=JPIM) :: nlei3      ! R%NDGNH+MOD(R%NDGNH+2,2)
  INTEGER(KIND=JPIM) :: nled3      ! R%NTMAX+2+MOD(R%NTMAX+3,2)
  INTEGER(KIND=JPIM) :: nled4      ! R%NTMAX+3+MOD(R%NTMAX+4,2)
END TYPE dim_type

TYPE(dim_type),ALLOCATABLE,TARGET :: dim_resol(:)
TYPE(dim_type),POINTER     :: r

!$OMP THREADPRIVATE(r)
!$OMP THREADPRIVATE(dim_resol)


END MODULE tpm_dim