map_setgatm

INTERFACE:

   subroutine map_setgatmFM(gatm, alatlon, llatlon, amask, pftm)

DESCRIPTION:

Set gatm index in ldomain. unique for finemesh.

USES:

   use domainMod, only : latlon_type

ARGUMENTS:

   implicit none
   integer, pointer               :: gatm(:)
   type(latlon_type), intent(in)  :: alatlon
   type(latlon_type), intent(in)  :: llatlon
   integer          , intent(in)  :: amask(:)
   integer          , intent(in)  :: pftm(:)

REVISION HISTORY:

   2006.06.28  T Craig  Creation.
   2006.08.23  P Worley Performance optimizations

LOCAL VARIABLES: