NCEPLIBS-w3emc 2.12.0
|
Translates arg line from standard input. More...
Go to the source code of this file.
Functions/Subroutines | |
subroutine | w3trnarg (subdir, lsubdr, tankid, ltnkid, appchr, lapchr, tlflag, iymdhb, iymdhe, ierr) |
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. | |
subroutine w3trnarg | ( | character*(*) | subdir, |
lsubdr, | |||
character*(*) | tankid, | ||
ltnkid, | |||
character*(*) | appchr, | ||
lapchr, | |||
character*(*) | tlflag, | ||
iymdhb, | |||
iymdhe, | |||
ierr | |||
) |
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.
Date | Programmer | Comment |
---|---|---|
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"
[in] | SUBDIR | Name of sub-directory including bufr data type where bufr data tank is located. |
[in] | LSUBDR | Number of characters in 'subdir'. |
[in] | TANKID | Name of file including bufr data sub-type containing bufr data tank. |
[in] | LTNKID | Number of characters in 'tankid'. |
[in] | APPCHR | Characters to be appended to 'tankid' giving a uniquely named file to contain the original tank with one orbit appended to it. |
[in] | LAPCHR | Number of characters in 'appchr'. |
[in] | 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. |
[in] | IYMDHB | Start of time acceptance window, in form yyyymmddhh. |
[in] | IYMDHE | End of time acceptance window, in form yyyymmddhh. |
IERR |
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.
Definition at line 63 of file w3trnarg.f.