
        SUBROUTINE WRDAYMSG( JDATE, MESG )

C***********************************************************************
C  subroutine body starts at line
C
C  DESCRIPTION:
C      Writes a text message to stdout and log file about which day is
C      being processed
C
C  PRECONDITIONS REQUIRED:
C
C  SUBROUTINES AND FUNCTIONS CALLED:
C
C  REVISION  HISTORY:
C      Created 9/99 by M. Houyoux
C
C**************************************************************************
C
C Project Title: Sparse Matrix Operator Kernel Emissions (SMOKE) Modeling
C                System
C File: @(#)$Id: wrdaymsg.f,v 1.4 2004/06/21 17:28:26 cseppan Exp $
C
C COPYRIGHT (C) 2004, Environmental Modeling for Policy Development
C All Rights Reserved
C 
C Carolina Environmental Program
C University of North Carolina at Chapel Hill
C 137 E. Franklin St., CB# 6116
C Chapel Hill, NC 27599-6116
C 
C smoke@unc.edu
C
C Pathname: $Source: /afs/isis/depts/cep/emc/apps/archive/smoke/smoke/src/lib/wrdaymsg.f,v $
C Last updated: $Date: 2004/06/21 17:28:26 $ 
C
C***************************************************************************

        IMPLICIT NONE

C...........   INCLUDES:

        INCLUDE 'EMCNST3.EXT'   !  emissions constant parameters

C...........   EXTERNAL FUNCTIONS:
        CHARACTER(14)   MMDDYY
        INTEGER         WKDAY

        EXTERNAL        MMDDYY, WKDAY

C...........   SUBROUTINE ARGUMENTS
        INTEGER     , INTENT (IN) :: JDATE    ! Julian date
        CHARACTER(*), INTENT(OUT) :: MESG     ! message buffer

C...........   Local variables
        INTEGER         DAY          !  day of week number
        INTEGER         L            !  length of day name

        CHARACTER(16) :: PROGNAME = 'WRDAYMSG' ! program name

C***********************************************************************
C   begin body of subroutine WRDAYMSG

        DAY = WKDAY( JDATE )

        L = LEN_TRIM( DAYS( DAY ) )
        MESG= 'Processing '// DAYS( DAY )( 1:L )// ' '// MMDDYY( JDATE )
        CALL M3MSG2( MESG )

        RETURN

C******************  FORMAT  STATEMENTS   ******************************

        END SUBROUTINE WRDAYMSG

