MODULE YOMCVER USE PARKIND1 ,ONLY : JPIM ,JPRB IMPLICIT NONE SAVE ! ----------------------------------------------------------------------------- ! * Variables related to vertical discretisation in finite elements: ! LVERTFE : .T./.F. Finite element/conventional vertical discretisation. ! NVSCH : type of basis if the finite element vertical discretisation is used. ! 1: linear functions. ! 3: Hermite cubic functions. ! RINTE : matricial operator for vertical integrations in the ! finite element vertical discretisation. ! RDERI : matricial operator for vertical derivatives in the ! finite element vertical discretisation. LOGICAL :: LVERTFE INTEGER(KIND=JPIM) :: NVSCH REAL(KIND=JPRB),ALLOCATABLE :: RINTE(:,:) REAL(KIND=JPRB),ALLOCATABLE :: RDERI(:,:) ! ----------------------------------------------------------------------------- ! * Variables related to use of spline cubic vertical interpolations ! in the semi-Lagrangian scheme: ! LVSPLIP : .T. if vertical spline cubic SL interpolations for O3. ! RVSPTRI,RVSPC : are used to re-profile the field to be interpolated ! in routine VSPLTRANS. ! RFAA,RFBB,RFCC,RFDD: are used in the computation of the vertical weights. ! VRDETAR : ratio (eta(lbar)-eta(lbar-1))/(eta(lbar-1)-eta(lbar-2)), ! is used in the interpolation routine LAITVSPCQM to ! ensure monotonicity and conservation properties. LOGICAL :: LVSPLIP LOGICAL :: LSVTSM ! Stratospheric vertical trajectory smoothed REAL(KIND=JPRB),ALLOCATABLE :: RVSPTRI(:,:) REAL(KIND=JPRB),ALLOCATABLE :: RVSPC(:) REAL(KIND=JPRB),ALLOCATABLE :: RFAA(:,:) REAL(KIND=JPRB),ALLOCATABLE :: RFBB(:,:) REAL(KIND=JPRB),ALLOCATABLE :: RFCC(:,:) REAL(KIND=JPRB),ALLOCATABLE :: RFDD(:,:) REAL(KIND=JPRB),ALLOCATABLE :: VRDETAR(:) ! ----------------------------------------------------------------------------- !$OMP THREADPRIVATE(lsvtsm,lvertfe,lvsplip,nvsch) !$OMP THREADPRIVATE(rderi,rfaa,rfbb,rfcc,rfdd,rinte,rvspc,rvsptri,vrdetar) END MODULE YOMCVER