map_setmapsFM

INTERFACE:

   subroutine map_setmapsFM(domain_a, domain_l, gatm_l, name)

DESCRIPTION:

Set course to fine mesh maps and reverse. domain_a should be coarse (atm) mesh, domain_l is fine (land) mesh. Simple overlap algorithm - Find every fine gridcell within coarse gridcell - Keep "real" cells unless there are none - Weights based on areas of cells used, sum(weights)==1 - Use a2l mapping to set l2a mapping

USES:

   use decompMod, only : ldecomp, adecomp
   use decompMod, only : get_proc_bounds, get_proc_bounds_atm
   use clm_varsur, only : wtxy

ARGUMENTS:

   implicit none
   type(domain_type),intent(in)    :: domain_a
   type(domain_type),intent(in)    :: domain_l
   integer          ,intent(in)    :: gatm_l(:)
   character(len=*) ,optional,intent(in) :: name

REVISION HISTORY:

   2005.12.01  T Craig  Creation.

LOCAL VARIABLES: