cellarea

INTERFACE:

   real(r8) function cellarea(latlon,i,j)

DESCRIPTION:

Comute area of grid cells (square kilometers) Verify total area from grid cells is same as area of grid as defined by its edges

USES:

ARGUMENTS:

     implicit none
     type(latlon_type), intent(in   ) :: latlon    ! latlon datatype
     integer          , intent(in)    :: i,j       ! latlon index to compute

REVISION HISTORY:

   Created by Mariana Vertenstein

LOCAL VARIABLES: