deall_waqtel.f

Go to the documentation of this file.

!                     ***********************
                      SUBROUTINE deall_waqtel
!                     ***********************
!
!
!***********************************************************************
! TELEMAC2D   V7P3
!***********************************************************************
!
!brief    Memory allocation of structures, aliases, blocks...
!
!history  S.E.BOURBAN (HRW)
!+        25/09/2017
!+        V7P3
!+        First implementation
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief
      USE declarations_waqtel
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!

!
!-----------------------------------------------------------------------
!
!     DEGRADATION LAW
!
      CALL bief_deallobj(k2)
      CALL bief_deallobj(rayeff)
      CALL bief_deallobj(rayaed2)

      IF(ALLOCATED(loitrac)) THEN
        DEALLOCATE(loitrac)
        DEALLOCATE(coef1trac)
      ENDIF
!
!-----------------------------------------------------------------------
!
      RETURN
      END SUBROUTINE deall_waqtel