The TELEMAC-MASCARET system  trunk
deall_waqtel.f
Go to the documentation of this file.
1 ! ***********************
2  SUBROUTINE deall_waqtel
3 ! ***********************
4 !
5 !
6 !***********************************************************************
7 ! TELEMAC2D V7P3
8 !***********************************************************************
9 !
10 !brief Memory allocation of structures, aliases, blocks...
11 !
12 !history S.E.BOURBAN (HRW)
13 !+ 25/09/2017
14 !+ V7P3
15 !+ First implementation
16 !
17 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
18 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
19 !
20  USE bief
22 !
24  IMPLICIT NONE
25 !
26 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
27 !
28 !
29 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
30 !
31 
32 !
33 !-----------------------------------------------------------------------
34 !
35 ! DEGRADATION LAW
36 !
37  CALL bief_deallobj(k2)
38  CALL bief_deallobj(rayeff)
40 
41  IF(ALLOCATED(loitrac)) THEN
42  DEALLOCATE(loitrac)
43  DEALLOCATE(coef1trac)
44  ENDIF
45 !
46 !-----------------------------------------------------------------------
47 !
48  RETURN
49  END SUBROUTINE deall_waqtel
integer, dimension(:), allocatable loitrac
subroutine bief_deallobj(OBJ)
Definition: bief_deallobj.f:7
double precision, dimension(:), allocatable coef1trac
type(bief_obj), target k2
type(bief_obj), target rayaed2
type(bief_obj), target rayeff
Definition: bief.f:3