40aa780b3d
Former-commit-id:7fa9dbd5fb[formerly4bfbdad17d] [formerly9f8cb727a5] [formerly8485b90ff8[formerly9f8cb727a5[formerly bf53d06834caa780226121334ac1bcf0534c3f16]]] Former-commit-id:8485b90ff8Former-commit-id: 73930fb29d0c1e91204e76e6ebfdbe757414f319 [formerlya28d70b5c5] Former-commit-id:33a67cdd82
37 lines
1.1 KiB
Fortran
37 lines
1.1 KiB
Fortran
SUBROUTINE TG_DUAL ( time, clntm, iret )
|
|
C************************************************************************
|
|
C* TG_DUAL *
|
|
C* *
|
|
C* This subroutine converts a time(2) array into a colon separated dual *
|
|
C* grid time stamp. *
|
|
C* *
|
|
C* TG_DUAL ( TIME, CLNTM, IRET ) *
|
|
C* *
|
|
C* Input parameters: *
|
|
C* TIME (2) CHAR* Grid time array *
|
|
C* *
|
|
C* Output parameters: *
|
|
C* CLNTM CHAR*36 Colon separated dual grid time *
|
|
C* IRET INTEGER Return code *
|
|
C* 0 = normal return *
|
|
C** *
|
|
C* Log: *
|
|
C* K. Brill/HPC 2/04 *
|
|
C************************************************************************
|
|
CHARACTER*(*) time (*), clntm
|
|
C*
|
|
C------------------------------------------------------------------------
|
|
iret = 0
|
|
C*
|
|
CALL ST_RMBL ( time (1), time(1), len1, ier )
|
|
CALL ST_RMBL ( time (2), time(2), len2, ier )
|
|
CALL ST_LSTR ( time (1), lt1, ier )
|
|
CALL ST_LSTR ( time (2), lt2, ier )
|
|
IF ( time (2) .ne. ' ' ) THEN
|
|
clntm = time (1)(1:lt1) // ':' // time (2)
|
|
ELSE
|
|
clntm = time (1)(1:lt1)
|
|
END IF
|
|
C*
|
|
RETURN
|
|
END
|