source: LMDZ5/branches/testing/libf/phylmd/rrtm/yomleg.F90 @ 1999

Last change on this file since 1999 was 1999, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes r1920:1997 into testing branch
  • 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.3 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
40END MODULE YOMLEG
Note: See TracBrowser for help on using the repository browser.