cellarea

INTERFACE:

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

DESCRIPTION:

Comute area of grid cells (square kilometers)

USES:

     use domainMod , only : latlon_type
     use clm_varcon, only : re

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: