The TELEMAC-MASCARET system  trunk
algae_death.f
Go to the documentation of this file.
1 ! ***********************
2  SUBROUTINE algae_death
3 ! ***********************
4 !
5  &(ald,mp,cmor,trr,tresp,gt,tox,npoin )
6 !
7 !***********************************************************************
8 ! TELEMAC2D V7P1
9 !***********************************************************************
10 !
11 !brief COMPUTES THE DISAPPEARANCE RATE OF ALGAE
12 !
13 !history R. ATA (LNHE)
14 !+ 02/09/2015
15 !+ V7P1
16 !+
17 !
18 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
19 !| ALD |<--| ALGAE DEATH
20 !| CMOR |-->| COEFFICIENTS OF ALGAE DEATH RATE AT 20C
21 !| RAY |-->| EFFECT OF SUNSHINE in [0,1]
22 !| GT |-->| EFFECT OF OF TEMPERATURE ON ALGAE GROWTH
23 !| | | GT=T/20, T: WATER TEMPERATURE
24 !| MP |<--| DISAPPEAANCE RATE OF ALGAL BIOMASS AT 20 DEG C
25 !| NPOIN |-->| NUMBER OF NODES
26 !| TOX |-->| COEFFICIENT OF WATER TOXICITY
27 !| TRR |-->| TRACER (PHYTOPLANCTOPN BIOMASS)
28 !| TRESP |-->| RESPIRATION RATE OF ALGAL BIOMASS
29 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
30 !
31  USE bief
32  USE interface_waqtel, ex_algae_death=>algae_death
34 !
35  IMPLICIT NONE
36 !
37 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
38 !
39  INTEGER , INTENT(IN ) :: npoin
40  DOUBLE PRECISION, INTENT(IN ) :: cmor(2),trr(npoin),tox,tresp
41  DOUBLE PRECISION, INTENT(INOUT) :: ald(npoin),mp(npoin)
42  TYPE(bief_obj) , INTENT(IN ) :: gt
43 ! LOCAL VARIABLES
44  INTEGER i
45 !
46 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
47 !
48  DO i=1,npoin
49  mp(i) = cmor(1)+cmor(2)*trr(i)+tox
50  ald(i)= gt%R(i)*(mp(i)+tresp)
51  ENDDO
52 !
53 !-----------------------------------------------------------------------
54 !
55  RETURN
56  END
Definition: bief.f:3