w3trnarg.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	w3trnarg (SUBDIR, LSUBDR, TANKID, LTNKID, APPCHR, LAPCHR, TLFLAG, IYMDHB, IYMDHE, IERR)
	SUBPROGRAM: W3TRNARG TRANSLATES ARG LINE FROM STANDARD INPUT PRGMMR: KEYSER ORG: NP22 DATE: 2002-02-11 More...

Function/Subroutine Documentation

w3trnarg()

subroutine w3trnarg	(	character*(*)	SUBDIR,
			LSUBDR,
		character*(*)	TANKID,
			LTNKID,
		character*(*)	APPCHR,
			LAPCHR,
		character*(*)	TLFLAG,
			IYMDHB,
			IYMDHE,
			IERR
	)

SUBPROGRAM: W3TRNARG TRANSLATES ARG LINE FROM STANDARD INPUT PRGMMR: KEYSER ORG: NP22 DATE: 2002-02-11

ABSTRACT: READS ARGUMENT LINES FROM STANDARD INPUT AND OBTAINS , SUBDIRECTORY, BUFR TANKNAME, CHARACTERS TO APPEND FOR ADDING AN ORBIT, AND OPTIONS FOR LIMITING THE TIME WINDOW.

PROGRAM HISTORY LOG:
1996-09-03 B. KATZ – ORIGINAL AUTHOR 1998-11-27 B. KATZ – CHANGES FOR Y2K AND FORTRAN 90 COMPLIANCE 2002-02-11 D. KEYSER – IF "TLFLAG" IS NOT SPECIFIED, IT DEFAULTS TO "NOTIMLIM" RATHER THAN "TIMLIM" AND GROSS TIME LIMITS WILL NOT BE CALCULATED AND RETURNED IN "IYMDHB" AND "IYMDHE"

USAGE: CALL W3TRNARG(SUBDIR,LSUBDR,TANKID,LTNKID,APPCHR,LAPCHR, TLFLAG,IYMDHB,IYMDHE,IERR) OUTPUT ARGUMENT LIST:
SUBDIR - NAME OF SUB-DIRECTORY INCLUDING BUFR DATA TYPE WHERE BUFR DATA TANK IS LOCATED. LSUBDR - NUMBER OF CHARACTERS IN 'SUBDIR'. TANKID - NAME OF FILE INCLUDING BUFR DATA SUB-TYPE CONTAINING BUFR DATA TANK. LTNKID - NUMBER OF CHARACTERS IN 'TANKID'. APPCHR - CHARACTERS TO BE APPENDED TO 'TANKID' GIVING A UNIQUELY NAMED FILE TO CONTAIN THE ORIGINAL TANK WITH ONE ORBIT APPENDED TO IT. LAPCHR - NUMBER OF CHARACTERS IN 'APPCHR'. TLFLAG - 8 CHARACTER FLAG INDICATING WHETHER TIME ACCEPTANCE CHECKS ATRE TO BE PERFORMED. = 'TIMLIM ' : PERFORM TIME ACCEPTANCE CHECKS. = 'NOTIMLIM' : DO NOT PERFORM TIME ACCEPTANCE CHECKS. JDATE AND KDATE ARE DISREGARDED. IYMDHB - START OF TIME ACCEPTANCE WINDOW, IN FORM YYYYMMDDHH. IYMDHE - END OF TIME ACCEPTANCE WINDOW, IN FORM YYYYMMDDHH.

INPUT FILES : UNIT 05 - STANDARD INPUT FOR PASSING IN ARGUMENTS. ARGUMENTS (FOR LIST-DIRECTED I/O) ARE AS FOLLOWS : RECORD 1 - (1) SUBDIRECTORY. CONTAINS BUFR DATA TYPE (2) TANKFILE. CONTAINS BUFR DATA SUB-TYPE (3) APPEND CHARACTERS. APPENDED TO TANKFILE TO GIVE UNIQUE OUTPUT FILE NAME. (4) DATE IN YYYYMMDDHH FORMAT. NEXT THREE RECORDS ARE OPTIONAL : RECORD 2 - (1) TIME LIMIT FLAG. MAY BE EITHER 'TIMLIM ' OR 'NOTIMLIM'. SEE DESCRIPTION OF 'TLFLAG' ABOVE. (DEFAULT IS 'NOTIMLIM') RECORD 3 - (1) HOURS BEFORE CURRENT TIME. RECORD 4 - (1) HOURS AFTER CURRENT TIME. IF 'TIMLIM ' IS SPECIFIED IN RECORD 2, THE QUANTITIES IN RECORDS 3 AND 4 ARE USED TO COMPUTE THE LIMITS OF THE TIME ACCEPTANCE WINDOW. IF RECORDS 3 AND 4 ARE OMITTED, THE VALUES DEFAULT TO -48 (48 HOURS BEFORE CURRENT TIME) AND +12 (12 HOURS AFTER CURRENT TIME). IF 'NOTIMLIM ' IS SPECIFIED IN RECORD 2, THEN THESE QUANTITIES ARE NOT USED REGARDLESS OF WHETHER OR NOT THEY WERE SPECIFIED.

SUBPROGRAMS CALLED : W3LIB - W3MOVDAT

REMARKS:

ATTRIBUTES:
LANGUAGE: FORTRAN 90
MACHINE: IBM-SP

Definition at line 75 of file w3trnarg.f.