map_init

INTERFACE:

   subroutine map_init(map,domain_i,domain_o,nwts,name,type)

DESCRIPTION:

This subroutine initializes the map datatype

USES:

ARGUMENTS:

   implicit none
   type(map_type)    , intent(inout)       :: map
   type(domain_type) , intent(in),target   :: domain_i
   type(domain_type) , intent(in),target   :: domain_o
   integer           , intent(in)          :: nwts     ! number of wts
   character(len=*)  , intent(in),optional :: name
   character(len=*)  , intent(in),optional :: type

REVISION HISTORY:

   2006.06.28  T Craig  Creation.

LOCAL VARIABLES: