source: LMDZ5/branches/testing/libf/phylmd/rrtm/tpm_dim.F90 @ 4249

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

Merged trunk changes r1997:2055 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.1 KB
Line 
1MODULE TPM_DIM
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9TYPE DIM_TYPE
10! SPECTRAL SPACE DIMENSIONS
11
12  INTEGER(KIND=JPIM) :: NSMAX      ! Truncation order
13  INTEGER(KIND=JPIM) :: NTMAX
14  INTEGER(KIND=JPIM) :: NSPOLEG    ! Number of Legandre polynomials
15  INTEGER(KIND=JPIM) :: NSPEC_G    ! Number of complex spectral coefficients (global)
16  INTEGER(KIND=JPIM) :: NSPEC2_G   ! 2*NSPEC_G
17
18! COLLOCATION GRID DIMENSIONS
19 
20  INTEGER(KIND=JPIM) :: NDGL       ! Number of rows of latitudes
21  INTEGER(KIND=JPIM) :: NDLON      ! Maximum number of longitude points (near equator)
22  INTEGER(KIND=JPIM) :: NDGNH      ! Number of rows in northern hemisphere
23
24! Legendre transform dimensions
25  INTEGER(KIND=JPIM) :: NLEI1      ! R%NSMAX+4+MOD(R%NSMAX+4+1,2)
26  INTEGER(KIND=JPIM) :: NLEI3      ! R%NDGNH+MOD(R%NDGNH+2,2)
27  INTEGER(KIND=JPIM) :: NLED3      ! R%NTMAX+2+MOD(R%NTMAX+3,2)
28  INTEGER(KIND=JPIM) :: NLED4      ! R%NTMAX+3+MOD(R%NTMAX+4,2)
29END TYPE DIM_TYPE
30
31TYPE(DIM_TYPE),ALLOCATABLE,TARGET :: DIM_RESOL(:)
32TYPE(DIM_TYPE),POINTER     :: R
33
34!$OMP THREADPRIVATE(r)
35!$OMP THREADPRIVATE(dim_resol)
36
37
38END MODULE TPM_DIM
Note: See TracBrowser for help on using the repository browser.