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

Called by

proc~~tem_global_mesh_free~~CalledByGraph proc~tem_global_mesh_free tem_global_mesh_free proc~free_treelmesh free_treelmesh proc~free_treelmesh->proc~tem_global_mesh_free

Contents

Source Code

tem_global_mesh_free

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