/*
* inquire number of vertical levels for ETA, SIGM, and ZHYB coordinats
*
* subc_eta_inq_zn(type1, type2, type3, basetime, member, validtime, group)
* arguments:
* type1, type2, type3, member: String
* basetime, validtime: Integer (minuits from 00:00 1 Jan 1801)
* group: "ETA", "SIGM", or "ZHYB"
* return:
* j_n: Integer
*/
VALUE
rb_subc_eta_inq_nz(VALUE self,
VALUE type1, VALUE type2, VALUE type3,
VALUE basetime, VALUE member, VALUE validtime,
VALUE group)
{
GetTypes;
GetTimesAndMember;
GetChar(group, 4);
N_SI4 cn_levels;
N_SI4 code;
code = nusdas_subc_eta_inq_nz(ctype1, ctype2, ctype3,
&cbasetime, cmember, &cvalidtime,
cgroup, &cn_levels);
if ( code < 0 )
rb_raise(rb_eRuntimeError, "faild");
return INT2NUM( (int)cn_levels );
}