tem_global_mesh_free Subroutine

public subroutine tem_global_mesh_free(me)

Routine to free allocated memory for the header again.

Arguments

Type IntentOptional Attributes Name
type(tem_global_type), intent(inout) :: me

Source Code

  subroutine tem_global_mesh_free(me)
    type(tem_global_type), intent(inout) :: me

    if (associated(me%Property)) deallocate(me%Property)
    me%effOrigin = 0.0_rk
    me%effLength = 0.0_rk
    me%predefined = ''

  end subroutine tem_global_mesh_free