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