42 integer,
allocatable :: data(:)
44 character(len=80) :: name
53 type(
mesh_t),
target,
intent(in) :: msh
54 character(len=*),
optional :: fld_name
59 if (.not.
allocated(fld%data))
then
60 allocate(fld%data(msh%nelv))
63 if (
present(fld_name))
then
66 fld%name =
'MeshField'
75 if (
allocated(fld%data))
then
subroutine, public mesh_field_free(fld)
subroutine, public mesh_field_init(fld, msh, fld_name)