MODULE MOD_NUTRIENT
!******************************************************************
!***          DEFINE PARAMETERS RELATED TO NUTRIENT             ***
!***   PARAMETERS ARE LISTED ALPHABETICALLY FOR EACH CATEGORY   ***
!******************************************************************
     USE MOD_1D
     IMPLICIT NONE
     SAVE
     INTEGER               :: NNN              ! TOTAL NUMBER OF NUTRIENT
     INTEGER               :: INN              ! NUTRIENT INDEX USED IN VERTICAL MIXING

     REAL(SPP), ALLOCATABLE :: BIO_N(:,:)       ! NUTRIENT CONCENTRATION
     REAL(SPP), ALLOCATABLE :: FVNN(:,:)        ! NUTRIENT BUSTRACTED BY THRESHOLD
     REAL(SPP), ALLOCATABLE :: KSN(:,:)         ! HALF-SATURAITON OF NUTRIENT
     REAL(SPP)              :: L_NH4N           ! CRITICL LIGHT FOR NITRIFICATION
     REAL(SPP), ALLOCATABLE :: NH4_NO3(:)       ! NITRIFICATION
     REAL(SPP), ALLOCATABLE :: N2CB(:,:)        ! ELEMENT RATIO IN BACTERIA
     REAL(SPP), ALLOCATABLE :: N2CD(:,:)        ! ELEMENT RATIO IN DETRITUS
     REAL(SPP), ALLOCATABLE :: N2CP(:,:)        ! ELEMENT RATIO IN PHYTO
     REAL(SPP), ALLOCATABLE :: N2CZ(:,:)        ! ELEMENT RATIO IN ZOOPLANKTON
     REAL(SPP), ALLOCATABLE :: N2CDOM(:,:)      ! ELEMENT RATIO IN DOM
     REAL(SPP), ALLOCATABLE :: N2CZB(:,:,:)     ! ELEM. RATIO IN ACTIVE RESPIR. FROM GRAZING ON BACTERIA
     REAL(SPP), ALLOCATABLE :: N2CZD(:,:,:)     ! ELEM. RATIO IN ACTIVE RESPIR. FROM GRAZING ON DETRITUS
     REAL(SPP), ALLOCATABLE :: N2CZP(:,:,:)     ! ELEM. RATIO IN ACTIVE RESPIR. FROM GRAZING ON PHYTO
     REAL(SPP), ALLOCATABLE :: N2CZZ(:,:,:)     ! ELEM. RATIO IN ACTIVE RESPIR. FROM PREDATION ON ZOO
     REAL(SPP), ALLOCATABLE :: N_0(:)           ! NUTRIENT THRESHOLD
     REAL(SPP)              :: R_AN             ! NITRIFICATION COEFFICIENT
     REAL(SPP), ALLOCATABLE :: UPTAKE_PN(:,:,:) ! NUTRIENT UPTAKE BY PHYTO
END MODULE MOD_NUTRIENT