The TELEMAC-MASCARET system  trunk
user_calcs3d_degradation.f
Go to the documentation of this file.
1 ! ***********************************
2  SUBROUTINE user_calcs3d_degradation
3 ! ***********************************
4 !
5  &(npoin3,npoin2,nplan,tn,texp,timp,z,nwaq_degra,rank_degra,
6  & loitrac,coef1trac)
7 !
8 !***********************************************************************
9 ! WAQTEL V8P2
10 !***********************************************************************
11 !
12 !brief COMPUTES SOURCE TERMS FOR DEGRADATION LAWS PROCESSES
13 ! IMPLEMENTATION DONE BY THE USER
14 !
15 !history C.-T. PHAM
16 !+ 26/07/2020
17 !+ V8P2
18 !+ Creation from SOURCE_WAQ
19 !
20 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
21 !| COEF1TRAC |-->| COEFFICIENT 1 FOR LAW OF TRACERS DEGRADATION
22 !| LOITRAC |-->| LAW OF TRACERS DEGRADATION
23 !| NPLAN |-->| NUMBER OF VERTICAL PLANES
24 !| NPOIN2 |-->| NUMBER OF NODES IN THE 2D MESH
25 !| NPOIN3 |-->| NUMBER OF NODES IN THE 3D MESH
26 !| NWAQ_DEGRA |-->| NUMBER OF TRACERS WITH A DEGRADATION LAW
27 !| RANK_DEGRA |-->| GROUP TRACERS WITH A DEGRADATION LAW
28 !| TEXP |-->| EXPLICIT SOURCE TERM
29 !| TIMP |-->| IMPLICIT SOURCE TERM
30 !| TN |-->| TRACERS AT TIME N
31 !| Z |-->| Z COORDINATES FOR NODES
32 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
33 !
34  USE bief
36  IMPLICIT NONE
37 !
38 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
39 !
40  INTEGER, INTENT(IN) :: NPOIN3,NPOIN2,NPLAN
41  TYPE(bief_obj), INTENT(IN) :: TN
42  TYPE(bief_obj), INTENT(INOUT) :: TEXP,TIMP
43  TYPE(bief_obj), INTENT(IN) :: Z
44  INTEGER, INTENT(IN) :: NWAQ_DEGRA
45  INTEGER, INTENT(IN) :: LOITRAC(*)
46  INTEGER, INTENT(IN) :: RANK_DEGRA(*)
47  DOUBLE PRECISION, INTENT(IN) :: COEF1TRAC(*)
48 !
49 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
50 !
51 !
52 !-----------------------------------------------------------------------
53 !
54 !
55 !-----------------------------------------------------------------------
56 !
57  RETURN
58  END
subroutine user_calcs3d_degradation(NPOIN3, NPOIN2, NPLAN, TN, TEXP, TIMP, Z, NWAQ_DEGRA, RANK_DEGRA, LOITRAC, COEF1TRAC)
Definition: bief.f:3