areaave

INTERFACE:

   subroutine areaave (nlat_i , nlon_i , numlon_i, fld_i , &
                       nlat_o , nlon_o , numlon_o, fld_o , &
                       i_ovr  , j_ovr  , w_ovr   , nmax  )

DESCRIPTION:

   Area averaging of field from input to output grids

ARGUMENTS:

     implicit none
     integer ,intent(in) :: nlat_i                    !input grid : number of latitude points      
     integer ,intent(in) :: nlon_i                    !input grid : max number longitude points    
     integer ,intent(in) :: numlon_i(nlat_i)          !input grid : number of lon points at each lat
     real(r8),intent(in) :: fld_i(nlon_i,nlat_i)      !input grid : field
     integer ,intent(in) :: nlat_o                    !output grid: number of latitude points      
     integer ,intent(in) :: nlon_o                    !output grid: max number of longitude points 
     integer ,intent(in) :: numlon_o(nlat_o)          !output grid: number of lon points at each lat
     real(r8),intent(out):: fld_o(nlon_o,nlat_o)      !field for output grid
     integer ,intent(in) :: nmax                      !input grid : max number of overlapping cells
     integer ,intent(in) :: i_ovr(nlon_o,nlat_o,nmax) !lon index, overlapping input cell
     integer ,intent(in) :: j_ovr(nlon_o,nlat_o,nmax) !lat index, overlapping input cell
     real(r8),intent(in) :: w_ovr(nlon_o,nlat_o,nmax) !overlap weights for input cells

REVISION HISTORY:

   Created by Gordon Bonan