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 home page