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