Update Field: Shared Nodes
subroutine FEM_Update_Field(fid,nodes)
integer, intent(in) :: fid
varies, intent(inout) :: nodes