bff_free Subroutine

private subroutine bff_free(sf)

Type Bound

t_boundaryFromFile

Arguments

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

self

Source Code

SUBROUTINE bff_free(sf)
! MODULES
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
CLASS(t_boundaryFromFile), INTENT(INOUT) :: sf !! self
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
!===================================================================================================================================
IF(.NOT.sf%initialized)RETURN
SDEALLOCATE(sf%theta)
SDEALLOCATE(sf%zeta)
SDEALLOCATE(sf%X)
SDEALLOCATE(sf%Y)
IF(ALLOCATED(sf%nc))THEN
  CALL sf%nc%free()
  DEALLOCATE(sf%nc)
END IF
sf%initialized=.FALSE.
END SUBROUTINE bff_free