42 integer,
allocatable :: data(:)
44 character(len=80) :: name
54 type(
mesh_t),
target,
intent(in) :: msh
55 character(len=*),
optional :: fld_name
60 if (.not.
allocated(fld%data))
then
61 allocate(fld%data(msh%nelv))
64 if (
present(fld_name))
then
67 fld%name =
'MeshField'
76 if (
allocated(fld%data))
then
subroutine mesh_field_free(fld)
subroutine mesh_field_init(fld, msh, fld_name)