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 temperature (Kelvin)
     real(r8), intent(in)  ::  zgcm_a(atmlon,atmlat)       !atm bottom level height above surface (m)
     real(r8), intent(in)  ::  forc_u_a(atmlon,atmlat)     !atm bottom level zonal wind (m/s)
     real(r8), intent(in)  ::  forc_v_a(atmlon,atmlat)     !atm bottom level meridional wind (m/s)
     real(r8), intent(in)  ::  forc_q_a(atmlon,atmlat)     !atm bottom level specific humidity (kg/kg)
     real(r8), intent(in)  ::  prc_a(atmlon,atmlat)        !convective precipitation rate (mm H2O/s)
     real(r8), intent(in)  ::  prl_a(atmlon,atmlat)        !large-scale precipitation rate (mm H2O/s)
     real(r8), intent(in)  ::  flwds_a(atmlon,atmlat)      !downward longwave rad onto surface (W/m**2)
     real(r8), intent(in)  ::  forc_sols_a(atmlon,atmlat)  !vis direct beam solar rad onto srf (W/m**2)
     real(r8), intent(in)  ::  forc_soll_a(atmlon,atmlat)  !nir direct beam solar rad onto srf (W/m**2)
     real(r8), intent(in)  ::  forc_solsd_a(atmlon,atmlat) !vis diffuse solar rad onto srf (W/m**2)
     real(r8), intent(in)  ::  forc_solld_a(atmlon,atmlat) !nir diffuse solar rad onto srf(W/m**2)
     real(r8), intent(in)  ::  forc_pbot_a(atmlon,atmlat)  !atm bottom level pressure (Pa)
     real(r8), intent(in)  ::  forc_psrf_a(atmlon,atmlat)  !atm surface pressure (Pa)
 
     real(r8), intent(out) ::  forc_t_s(lsmlon,lsmlat)     !atm bottom level temperature (Kelvin)
     real(r8), intent(out) ::  zgcm_s(lsmlon,lsmlat)       !atm bottom level height above surface (m)
     real(r8), intent(out) ::  forc_u_s(lsmlon,lsmlat)     !atm bottom level zonal wind (m/s)
     real(r8), intent(out) ::  forc_v_s(lsmlon,lsmlat)     !atm bottom level meridional wind (m/s)
     real(r8), intent(out) ::  forc_q_s(lsmlon,lsmlat)     !atm bottom level specific humidity (kg/kg)
     real(r8), intent(out) ::  prc_s(lsmlon,lsmlat)        !convective precipitation rate (mm H2O/s)
     real(r8), intent(out) ::  prl_s(lsmlon,lsmlat)        !large-scale precipitation rate (mm H2O/s)
     real(r8), intent(out) ::  flwds_s(lsmlon,lsmlat)      !downward longwave rad onto surface (W/m**2)
     real(r8), intent(out) ::  forc_sols_s(lsmlon,lsmlat)  !vis direct beam solar rad onto srf (W/m**2)
     real(r8), intent(out) ::  forc_soll_s(lsmlon,lsmlat)  !nir direct beam solar rad onto srf (W/m**2)
     real(r8), intent(out) ::  forc_solsd_s(lsmlon,lsmlat) !vis diffuse solar rad onto srf (W/m**2)
     real(r8), intent(out) ::  forc_solld_s(lsmlon,lsmlat) !nir diffuse solar rad onto srf(W/m**2)
     real(r8), intent(out) ::  forc_pbot_s(lsmlon,lsmlat)  !atm bottom level pressure (Pa)
     real(r8), intent(out) ::  forc_psrf_s(lsmlon,lsmlat)  !atm surface pressure (Pa)

REVISION HISTORY:

   Created by Gordon Bonan