deall_bief.f

Go to the documentation of this file.

!                   *********************
                    SUBROUTINE deall_bief
!
!***********************************************************************
! BIEF   V7P0
!***********************************************************************
!
!brief    CLEAN UP THE DATA FROM BIEF
!
!history Y AUDOUIN (LNHE)
!+       21/05/2015
!+       V7P1
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| MESH           |-->| THE MESH TO BE DEALLOCATED
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief,ex_deall_bief=>deall_bief
      USE streamline, ONLY: dealloc_streamline
      USE algae_transp, ONLY: dealloc_algae
      USE declarations_telemac
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER :: I
!     Old saved variables
!
      ! solve
      IF(.NOT.first_solve) THEN
        CALL bief_deallobj(tbb)
        ! BB contains link to array that are deallocated by the module
        ! using solve
        DO i=1,bb%N
          NULLIFY(bb%ADR(i)%P)
        ENDDO
        CALL bief_deallobj(bb)
        ! Same with BX
        DO i=1,bx%N
          NULLIFY(bx%ADR(i)%P)
        ENDDO
        CALL bief_deallobj(bx)
        first_solve = .true.
      ENDIF
      ! CVTRVF_POS_2
      IF(deja_cpos2) THEN
        DEALLOCATE(indic_cpos2)
        deja_cpos2=.false.
      ENDIF
      ! POSITIVE_DEPTHS
      IF(deja_pdept_nerd) THEN
        DEALLOCATE(indic_pdept_nerd)
        deja_pdept_nerd=.false.
      ENDIF
      IF(deja_pdept_eria) THEN
        DEALLOCATE(indic_pdept_eria)
        deja_pdept_eria=.false.
      ENDIF
      ! CVTRVF_POS
      IF(deja_cpos) THEN
        DEALLOCATE(indic_cpos)
        deja_cpos=.false.
      ENDIF
      ! SD_SOLVE_1
      IF(size_in.NE.0) THEN
        DEALLOCATE(in_ss1)
        size_in = 0
      ENDIF
      IF(size_ip.NE.0) THEN
        DEALLOCATE(ip_ss1)
        size_ip = 0
      ENDIF
      IF(size_isegip.NE.0) THEN
        DEALLOCATE(isegip_ss1)
        size_isegip = 0
      ENDIF
      IF(size_iw1.NE.0) THEN
        DEALLOCATE(iw1_ss1)
        size_iw1 = 0
      ENDIF
      IF(size_indtri.NE.0) THEN
        DEALLOCATE(indtri_ss1)
        size_indtri = 0
      ENDIF
      IF(size_inx.NE.0) THEN
        DEALLOCATE(inx_ss1)
        size_inx = 0
      ENDIF
      IF(size_ipx.NE.0) THEN
        DEALLOCATE(ipx_ss1)
        size_ipx = 0
      ENDIF
      IF(size_ac.NE.0) THEN
        DEALLOCATE(ac_ss1)
        size_ac = 0
      ENDIF
      IF(size_actri.NE.0) THEN
        DEALLOCATE(actri_ss1)
        size_actri = 0
      ENDIF
      IF(size_isp.NE.0) THEN
        DEALLOCATE(isp_ss1)
        size_isp = 0
      ENDIF
      IF(size_rsp.NE.0) THEN
        DEALLOCATE(rsp_ss1)
        size_rsp = 0
      ENDIF
      ! SD_SOLVE_4
      IF(size_gloseg4.NE.0) THEN
        DEALLOCATE(gloseg4_ss4)
        size_gloseg4 = 0
      ENDIF
      IF(size_da.NE.0) THEN
        DEALLOCATE(da_ss4)
        size_da = 0
      ENDIF
      IF(size_xa.NE.0) THEN
        DEALLOCATE(xa_ss4)
        size_xa = 0
      ENDIF
      IF(size_rhs.NE.0) THEN
        DEALLOCATE(rhs_ss4)
        size_rhs = 0
      ENDIF
      IF(size_xinc.NE.0) THEN
        DEALLOCATE(xinc_ss4)
        size_xinc = 0
      ENDIF
      ! PRE4_MUMPS
      IF(size_gloseg4_p4m.NE.0) THEN
        DEALLOCATE(gloseg4_p4m)
        size_gloseg4_p4m = 0
      ENDIF
      IF(size_da_p4m.NE.0) THEN
        DEALLOCATE(da_p4m)
        size_da_p4m = 0
      ENDIF
      IF(size_xa_p4m.NE.0) THEN
        DEALLOCATE(xa_p4m)
        size_xa_p4m = 0
      ENDIF
      IF(size_rhs_p4m.NE.0) THEN
        DEALLOCATE(rhs_p4m)
        size_rhs_p4m = 0
      ENDIF
      IF(size_xinc_p4m.NE.0) THEN
        DEALLOCATE(xinc_p4m)
        size_xinc_p4m = 0
      ENDIF
      ! CHARAC
      IF(deja_charac) THEN
        CALL bief_deallobj(t1weak)
        CALL bief_deallobj(t2weak)
        CALL bief_deallobj(t3weak)
        CALL bief_deallobj(t4weak)
        CALL bief_deallobj(t5weak)
        CALL bief_deallobj(t6weak)
        CALL bief_deallobj(t7weak)
        CALL bief_deallobj(shpwea)
        CALL bief_deallobj(ftild_weak)
        CALL bief_deallobj(shpbuf)
        CALL bief_deallobj(shzbuf)
        CALL bief_deallobj(shzwea)
        deja_charac = .false.
      ENDIF
      ! DERIVE
      IF(deja_derive) THEN
        CALL bief_deallobj(svoid_derive)
        deja_derive = .false.
      ENDIF
      IF(.NOT.init_alg) THEN
        DEALLOCATE(buff_1d_d)
        DEALLOCATE(buff_2d_d)
      ENDIF
!
!     Streamline
!
      CALL dealloc_streamline()

!
!     Algae
!
      CALL dealloc_algae()
!
!     Gracjg
!
      gracjg_cnt = 0

!
!-----------------------------------------------------------------------
!
      RETURN
      END