nuteff.f

Go to the documentation of this file.

!                  **********************
                    SUBROUTINE nuteff
!                   **********************
!
     &(lnut,trr,npoin,ipo4,ino3,kp,kn)
!
!***********************************************************************
! TELEMAC2D   V7P1
!***********************************************************************
!
!brief    COMPUTES LNUT: EFFECTS OF PHOSPHORIOUS AND NITROGENIOUS
!           NUTRIMENTS ON ALGAE GROWTH
!
!
!history  R. ATA (LNHE)
!+        02/09/2015
!+        V7P1
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| INO3           |-->| INDEX OF NO3 IN TRR
!| IPO4           |-->| INDEX OF PO4 IN TRR
!| KN             |-->| CONSTANT OF SEMI-SATURATION WITH PHOSPHATE
!| KP             |-->| CONSTANT OF HALF-SATURATION WITH NITROGEN
!| LNUT           |<--| NUTRIMENTS EFFECT ON ALGAE GROWTH
!| NPOIN          |-->| TOTAL NUMBER OF MESH NODES
!| TRR            |-->| TRACER (CAN BE PHY: PHYTOPLAKTONIC BIOMASS)
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief
      USE declarations_special
      USE interface_waqtel, ex_nuteff => nuteff
!
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER         , INTENT(IN)    :: NPOIN,IPO4,INO3
      DOUBLE PRECISION, INTENT(IN)    :: KN,KP
      DOUBLE PRECISION, INTENT(INOUT) :: LNUT(npoin)
      TYPE(bief_obj)  , INTENT(IN)    :: TRR
!     LOCAL VARIABLES
      INTEGER                    :: KK
      INTRINSIC min
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!
!
      DO kk=1,npoin
        lnut(kk)= min(trr%ADR(ipo4)%P%R(kk)/(kp+trr%ADR(ipo4)%P%R(kk)),
     &                trr%ADR(ino3)%P%R(kk)/(kn+trr%ADR(ino3)%P%R(kk)))
      ENDDO
!
      RETURN
      END
!
!-----------------------------------------------------------------------
!