yomslphy.F90

Go to the documentation of this file.

MODULE yomslphy

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------

! * Variables for split ECMWF physics.

! LSLPHY  : for split physics (one part at t-Dt, one part at t+Dt);
!           can be used only at ECMWF with the ECMWF package.
! RSLWX   : level of implicitness of semi-Lagrangian/physics.
! NVTEND  : third dimension of SAVTEND (number of 3D fields).
! SAVTEND : buffer to store the physical tendencies.

LOGICAL :: lslphy
REAL(KIND=JPRB)   , PARAMETER :: rslwx=0.5_jprb
INTEGER(KIND=JPIM) :: nvtend
REAL(KIND=JPRB),ALLOCATABLE :: savtend(:,:,:,:)
! Pointers for SAVTEND
INTEGER(KIND=JPIM) :: mu_savtend,mv_savtend,mt_savtend,msat_savtend
INTEGER(KIND=JPIM) :: mu_savtend_s,mv_savtend_s,mt_savtend_s,msat_savtend_s
INTEGER(KIND=JPIM) :: msavtend_s

!$OMP THREADPRIVATE(lslphy,msat_savtend,msat_savtend_s,msavtend_s,mt_savtend,mt_savtend_s)
!$OMP THREADPRIVATE(mu_savtend,mu_savtend_s,mv_savtend,mv_savtend_s,nvtend)
!$OMP THREADPRIVATE(savtend)
END MODULE yomslphy