outbief.f

Go to the documentation of this file.

!                   *****************
                    SUBROUTINE outbief
!                   *****************
     &(mesh)
!
!***********************************************************************
! BIEF   V7P0
!***********************************************************************
!
!brief    CLEAN UP THE DATA FROM MESH
!
!history Y AUDOUIN (LNHE)
!+       21/05/2015
!+       V7P1
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| MESH           |-->| THE MESH TO BE DEALLOCATED
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief
      USE declarations_telemac
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      TYPE(bief_mesh), INTENT(INOUT) :: MESH
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      IF(modass.EQ.2) THEN
        DEALLOCATE(mesh%WI8)
        DEALLOCATE(mesh%TI8)
      ENDIF
!
!     THESE STUCTURES ARE ALLOCATED IN PARINI
      CALL bief_deallobj(mesh%NB_NEIGHB_PT    )
      CALL bief_deallobj(mesh%LIST_SEND       )
      CALL bief_deallobj(mesh%NH_COM          )
      CALL bief_deallobj(mesh%NB_NEIGHB_PT_SEG)
      CALL bief_deallobj(mesh%LIST_SEND_SEG   )
      CALL bief_deallobj(mesh%NH_COM_SEG      )
      CALL bief_deallobj(mesh%BUF_SEND        )
      CALL bief_deallobj(mesh%BUF_RECV        )
!
!-----------------------------------------------------------------------
!
      RETURN
      END