MODULE MOD_BACTERIA
!******************************************************************
!***           DEFINE PARAMETERS RELATED TO BACTERIA            ***
!***   PARAMETERS ARE LISTED ALPHABETICALLY FOR EACH CATEGORY   ***
!******************************************************************
     USE MOD_1D
     IMPLICIT NONE
     SAVE
     INTEGER                :: NNB                 ! TOTAL NUMBER OF BACTERIA
     INTEGER                :: INB                 ! BACT INDEX SUED IN VERTICAL MIXING

     LOGICAL                :: DOCDON              ! DOC AND DON ARE BOTH IN
     LOGICAL                :: PO4_ON              ! PO4 REGULATED SYSTEM

     REAL(SPP), ALLOCATABLE :: A_TB(:)             ! T EXPONENTAIL COEFFICIENT
     REAL(SPP), ALLOCATABLE :: BIO_B(:,:)          ! BACTERIA BIOMASS
     REAL(SPP), ALLOCATABLE :: B_0(:)              ! BACTERIA THRESHOLD
     REAL(SPP), ALLOCATABLE :: DELTA_B(:)          ! RATIO BETWEEN NH4 AND DON UPTAKE
     REAL(SPP), ALLOCATABLE :: EFFIBD(:,:)         ! GROWTH EFFICIENCY OF B ON DETRITUS
     REAL(SPP), ALLOCATABLE :: EFFIDOM(:,:)        ! GROWTH EFFICIENCY ON DOM
     REAL(SPP), ALLOCATABLE :: EFFIN(:,:)          ! GROWTH EFFICIENCY ON NH4
     REAL(SPP), ALLOCATABLE :: FVB(:,:)            ! BACTERIA SUBSTRACTED OF THRESHOLD
     REAL(SPP), ALLOCATABLE :: R_B(:)              ! BACTERIA RESPIRATION
     REAL(SPP), ALLOCATABLE :: RESPIRATION_B(:,:)  ! BACTERIA RESPIRATION
     REAL(SPP), ALLOCATABLE :: SIGMA_BD(:,:)       ! PREFERENCE ON DETRITUS
     REAL(SPP), ALLOCATABLE :: SIGMA_DOM(:,:)      ! PREFERENCE ON DOM
     REAL(SPP), ALLOCATABLE :: SIGMA_N(:,:)        ! PREFERENCE ON DON
     REAL(SPP), ALLOCATABLE :: T_OPTB(:)           ! OPTIMAL TEMPERATURE FOR BACTERIA
     REAL(SPP), ALLOCATABLE :: U_B(:)              ! BACTERIA GROWTH RATE
     REAL(SPP), ALLOCATABLE :: UBMAX(:)            ! MAXIMUM GROWTH RATE OF BACTERIA
     REAL(SPP), ALLOCATABLE :: UPTAKE_BD(:,:,:)    ! DETRITUS UPTAKE BY BACTERIA
     REAL(SPP), ALLOCATABLE :: UPTAKE_BN(:,:,:)    ! NUTRIENT UPTAKE BY BACTERIA
     REAL(SPP), ALLOCATABLE :: UPTAKE_DOM(:,:,:)   ! DOM UPTAKE BY BACTERIA
     REAL(SPP), ALLOCATABLE :: UPTAKE_DON(:,:)     ! DON UPTAKE BY BACTERIA
END MODULE MOD_BACTERIA