print_mask() - prints a mask in readable format

INTERFACE:

    subroutine print_mask(mask)
    IMPLICIT NONE

DESCRIPTION:

Prints a integer mask in a human readable form. INPUT PARAMETERS:

    integer, intent(in), dimension(E2DFIELD) :: mask

REVISION HISTORY:

    22Apr99   Karsten Bolding & Hans Burchard  Initial code.

LOCAL VARIABLES:

    integer                   :: i,j