***** GRADS SCRIPT TO DUMP VERTICAL PROFILES TO TERMINAL
***** S. Rafkin  October 30, 2006
*****
*
*
* define x,y location for profile
'set x 50'
*
*
* Print header info for profile
say "T          P         rho"
*
*
* Loop over vertical profile and print.
* You can control vertical limits by changing
* the two lines below.
z=1
while(z < 60)
z=z+1
'set z 'z

'd tempk'
t=subwrd(result,4)
'd press'
p=subwrd(result,4)
'd density'
g=subwrd(result,4)

say t%'    '%p%'    '%g
endwhile