In forcing package, below lines of the program get_grid.F
200 status=nf_get_vara_FTYPE(ncgrdid,vid(idrlon),start,count,
201 & rlat)
should be change to
200 status=nf_get_vara_FTYPE(ncgrdid,vid(IDRLAT),start,count,
201 & rlat)
(the value inside the paranthesis should be IDRLAT).