bff_free Subroutine

private subroutine bff_free(sf)

Type Bound

t_boundaryFromFile

Arguments

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

self

Calls

proc~~bff_free~~CallsGraph proc~bff_free t_boundaryFromFile%bff_free sdeallocate sdeallocate proc~bff_free->sdeallocate

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)
CALL sf%nc%free()
sf%initialized=.FALSE.
END SUBROUTINE bff_free