RMNLIB
|
(READ_DECODE_HYB)
|
FSTD
|
INTEGER FUNCTION READ_DECODE_HYB(iun,nom,ip2,ip3,etik,datev,ptop,pref,rcoef)
integer iun,ip2,ip3,datev
real rcoef,pref,ptop
character*4 nom
character*12 etik
DESCRIPTION
To derive hybrid reference values given a selected FSTD record
Authors: Vivian Lee/Michel Valin - February 2002
ARGUMENTS
| Output: |
| READ_DECODE_HYB |
returns the KEY of FSTD record found if successful,
else -1 |
| ptop |
average pressure at the top (mb) |
| pref |
reference pressure in mb (normally = 800mb) |
| rcoef |
coefficient (1.0 to 2.0) |
| Input: |
| iun |
unit number for input file to read from |
| nom |
variable name for search |
| ip2 |
ip2 value for search reference |
| ip3 |
ip3 value for search reference |
| etik |
label for search reference |
| datev |
date of validity for search reference |
EXAMPLE:
*For search ignoring datev, ip2,ip3 (more standard)
key = read_decode_hyb(iunout,'HY ',-1,-1,etiket,-1,ptop,pref,rcoef)
*For search using ip2,ip3,and datev (if need be)
deltat=(deet*npas+1800)/3600
call incdat(datev,dateo,deltat)
key = read_decode_hyb(iunout,'HY ',ip2,ip3,etiket,datev,ptop,pref,rcoef)
SEE ALSO
hybref_to_ig, ig_to_hybref,
hybrid_to_pres, write_encode_hyb
Return to RPN utilities home page