PROGRAM gridinfo
USE mkinds
USE mconstants
USE mgridinfo

CALL inquireGridType(fcmodel)
CALL readGridInfo(fcmodel)
CALL WriteGridInfo(fcmodel)

END PROGRAM gridinfo