source: LMDZ6/branches/LMDZ-INCA-Dyn/libf/phylmd/rrtm/tpm_trans.F90 @ 4270

Last change on this file since 4270 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.8 KB
Line 
1MODULE TPM_TRANS
2
3! Module to contain variables "local" to a specific call to a transform
4
5USE PARKIND1  ,ONLY : JPIM     ,JPRB
6
7IMPLICIT NONE
8
9SAVE
10
11!INTEGER_M :: NF_UV      ! Number of u-v fields (spectral/fourier space)
12!INTEGER_M :: NF_SCALARS ! Number of scalar fields (spectral/fourier space)
13!INTEGER_M :: NF_SCDERS  ! Number of fields for derivatives of scalars
14                        ! (inverse transform, spectral/fourier space)
15!INTEGER_M :: NF_OUT_LT  ! Number of fields that comes out of Inverse
16                        ! Legendre transform
17INTEGER(KIND=JPIM) :: NF_SC2
18INTEGER(KIND=JPIM) :: NF_SC3A
19INTEGER(KIND=JPIM) :: NF_SC3B
20
21!LOGICAL   :: LUV        ! uv fields requested
22!LOGICAL   :: LSCALAR    ! scalar fields requested
23LOGICAL   :: LVORGP     ! vorticity requested
24LOGICAL   :: LDIVGP     ! divergence requested
25LOGICAL   :: LUVDER     ! E-W derivatives of U and V requested
26LOGICAL   :: LSCDERS    ! derivatives of scalar variables are req.
27
28!INTEGER_M :: NLEI2 ! 8*NF_UV + 2*NF_SCALARS + 2*NF_SCDERS (dimension in
29                   ! inverse  Legendre transform)
30!INTEGER_M :: NLED2 ! 2*NF_FS (dimension in direct Legendre transform)
31
32!INTEGER_M :: NF_FS    ! Total number of fields in Fourier space
33
34!INTEGER_M :: NF_GP        ! Total number of field in grid-point space
35!INTEGER_M :: NF_UV_G      ! Global version of NF_UV (grid-point space)
36!INTEGER_M :: NF_SCALARS_G ! Global version of NF_SCALARS (grid-point space)
37
38REAL(KIND=JPRB), ALLOCATABLE :: FOUBUF_IN(:)  ! Fourier buffer
39REAL(KIND=JPRB), ALLOCATABLE :: FOUBUF(:)     ! Fourier buffer
40
41INTEGER(KIND=JPIM) :: NPROMA  ! Blocking factor for gridpoint input/output
42INTEGER(KIND=JPIM) :: NGPBLKS ! Number of NPROMA blocks
43
44!$OMP THREADPRIVATE(ldivgp,lscders,luvder,lvorgp,nf_sc2,nf_sc3a,nf_sc3b,ngpblks,nproma)
45!$OMP THREADPRIVATE(foubuf_in,foubuf)
46
47END MODULE TPM_TRANS
48
49
Note: See TracBrowser for help on using the repository browser.