Fortran: Module Interface CNAllocationMod (Source File: CNAllocationMod.F90)

Module holding routines used in allocation model for coupled carbon nitrogen code.

USES:

   use shr_kind_mod, only: r8 => shr_kind_r8
   use abortutils  , only: endrun
   implicit none
   save
   private

PUBLIC MEMBER FUNCTIONS:

   public :: CNAllocationInit    ! Initialization
   public :: CNAllocation        ! run method

PUBLIC DATA MEMBERS:

    character(len=*), parameter, public :: suplnAll=& ! Supplemental Nitrogen for all PFT's
                      'ALL'
    character(len=*), parameter, public :: suplnCrp=& ! Supplemental Nitrogen for prognostic Crop
                      'PROG_CROP_ONLY'
    character(len=*), parameter, public :: suplnNon=& ! No supplemental Nitrogen
                      'NONE'
    character(len=15), public :: suplnitro = suplnNon ! Supplemental Nitrogen mode
   !PRIVATE DATA MEMBERS:
    real(r8):: dt                            !decomp timestep (seconds)
    real(r8):: bdnr                          !bulk denitrification rate (1/s)
    real(r8):: dayscrecover                  !number of days to recover negative cpool
    real(r8), pointer :: arepr(:)            !reproduction allocation coefficient
    real(r8), pointer :: aroot(:)            !root allocation coefficient
    real(r8), pointer:: col_plant_ndemand(:) !column-level plant N demand
    logical :: Carbon_only = .false.         ! Carbon only mode 
                                             ! (Nitrogen is prescribed NOT prognostic)
    logical :: crop_supln  = .false.         ! Prognostic crop receives supplemental Nitrogen

REVISION HISTORY:

   8/5/03: Created by Peter Thornton