RMNLIB
|
(WRITE_ENCODE_HYB)
|
FSTD
|
INTEGER FUNCTION WRITE_ENCODE_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 encode the given hybrid reference values into IG* parameters
and write out the FSTD record using the given ip*,etik,datev and nom.
Authors: Vivian Lee/Michel Valin - February 2002
ARGUMENTS
| Output: |
| WRITE_ENCODE_HYB | returns 0 if successful, else -1 |
| Input: |
| iun | unit number for output file to write to |
| nom | variable name to be used |
| ip2 | ip2 value to be used |
| ip3 | ip3 value to be used |
| etik | label to be used |
| datev | date of validity to be used |
| ptop | average pressure at the top (mb) |
| pref | reference pressure in mb (normally = 800mb) |
| rcoef | coefficient (1.0 to 2.0) |
EXAMPLE:
deltat=(deet*npas+1800)/3600
call incdat(datev,dateo,deltat)
key = write_encode_hyb(iunout,'HY ',ip2,ip3,etiket,datev,ptop,pref,rcoef)
SEE ALSO
hybref_to_ig, ig_to_hybref, read_decode_hyb, hybrid_to_pres
Return to RPN home page