INTERFACE:
subroutine cellarea_regional (nlat ,nlon ,numlon, lats ,lonw , &
edgen, edgee, edges , edgew, area)
DESCRIPTION:
Area of grid cells (square kilometers) - regional grid (can become global as special case)ARGUMENTS:
implicit none
integer , intent(in) :: nlat !dimension: number of latitude
integer , intent(in) :: nlon !dimension: number of longitud
integer , intent(in) :: numlon(nlat) !number of grid cells per lati
real(r8), intent(in) :: edgen !northern edge of grid (degree
real(r8), intent(in) :: edges !southern edge of grid (degree
real(r8), intent(in) :: edgew !western edge of grid (degrees
real(r8), intent(in) :: edgee !eastern edge of grid (degrees
real(r8), intent(in) :: lats(nlat+1) !grid cell latitude, southern
real(r8), intent(in) :: lonw(nlon+1,nlat) !grid cell longitude, western
real(r8), intent(out):: area(nlon,nlat) !cell area (km**2)
REVISION HISTORY:
Created by Mariana Vertenstein