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