interpa2s

INTERFACE:

   subroutine interpa2s (forc_t_a  , forc_t_s  , zgcm_a  , zgcm_s  , &
                         forc_u_a  , forc_u_s  , forc_v_a  , forc_v_s  , &
                         forc_q_a  , forc_q_s  , prc_a   , prc_s   , &
                         prl_a   , prl_s   , flwds_a , flwds_s , &
                         forc_sols_a, forc_sols_s  , forc_soll_a  , &
                         forc_soll_s, forc_solsd_a , forc_solsd_s , &
                         forc_solld_a, forc_solld_s, forc_pbot_a  , &
                         forc_pbot_s  , forc_psrf_a  , forc_psrf_s  )

DESCRIPTION:

   Area average fields from atmosphere grid to surface grid

USES:

     use clm_varsur, only : numlon, longxy, latixy, lsmedge
     use areaMod

ARGUMENTS:

     implicit none
     real(r8), intent(in)  ::  forc_t_a(atmlon,atmlat)     !atm bottom level t
     real(r8), intent(in)  ::  zgcm_a(atmlon,atmlat)       !atm bottom level h
     real(r8), intent(in)  ::  forc_u_a(atmlon,atmlat)     !atm bottom level z
     real(r8), intent(in)  ::  forc_v_a(atmlon,atmlat)     !atm bottom level m
     real(r8), intent(in)  ::  forc_q_a(atmlon,atmlat)     !atm bottom level s
     real(r8), intent(in)  ::  prc_a(atmlon,atmlat)        !convective precipi
     real(r8), intent(in)  ::  prl_a(atmlon,atmlat)        !large-scale precip
     real(r8), intent(in)  ::  flwds_a(atmlon,atmlat)      !downward longwave 
     real(r8), intent(in)  ::  forc_sols_a(atmlon,atmlat)  !vis direct beam so
     real(r8), intent(in)  ::  forc_soll_a(atmlon,atmlat)  !nir direct beam so
     real(r8), intent(in)  ::  forc_solsd_a(atmlon,atmlat) !vis diffuse solar 
     real(r8), intent(in)  ::  forc_solld_a(atmlon,atmlat) !nir diffuse solar 
     real(r8), intent(in)  ::  forc_pbot_a(atmlon,atmlat)  !atm bottom level p
     real(r8), intent(in)  ::  forc_psrf_a(atmlon,atmlat)  !atm surface pressu
 
     real(r8), intent(out) ::  forc_t_s(lsmlon,lsmlat)     !atm bottom level t
     real(r8), intent(out) ::  zgcm_s(lsmlon,lsmlat)       !atm bottom level h
     real(r8), intent(out) ::  forc_u_s(lsmlon,lsmlat)     !atm bottom level z
     real(r8), intent(out) ::  forc_v_s(lsmlon,lsmlat)     !atm bottom level m
     real(r8), intent(out) ::  forc_q_s(lsmlon,lsmlat)     !atm bottom level s
     real(r8), intent(out) ::  prc_s(lsmlon,lsmlat)        !convective precipi
     real(r8), intent(out) ::  prl_s(lsmlon,lsmlat)        !large-scale precip
     real(r8), intent(out) ::  flwds_s(lsmlon,lsmlat)      !downward longwave 
     real(r8), intent(out) ::  forc_sols_s(lsmlon,lsmlat)  !vis direct beam so
     real(r8), intent(out) ::  forc_soll_s(lsmlon,lsmlat)  !nir direct beam so
     real(r8), intent(out) ::  forc_solsd_s(lsmlon,lsmlat) !vis diffuse solar 
     real(r8), intent(out) ::  forc_solld_s(lsmlon,lsmlat) !nir diffuse solar 
     real(r8), intent(out) ::  forc_pbot_s(lsmlon,lsmlat)  !atm bottom level p
     real(r8), intent(out) ::  forc_psrf_s(lsmlon,lsmlat)  !atm surface pressu

REVISION HISTORY:

   Created by Gordon Bonan