awips2/ncep/gov.noaa.nws.ncep.viz.rsc.ncgrid/dgdriv_c/dbsetnavtime.f
Steve Harris 0c25458510 12.4.1-10 baseline
Former-commit-id: 4bfbdad17d [formerly 9f8cb727a5] [formerly 4bfbdad17d [formerly 9f8cb727a5] [formerly 8485b90ff8 [formerly bf53d06834caa780226121334ac1bcf0534c3f16]]]
Former-commit-id: 8485b90ff8
Former-commit-id: 33a67cdd82 [formerly a28d70b5c5]
Former-commit-id: e5543a0e86
2012-05-01 18:06:13 -05:00

38 lines
2 KiB
Fortran

SUBROUTINE DB_SETNAVTIME ( atime, iret )
C************************************************************************
C* DB_SETNAVTIME *
C* *
C* This subroutine puts DB info into common. *
C* *
C* DB_SETNAVTIME ( ATIME, IRET ) *
C* *
C* Input parameters: *
C* ATIME CHAR* a time *
C* *
C* Output parameters: *
C* IRET INTEGER Return code *
C* 0 = normal return *
C** *
C* Log: *
C* m.gamazaychikov/CWS 10/10 *
C************************************************************************
INCLUDE 'GEMPRM.PRM'
INCLUDE 'dbcmn.cmn'
C*
CHARACTER*(*) atime
C*
CHARACTER message*720, funcnm*20, loglevel*6
C------------------------------------------------------------------------
CALL ST_RNUL (atime, atime, lens, ier)
loglevel = "debug"
funcnm="DB_SETNAVTIME"
CALL ST_NULL ( funcnm, funcnm, lenq, ier )
CALL ST_NULL ( loglevel, loglevel, lenq, ier )
navtime = atime(:lens)
isnavtime = .true.
iret = 0
message = "set navtime to =" // atime
CALL ST_NULL ( message, message, lenq, ier )
CALL DB_MSGCAVE ( funcnm, loglevel, message, ier )
RETURN
END