tpm_gen.F90

Go to the documentation of this file.

MODULE tpm_gen

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

INTEGER(KIND=JPIM) :: nout            ! Unit number for "standard" output
INTEGER(KIND=JPIM) :: nerr            ! Unit number for error messages
INTEGER(KIND=JPIM) :: nprintlev       ! Printing level, 0=no print, 1=standard,2=debug

INTEGER(KIND=JPIM) :: msetup0 = 0     ! Control of setup calls
INTEGER(KIND=JPIM) :: nmax_resol = 0  ! Maximum allowed number of resolutions
INTEGER(KIND=JPIM) :: ncur_resol = 0  ! Current resolution
INTEGER(KIND=JPIM) :: ndef_resol = 0  ! Number of defined resolutions
INTEGER(KIND=JPIM) :: npromatr        ! Packet size for transform (in no of fields)
                             ! NPROMATR=0 means do all fields together (dflt)

LOGICAL   :: lalloperm       ! Allocate some shared data structures permanently
LOGICAL   :: limp            ! true: use immediate message passing 
LOGICAL   :: limp_noolap     ! true: use immediate message passing 
LOGICAL   :: lmpoff          ! true: switch off message passing

!$OMP THREADPRIVATE(lalloperm,limp,limp_noolap,lmpoff,msetup0,ncur_resol)
!$OMP THREADPRIVATE(ndef_resol,nerr,nmax_resol,nout,nprintlev,npromatr)

END MODULE tpm_gen