ReadSpecies Subroutine

SUBROUTINE  ReadSpecies &
!
(inifile)

IMPLICIT NONE

CHARACTER (LEN = *), INTENT(in) :: inifile

!local declarations:
TYPE (IniList) :: speciesDB
INTEGER (KIND = short) :: nspecies
INTEGER (KIND = short) :: i
!------------------------------end of declarations----------------------------

! open and read configuration file
CALL IniOpen (inifile, speciesDB)

nspecies = IniReadInt ('species', speciesDB)

ALLOCATE (species (nspecies) )

DO i = 1, nspecies
    species (i) % name = IniReadString ('name', speciesDB, section = ToString(i))
    species (i) % phenology = IniReadString ('phenology', speciesDB, section = ToString(i))
    species (i) % alpha = IniReadReal ('alpha', speciesDB, section = ToString(i))
    species (i) % GPPtoNPP = IniReadReal ('GPP-NPP', speciesDB, section = ToString(i))
    species (i) % k = IniReadReal ('k', speciesDB, section = ToString(i))
    species (i) % cra = IniReadReal ('cra', speciesDB, section = ToString(i))
    species (i) % crb = IniReadReal ('crb', speciesDB, section = ToString(i))
    species (i) % crc = IniReadReal ('crc', speciesDB, section = ToString(i))
    species (i) % as = IniReadReal ('as', speciesDB, section = ToString(i))
    species (i) % ns = IniReadReal ('ns', speciesDB, section = ToString(i))
    !species (i) % saf = IniReadReal ('stem-allocation-factor', speciesDB, section = ToString(i))
    !species (i) % raf = IniReadReal ('root-allocation-factor', speciesDB, section = ToString(i))
    !species (i) % laf = IniReadReal ('leaf-allocation-factor', speciesDB, section = ToString(i))
    species (i) % dbhdcmin = IniReadReal ('dbhdcmin', speciesDB, section = ToString(i))
    species (i) % dbhdcmax = IniReadReal ('dbhdcmax', speciesDB, section = ToString(i))
    species (i) % denmin = IniReadReal ('denmin', speciesDB, section = ToString(i))
    species (i) % denmax = IniReadReal ('denmax', speciesDB, section = ToString(i))
    species (i) % agemax = IniReadReal ('agemax', speciesDB, section = ToString(i))
    species (i) % tmin = IniReadReal ('tmin', speciesDB, section = ToString(i))
    species (i) % tmax = IniReadReal ('tmax', speciesDB, section = ToString(i))
    species (i) % topt = IniReadReal ('topt', speciesDB, section = ToString(i))
    species (i) % theta_fswc = IniReadReal ('phi-theta', speciesDB, section = ToString(i))
    species (i) % theta_fvpd = IniReadReal ('phi-ea', speciesDB, section = ToString(i))
    species (i) % fpra = IniReadReal ('fpra', speciesDB, section = ToString(i))
    species (i) % fprn = IniReadReal ('fprn', speciesDB, section = ToString(i))
    species (i) % spra = IniReadReal ('spra', speciesDB, section = ToString(i))
    species (i) % sprn = IniReadReal ('sprn', speciesDB, section = ToString(i))
    species (i) % ltr = IniReadReal ('leaf-turnover', speciesDB, section = ToString(i)) 
    species (i) % rtr = IniReadReal ('root-turnover', speciesDB, section = ToString(i)) 
    species (i) % tcold_leaf = IniReadReal ('tcold-leaf', speciesDB, section = ToString(i))  
    species (i) % sla = IniReadReal ('sla', speciesDB, section = ToString(i))  
    species (i) % hdmin = IniReadReal ('hdmin', speciesDB, section = ToString(i)) 
    species (i) % hdmax = IniReadReal ('hdmax', speciesDB, section = ToString(i)) 
    species (i) % albedo = IniReadReal ('albedo', speciesDB, section = ToString(i)) 
    species (i) % laimax = IniReadReal ('laimax', speciesDB, section = ToString(i))
    species (i) % canopymax = IniReadReal ('canopymax', speciesDB, section = ToString(i))
    species (i) % wood_density = IniReadReal ('wood-density', speciesDB, section = ToString(i))
    species (i) % ms = IniReadReal ('ms', speciesDB, section = ToString(i))
    species (i) % mr = IniReadReal ('mr', speciesDB, section = ToString(i))
    species (i) % mf = IniReadReal ('mf', speciesDB, section = ToString(i))
    species (i) % wSx1000 = IniReadReal ('wSx1000', speciesDB, section = ToString(i))
END DO

!  species DB is complete. Deallocate ini database
CALL IniClose (speciesDB)  
    
RETURN
END SUBROUTINE ReadSpecies