err = NF_INQ_DIMLEN(fid, dimid, iINTERP )
iINTERP=NUM_INTERP_POINTS
do q=1,iINTERP
do q = 1,iINTERP
integer varid_intp3, varid_intp4, varid_intp5, q, iINTERP