source: LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/rrtm/tpm_gen.F90

Last change on this file 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.2 KB
Line 
1MODULE TPM_GEN
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9INTEGER(KIND=JPIM) :: NOUT            ! Unit number for "standard" output
10INTEGER(KIND=JPIM) :: NERR            ! Unit number for error messages
11INTEGER(KIND=JPIM) :: NPRINTLEV       ! Printing level, 0=no print, 1=standard,2=debug
12
13INTEGER(KIND=JPIM) :: MSETUP0 = 0     ! Control of setup calls
14INTEGER(KIND=JPIM) :: NMAX_RESOL = 0  ! Maximum allowed number of resolutions
15INTEGER(KIND=JPIM) :: NCUR_RESOL = 0  ! Current resolution
16INTEGER(KIND=JPIM) :: NDEF_RESOL = 0  ! Number of defined resolutions
17INTEGER(KIND=JPIM) :: NPROMATR        ! Packet size for transform (in no of fields)
18                             ! NPROMATR=0 means do all fields together (dflt)
19
20LOGICAL   :: LALLOPERM       ! Allocate some shared data structures permanently
21LOGICAL   :: LIMP            ! true: use immediate message passing
22LOGICAL   :: LIMP_NOOLAP     ! true: use immediate message passing
23LOGICAL   :: LMPOFF          ! true: switch off message passing
24
25!$OMP THREADPRIVATE(lalloperm,limp,limp_noolap,lmpoff,msetup0,ncur_resol)
26!$OMP THREADPRIVATE(ndef_resol,nerr,nmax_resol,nout,nprintlev,npromatr)
27
28END MODULE TPM_GEN
Note: See TracBrowser for help on using the repository browser.