init_pft_pstate_type

INTERFACE:

   subroutine init_pft_pstate_type(beg, end, pps)

DESCRIPTION:

Initialize pft physical state

USES:

     use clm_varcon, only : spval
     use surfrdMod , only : crop_prog
 #if (defined CASA)
     use CASAMod   , only : npools, nresp_pools, nlive, npool_types
 #endif

ARGUMENTS:

     implicit none
     integer, intent(in) :: beg, end
     type (pft_pstate_type), intent(inout):: pps

REVISION HISTORY:

   Created by Mariana Vertenstein