wz_mod.F90

Go to the documentation of this file.

module wz_m
!     Gauss-Labotto and Gauss points
  use kinds, only : dp
  use size_m
  implicit none

  real(DP) :: zgm1(lx1,3), zgm2(lx2,3), zgm3(lx3,3) &
    ,zam1(lx1)  , zam2(lx2)  , zam3(lx3)

!    Weights

  real(DP) :: wxm1(lx1), wym1(ly1), wzm1(lz1), w3m1(lx1,ly1,lz1) &
    ,wxm2(lx2), wym2(ly2), wzm2(lz2), w3m2(lx2,ly2,lz2) &
    ,wxm3(lx3), wym3(ly3), wzm3(lz3), w3m3(lx3,ly3,lz3) &
    ,wam1(ly1), wam2(ly2), wam3(ly3) &
    ,w2am1(lx1,ly1), w2cm1(lx1,ly1) &
    ,w2am2(lx2,ly2), w2cm2(lx2,ly2) &
    ,w2am3(lx3,ly3), w2cm3(lx3,ly3)

end module wz_m