MODULE DEFGRIDSTNS
        INTEGER, ALLOCATABLE :: GRID(:,:)
        CHARACTER(5), ALLOCATABLE :: STNS(:)
      END MODULE DEFGRIDSTNS