yomleg.F90

Go to the documentation of this file.

MODULE yomleg

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*    Description of Legendre polynomials

! RW          : weights of the gaussian quadrature
! RMU         : mu              sin(theta)
! R1MU2       : 1.-MU*MU        cos(theta)**2
! R1MUI       : 1./R1MU2      1/cos(theta)**2
! R1MUA       : 1./R1MU2/RA   1/(a*cos(theta)**2)
! RSQM2       : SQRT(R1MU2)     cos(theta)
! R1QM2       : 1./SQRT(R1MU2) 1/cos(theta)
! RACTHE      : 1./SQRT(R1MU2) 1/(a*cos(theta))
! RLATIG      : arcsin(mu)      theta  GLOBAL VIEW
! RLATI       : arcsin(mu)      theta
! RIPI0       : bi-cubic interpolation coefficients
! RIPI1       : bi-cubic interpolation coefficients
! RIPI2       : bi-cubic interpolation coefficients

REAL(KIND=JPRB),ALLOCATABLE:: rw(:)
REAL(KIND=JPRB),ALLOCATABLE:: rmu(:)
REAL(KIND=JPRB),ALLOCATABLE:: r1mu2(:)
REAL(KIND=JPRB),ALLOCATABLE:: r1mui(:)
REAL(KIND=JPRB),ALLOCATABLE:: r1mua(:)
REAL(KIND=JPRB),ALLOCATABLE:: rsqm2(:)
REAL(KIND=JPRB),ALLOCATABLE:: r1qm2(:)
REAL(KIND=JPRB),ALLOCATABLE:: racthe(:)
REAL(KIND=JPRB),ALLOCATABLE:: rlatig(:)
REAL(KIND=JPRB),ALLOCATABLE:: rlati(:)
REAL(KIND=JPRB),ALLOCATABLE:: ripi0(:)
REAL(KIND=JPRB),ALLOCATABLE:: ripi1(:)
REAL(KIND=JPRB),ALLOCATABLE:: ripi2(:)

!$OMP THREADPRIVATE(r1mu2,r1mua,r1mui,r1qm2,racthe,ripi0,ripi1,ripi2,rlati,rlatig,rmu,rsqm2,rw)
END MODULE yomleg