'reinit'
'set display color white'
'c'
'sdfopen C:\Users\FLG0114D\Desktop\DADOS-GRADS\sst.mon.mean.nc'

'define sstjan=ave(sst,t=1,t=1590,12)'
'define sstfev=ave(sst,t=2,t=1590,12)'
'define sstmar=ave(sst,t=3,t=1590,12)'
'define sstabr=ave(sst,t=4,t=1590,12)'
'define sstmai=ave(sst,t=5,t=1590,12)'
'define sstjun=ave(sst,t=6,t=1590,12)'
'define sstjul=ave(sst,t=7,t=1590,12)'
'define sstago=ave(sst,t=8,t=1590,12)'
'define sstset=ave(sst,t=9,t=1590,12)'
'define sstout=ave(sst,t=10,t=1590,12)'
'define sstnov=ave(sst,t=11,t=1590,12)'
'define sstdez=ave(sst,t=12,t=1590,12)'
'define en721=sst(t=977)-sstmai'
'define en722=sst(t=978)-sstjun'
'define en723=sst(t=979)-sstjul'
'define en724=sst(t=980)-sstago'
'define en725=sst(t=981)-sstset'
'define en726=sst(t=982)-sstout'
'define en727=sst(t=983)-sstnov'
'define en728=sst(t=984)-sstdez'
'define en729=sst(t=985)-sstjan'
'define en7210=sst(t=986)-sstfev'
'define en7211=sst(t=987)-sstmar'
'define en7273=(en721+en722+en723+en724+en725+en726+en727+en728+en729+en7210+en7211)/11'
'C:\Users\FLG0114D\Desktop\DADOS-GRADS\color.gs -2 2 0.3 -kind blue->white->red'
'set parea 1 8 0 10'
'd en7273'
'cbar'
'draw title Anomalia TSM EN 1972-1973'
'draw xlab longitude'
'draw ylab latitude'
'printim EN7273.png x1000 y800'