INTERFACE:
subroutine domain_check(domain)DESCRIPTION:
This subroutine write domain info
USES:
ARGUMENTS:
implicit none
type(domain_type),intent(in) :: domain ! domain datatype
REVISION HISTORY:
Created by T CraigLOCAL VARIABLES: