# Número total ds tempos de todos os arquivos: 372 (01-1980 a 12-2010)
# EN 05/1997-05/1998 = t=209-221
# LN 05/1987-05/1988 = t=89-101
'reinit'
'set display color white'
'c'
'set grads off'
'set grid off'
'set mpdset hires'

# Opening Suface Tempetarure File File
'sdfopen sst.mnmean.1980-2010.nc'
'set lat -5 5'
'set lon 170 275'
'set t 1 372'
'define nino34=sst'
'define nino34m=aave(nino34,lon=190,lon=240,lat=-5,lat=5)'

# Opening Precipitation File
'sdfopen precip.mon.total.1980-2010.nc'
'set dfile 2'
'set lat -60 15'
'set lon 275 330'
'set t 1 372'
'define pras=precip'

# Calculating Tcorr
'set dfile 1'
'set lat -60 15'
'set lon 275 330'
'set t 1'
'define tcorr1=tcorr(nino34m,pras,t=1,t=372)'

# Saving File
'set sdfwrite -nc3 Tcorr_Nino34_PrAS.nc'
'sdfwrite tcorr1'

# Displaying Data
'set gxout shaded'
'color -50 50 5 -kind darkred->red->salmon->white->skyblue->royalblue->navy'
'd tcorr1*100'
'cbarn'
'set gxout contour'
'set clab off'
'set clevs 0'
'set ccolor 15'
'set cstyle 3'
'd tcorr1*100'
'set string 1 tc 7'
'set strsiz 0.15 0.15'
'draw string 5.5 8.3 Correlation Coefficiente between (Nino 3.4 SST) & (South America Precipitation) '
'set string 1 tc 7'
'set strsiz 0.15 0.15'
'draw string 5.5 8.0 (1980-2010)'
'printim Tcorr1.png'

'q bpos'
'c'