!------------------------------------------------------------------------------
!          Harvard University Atmospheric Chemistry Modeling Group            !
!------------------------------------------------------------------------------
!BOP
!
! !IROUTINE: assignRanPoolToAgeClass
!
! !DESCRIPTION: This subroutine ...
!\\
!\\
! !INTERFACE:
!
SUBROUTINE assignRanPoolToAgeClass
!
! !USES:
!
  USE defineConstants
  USE loadCASAinput
  USE defineArrays
  
  implicit none
!
! !REVISION HISTORY:
!  09 July 2010 - C. Carouge  - Add parallelization.
!
!EOP
!------------------------------------------------------------------------------
!BOC
!

!$OMP PARALLEL        &
!$OMP DEFAULT(SHARED) 
!$OMP WORKSHARE
  abovewoodpools(:,age_class)=abovewoodpool(:,1)
  belowwoodpools(:,age_class)=belowwoodpool(:,1)
  leafpools(:,age_class)=leafpool(:,1)
  frootpools(:,age_class)=frootpool(:,1)
  cwdpools(:,age_class)=cwdpool(:,1)
  surfstrpools(:,age_class)=surfstrpool(:,1)
  surfmetpools(:,age_class)=surfmetpool(:,1)
  surfmicpools(:,age_class)=surfmicpool(:,1)
  soilstrpools(:,age_class)=soilstrpool(:,1)
  soilmetpools(:,age_class)=soilmetpool(:,1)
  soilmicpools(:,age_class)=soilmicpool(:,1)
  slowpools(:,age_class)=slowpool(:,1)
  armoredpools(:,age_class)=armoredpool(:,1)
  
  hleafpools(:,age_class)=hleafpool(:,1)
  hfrootpools(:,age_class)=hfrootpool(:,1)
  hsurfstrpools(:,age_class)=hsurfstrpool(:,1)
  hsurfmetpools(:,age_class)=hsurfmetpool(:,1)
  hsurfmicpools(:,age_class)=hsurfmicpool(:,1)
  hsoilstrpools(:,age_class)=hsoilstrpool(:,1)
  hsoilmetpools(:,age_class)=hsoilmetpool(:,1)
  hsoilmicpools(:,age_class)=hsoilmicpool(:,1)
  hslowpools(:,age_class)=hslowpool(:,1)
  harmoredpools(:,age_class)=harmoredpool(:,1)
!$OMP END WORKSHARE
!$OMP END PARALLEL

END SUBROUTINE assignRanPoolToAgeClass
!EOC