A bug in the get_grid.F

[panfeng291]

When I Use the UV_DRAG_GRID and PIO_LIB, I got this error.
In get_grid.F have defined the pioVar_dragL, pioVar_dragQ
# if defined UV_DRAG_GRID && !defined ANA_DRAG
TYPE (My_VarDesc) :: pioVar_dragL, pioVar_dragQ, pioVar_ZoBL
# endif

but in line 4856 and line 4919 the var name become pioVar_rdrag and pioVar_rdrag2.
IF (KIND(GRID(ng)%rdrag).eq.8) THEN
pioVar_rdrag%dkind=PIO_double
ioDesc => ioDesc_dp_r2dvar(ng)
ELSE
pioVar_rdrag%dkind=PIO_real
ioDesc => ioDesc_sp_r2dvar(ng)
END IF
! Read in spacially varying quadratic drag coefficients.
!
IF (KIND(GRID(ng)%rdrag2).eq.8) THEN
pioVar_rdrag2%dkind=PIO_double
ioDesc => ioDesc_dp_r2dvar(ng)
ELSE
pioVar_rdrag2%dkind=PIO_real
ioDesc => ioDesc_sp_r2dvar(ng)
END IF
!