46 lines
1.3 KiB
Fortran
46 lines
1.3 KiB
Fortran
C MEMBER UCLKTM
|
|
C-----------------------------------------------------------------------
|
|
C
|
|
C ROUTINE TO GET CLOCK TIME INFORMATION
|
|
C
|
|
SUBROUTINE UCLKTM (JULDAY,NHRMNS,IERR)
|
|
C
|
|
INCLUDE 'ucmdbx'
|
|
INCLUDE 'upagex'
|
|
C
|
|
C ================================= RCS keyword statements ==========
|
|
CHARACTER*68 RCSKW1,RCSKW2
|
|
DATA RCSKW1,RCSKW2 / '
|
|
.$Source: /fs/hseb/ob72/wfo_rfc/precip_proc/source/gribit/src/RCS/uclktm.f,v $
|
|
. $', '
|
|
.$Id: uclktm.f,v 1.1 2006/05/03 13:43:59 gsood Exp $
|
|
. $' /
|
|
C ===================================================================
|
|
C
|
|
C
|
|
C
|
|
IF (ICMTRC.GT.0) THEN
|
|
NPSNLN(ICMPRU)=NPSNLN(ICMPRU)+1
|
|
WRITE (ICMPRU,25)
|
|
ENDIF
|
|
C
|
|
C GET CURRENT DATE AND TIME IN INTEGER FORM
|
|
CALL UDATEI (NMO,NDA,NYR,NHRMIN,NSEC,JULDAY,IERR)
|
|
C
|
|
NHR=NHRMIN/100
|
|
NMIN=NHRMIN-NHR*100
|
|
NHRMNS=(NHR*10000+NMIN*100)+(NSEC/100)
|
|
C
|
|
IF (ICMDBG.GT.0) THEN
|
|
NPSNLN(ICMPRU)=NPSNLN(ICMPRU)+1
|
|
WRITE (ICMPRU,30) JULDAY,NHRMNS
|
|
ENDIF
|
|
C
|
|
RETURN
|
|
C
|
|
C- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
C
|
|
25 FORMAT (' *** ENTER UCLKTM')
|
|
30 FORMAT (' *** IN UCLKTM : JULDAY=',I4,3X,'NHRMNS=',I8)
|
|
C
|
|
END
|