GDATTIM LAST GLEVEL 500 GVCORD PRES GFUNC frnt(THTA(tmpc%hagl@2,pres,wnd%hagl@10) ! tmpc%hagl@2 GDFILE /data/gempak/upperair/20031106_upa.gem CINT 8 ! 2 LINE 3 MAP 1 TITLE 1/-3/~ SFC FRONTOGENESIS (SHADED) ! 1/-2/TMPC (2m) WINDS (10m) DEVICE XW SATFIL RADFIL PROJ MER GAREA WV CLEAR yes PANEL 0 TEXT 1 SCALE 2 ! 0 LATLON 0 HILO HLSYM CLRBAR CONTUR 1 SKIP /2 FINT 16/8 FLINE 0;29-7 CTYPE f ! c LUTFIL STNPLT