2 calls to
SETGRD
INIGRD
ARPSSFC20