yomcver.F90

Go to the documentation of this file.

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