rea.f90

Go to the documentation of this file.

!
module rea
  use num_types, only : dp
  use mesh, only : mesh_t
  implicit none
  private
 
 
  type, public :: rea_t
     type(mesh_t) :: msh
     real(kind=dp), allocatable :: params(:) 
     character(len=3), allocatable :: cbc(:,:)
  end type rea_t
 
 
  public :: rea_free
 
contains
 
  subroutine rea_free(r)
    type(rea_t), intent(inout) :: r
 
    call r%msh%free()
 
    if (allocated(r%params)) then
       deallocate(r%params)
    end if
 
  end subroutine rea_free
 
 
 
end module rea