source: LMDZ6/trunk/libf/phylmd/rrtm/yomleg.F90 @ 5018

Last change on this file since 5018 was 2010, checked in by Laurent Fairhead, 11 years ago

Modifications pour OpenMP

OpenMP modifications
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 1.4 KB
Line 
1MODULE YOMLEG
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*    Description of Legendre polynomials
11
12! RW          : weights of the gaussian quadrature
13! RMU         : mu              sin(theta)
14! R1MU2       : 1.-MU*MU        cos(theta)**2
15! R1MUI       : 1./R1MU2      1/cos(theta)**2
16! R1MUA       : 1./R1MU2/RA   1/(a*cos(theta)**2)
17! RSQM2       : SQRT(R1MU2)     cos(theta)
18! R1QM2       : 1./SQRT(R1MU2) 1/cos(theta)
19! RACTHE      : 1./SQRT(R1MU2) 1/(a*cos(theta))
20! RLATIG      : arcsin(mu)      theta  GLOBAL VIEW
21! RLATI       : arcsin(mu)      theta
22! RIPI0       : bi-cubic interpolation coefficients
23! RIPI1       : bi-cubic interpolation coefficients
24! RIPI2       : bi-cubic interpolation coefficients
25
26REAL(KIND=JPRB),ALLOCATABLE:: RW(:)
27REAL(KIND=JPRB),ALLOCATABLE:: RMU(:)
28REAL(KIND=JPRB),ALLOCATABLE:: R1MU2(:)
29REAL(KIND=JPRB),ALLOCATABLE:: R1MUI(:)
30REAL(KIND=JPRB),ALLOCATABLE:: R1MUA(:)
31REAL(KIND=JPRB),ALLOCATABLE:: RSQM2(:)
32REAL(KIND=JPRB),ALLOCATABLE:: R1QM2(:)
33REAL(KIND=JPRB),ALLOCATABLE:: RACTHE(:)
34REAL(KIND=JPRB),ALLOCATABLE:: RLATIG(:)
35REAL(KIND=JPRB),ALLOCATABLE:: RLATI(:)
36REAL(KIND=JPRB),ALLOCATABLE:: RIPI0(:)
37REAL(KIND=JPRB),ALLOCATABLE:: RIPI1(:)
38REAL(KIND=JPRB),ALLOCATABLE:: RIPI2(:)
39
40!$OMP THREADPRIVATE(r1mu2,r1mua,r1mui,r1qm2,racthe,ripi0,ripi1,ripi2,rlati,rlatig,rmu,rsqm2,rw)
41END MODULE YOMLEG
Note: See TracBrowser for help on using the repository browser.