C $Header: /u/gcmpack/MITgcm/pkg/cal/cal_printdate.F,v 1.4 2012/02/28 00:36:36 gforget Exp $
C $Name: $
#include "CAL_OPTIONS.h"
subroutine CAL_PRINTDATE(
I caldate,
I mythid
& )
c ==================================================================
c SUBROUTINE cal_PrintDate
c ==================================================================
c
c o Print a calendar date.
c
c Purpose: Print a date as used by the calendar tool in some nice
c format by using the MITgcmuvs print routine
c
c started: Christian Eckert eckert@mit.edu 30-Jun-1999
c
c changed: Christian Eckert eckert@mit.edu 19-Jan-2000
c
c - inserted print statements
c
c Christian Eckert eckert@mit.edu 03-Feb-2000
c
c - Introduced new routine and function names, cal_,
c for verion 0.1.3.
c
c ==================================================================
c SUBROUTINE cal_PrintDate
c ==================================================================
implicit none
c == global variables ==
#include "EEPARAMS.h"
c == routine arguments ==
c caldate - date in the format used by the calendar tool.
c mythid - thread number for this instance of the routine.
integer caldate(4)
integer mythid
c == local variables ==
integer ierr, ioUnit
character*(max_len_mbuf) msgbuf
c == end of interface ==
ioUnit=standardMessageUnit
if ( caldate(4) .gt. 0 ) then
c Print the calendar date.
write(msgBuf,'(i10,i8,i3,i4)') caldate(1), caldate(2),
& caldate(3), caldate(4)
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
else if ( caldate(4) .eq. -1 ) then
c Print the time interval.
write(msgBuf,'(i10,i8,i3,i4)') caldate(1), caldate(2),
& caldate(3), caldate(4)
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
else
ierr = 2001
call CAL_PRINTERROR( ierr, mythid )
stop ' stopped in cal_PrintDate.'
endif
return
end