alltoall_chunk_to_clump

INTERFACE:

    subroutine alltoall_chunk_to_clump(srf_state)

DESCRIPTION:

   This subroutine performs communication from the atmosphere physics to the
   land model (from chunks to clumps) based on the mapping constructed in
   lp\_coupling\_init().

USES:

    use ppgrid, only: begchunk, endchunk
    use comsrf, only: surface_state
    use clmtype
    use clmpoint, only : gpoint
    use clm_varcon, only: rair, po2, pco2

ARGUMENTS:

    implicit none
    type(surface_state), intent(in), dimension(begchunk:endchunk) :: srf_state

LOCAL VARIABLES:

    integer  :: p, n, k                             ! loop indices
    integer  :: bpatch, npatch                      ! patch id and count
    integer  :: lchnk, i                            ! local chunk and column
    real(r8) :: forc_rainc, forc_rainl              ! rainxy [mm/s]
    real(r8) :: forc_snowc, forc_snowl              ! snowfxy [mm/s]
    real(r8), dimension(:), pointer :: pl_rbufp     ! recv buffer pointer
    integer  :: ier                                 ! returned error code
    integer  :: gi                                  ! 1d grid index
    type(gridcell_type)     , pointer :: g          ! local pointer to derived subtype
    type(atm2lnd_state_type), pointer :: a2ls       ! local pointer to derived subtype
    type(atm2lnd_flux_type) , pointer :: a2lf       ! local pointer to derived subtype

REVISION HISTORY:

   2002.09.11  Forrest Hoffman  Creation.
   2002.11.18  Mariana Vertenstein and Forrest Hoffman Updated to clm2.1.