sGrid_free Subroutine

private subroutine sGrid_free(sf)

finalize the type sgrid

Type Bound

t_sGrid

Arguments

Type IntentOptional Attributes Name
class(t_sGrid), intent(inout) :: sf

self

Calls

proc~~sgrid_free~~CallsGraph proc~sgrid_free t_sGrid%sGrid_free sdeallocate sdeallocate proc~sgrid_free->sdeallocate

Source Code

SUBROUTINE sGrid_free( sf )
! MODULES
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  CLASS(t_sgrid), INTENT(INOUT) :: sf !! self
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
!===================================================================================================================================
  IF(.NOT.sf%initialized) RETURN

  sf%nElems   = -1
  sf%grid_Type= -1

  SDEALLOCATE(sf%offset_elem)
  SDEALLOCATE(sf%sp)
  SDEALLOCATE(sf%ds)

  sf%initialized=.FALSE.

END SUBROUTINE sGrid_free