source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phyiso/rrtm/tpm_trans.F90 @ 4249

Last change on this file since 4249 was 3331, checked in by acozic, 7 years ago

Add modification for isotopes

  • Property svn:executable set to *
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.