The TELEMAC-MASCARET system  trunk
nuteff.f
Go to the documentation of this file.
1 ! **********************
2  SUBROUTINE nuteff
3 ! **********************
4 !
5  &(lnut,trr,npoin,ipo4,ino3,kp,kn)
6 !
7 !***********************************************************************
8 ! TELEMAC2D V7P1
9 !***********************************************************************
10 !
11 !brief COMPUTES LNUT: EFFECTS OF PHOSPHORIOUS AND NITROGENIOUS
12 ! NUTRIMENTS ON ALGAE GROWTH
13 !
14 !
15 !history R. ATA (LNHE)
16 !+ 02/09/2015
17 !+ V7P1
18 !+
19 !
20 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
21 !| INO3 |-->| INDEX OF NO3 IN TRR
22 !| IPO4 |-->| INDEX OF PO4 IN TRR
23 !| KN |-->| CONSTANT OF SEMI-SATURATION WITH PHOSPHATE
24 !| KP |-->| CONSTANT OF HALF-SATURATION WITH NITROGEN
25 !| LNUT |<--| NUTRIMENTS EFFECT ON ALGAE GROWTH
26 !| NPOIN |-->| TOTAL NUMBER OF MESH NODES
27 !| TRR |-->| TRACER (CAN BE PHY: PHYTOPLAKTONIC BIOMASS)
28 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
29 !
30  USE bief
32  USE interface_waqtel, ex_nuteff => nuteff
33 !
34  IMPLICIT NONE
35 !
36 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
37 !
38  INTEGER , INTENT(IN) :: NPOIN,IPO4,INO3
39  DOUBLE PRECISION, INTENT(IN) :: KN,KP
40  DOUBLE PRECISION, INTENT(INOUT) :: LNUT(npoin)
41  TYPE(bief_obj) , INTENT(IN) :: TRR
42 ! LOCAL VARIABLES
43  INTEGER :: KK
44  INTRINSIC min
45 !
46 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
47 !
48 !
49 !
50  DO kk=1,npoin
51  lnut(kk)= min(trr%ADR(ipo4)%P%R(kk)/(kp+trr%ADR(ipo4)%P%R(kk)),
52  & trr%ADR(ino3)%P%R(kk)/(kn+trr%ADR(ino3)%P%R(kk)))
53  ENDDO
54 !
55  RETURN
56  END
57 !
58 !-----------------------------------------------------------------------
59 !
subroutine nuteff(LNUT, TRR, NPOIN, IPO4, INO3, KP, KN)
Definition: nuteff.f:7
Definition: bief.f:3