mvgeom_mod.F90

Go to the documentation of this file.

module mvgeom
!     Moving mesh data
  use kinds, only : dp

  real(DP), allocatable :: wx(:,:,:,:) 
  real(DP), allocatable :: wy(:,:,:,:) 
  real(DP), allocatable :: wz(:,:,:,:) 

  real(DP), allocatable :: wxlag (:,:,:,:,:)
  real(DP), allocatable :: wylag (:,:,:,:,:)
  real(DP), allocatable :: wzlag (:,:,:,:,:)

  real(DP), allocatable :: w1mask(:,:,:,:) 
  real(DP), allocatable :: w2mask(:,:,:,:) 
  real(DP), allocatable :: w3mask(:,:,:,:) 
  real(DP), allocatable :: wmult(:,:,:,:) 

  real(DP), allocatable :: ev1(:,:,:,:)
  real(DP), allocatable :: ev2(:,:,:,:)
  real(DP), allocatable :: ev3(:,:,:,:)

  contains

  subroutine init_mvgeom()
    use size_m
    implicit none

!    allocate( &
!        WX    (LX1M,LY1M,LZ1M,LELT) &
!    ,   WY    (LX1M,LY1M,LZ1M,LELT) &
!    ,   WZ    (LX1M,LY1M,LZ1M,LELT) )
!    allocate( WXLAG (LX1M,LY1M,LZ1M,LELT,LORDER-1) &
!    ,   WYLAG (LX1M,LY1M,LZ1M,LELT,LORDER-1) &
!    ,   WZLAG (LX1M,LY1M,LZ1M,LELT,LORDER-1) )
!    allocate( W1MASK(LX1M,LY1M,LZ1M,LELT) &
!    ,   W2MASK(LX1M,LY1M,LZ1M,LELT) &
!    ,   W3MASK(LX1M,LY1M,LZ1M,LELT) &
!    ,   WMULT (LX1M,LY1M,LZ1M,LELT) )
!    allocate( EV1   (LX1M,LY1M,LZ1M,LELV) &
!    , EV2   (LX1M,LY1M,LZ1M,LELV) &
!    , EV3   (LX1M,LY1M,LZ1M,LELV) )

  end subroutine init_mvgeom

end module mvgeom