source: LMDZ5/branches/testing/libf/phylmd/rrtm/tpm_fields.F90 @ 2488

Last change on this file since 2488 was 1999, checked in by Laurent Fairhead, 11 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: 877 bytes
RevLine 
[1989]1MODULE TPM_FIELDS
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9TYPE FIELDS_TYPE
10REAL(KIND=JPRB) ,POINTER :: RPNM(:,:) ! Legendre polynomials
11REAL(KIND=JPRB) ,POINTER :: RMU(:)    ! sin(theta) for Gaussian latitudes
12REAL(KIND=JPRB) ,POINTER :: RW(:)     ! Weights of the Gaussian quadrature
13REAL(KIND=JPRB) ,POINTER :: R1MU2(:)  ! 1.-MU*MU, cos(theta)**2
14REAL(KIND=JPRB) ,POINTER :: RACTHE(:) ! 1./SQRT(R1MU2), 1/(cos(theta))
15
16REAL(KIND=JPRB) ,POINTER :: REPSNM(:) ! eps(n,m) used in the Legendre transforms
17REAL(KIND=JPRB) ,POINTER :: RN(:)     ! n (to avoid integer to real conversion)
18REAL(KIND=JPRB) ,POINTER :: RLAPIN(:) ! eigen-values of the inverse Laplace operator
19INTEGER(KIND=JPIM) ,POINTER :: NLTN(:) ! R%NTMAX+2-JN
20END TYPE FIELDS_TYPE
21
22TYPE(FIELDS_TYPE),ALLOCATABLE,TARGET :: FIELDS_RESOL(:)
23TYPE(FIELDS_TYPE),POINTER     :: F
24
25END MODULE TPM_FIELDS
Note: See TracBrowser for help on using the repository browser.