mod_mesh.f90

Go to the documentation of this file.

module mod_mesh

  use itm_types

  implicit none

  integer(itm_i4) :: ias
  integer(itm_i4) :: nr, np

  real(r8), allocatable :: psi(:)

  real(r8), allocatable :: xx(:,:), yy(:,:)

  real(r8), allocatable :: psiold(:), xxold(:, :), yyold(:, :)

end module mod_mesh