!------------------------------------------------------------------------------
Subroutine Read_SPEI_Stn (FName)
Character (Len=*) :: FName
Real, Allocatable, Dimension (:) :: tmplon, tmplat, tmpTime, XStn
Integer :: Nlatmp, Nlotmp, Ntmp, Nst, Ntime
Character (Len=50) :: VarName

Call rd_ncdf_2d (trim(FName), XStn, tmpTime, Nst, Ntime, PDSI, "SPI_12")
Deallocate (XStn, tmpTime)

End Subroutine Read_SPEI_Stn 
!--------------------------------------------------------------------------------