'sdfopen ./04/20240426.nc'
'sdfopen ./04/20240427.nc'
'sdfopen ./04/20240428.nc'
'sdfopen ./04/20240429.nc'
'sdfopen ./04/20240430.nc'
'sdfopen ./05/20240501.nc'
'sdfopen ./05/20240502.nc'
'sdfopen ./05/20240503.nc'
'sdfopen ./05/20240504.nc'
'sdfopen ./05/20240505.nc'
'sdfopen ./05/20240506.nc'
'sdfopen ./05/20240507.nc'
'set lat -36 -24'
'set lon -58 -44'
'q dims'
linha=sublin(result,2)
xmin=subwrd(linha,11)
xmax=subwrd(linha,13)
linha=sublin(result,3)
ymin=subwrd(linha,11)
ymax=subwrd(linha,13)
*'set x 'xmin' 'xmax
*'set y 'ymin' 'ymax
'define ttprec=precipitation.1(t=1)+precipitation.2(t=1)+precipitation.3(t=1)+precipitation.4(t=1)+precipitation.5(t=1)+precipitation.6(t=1)+precipitation.7(t=1)+precipitation.8(t=1)+precipitation.9(t=1)+precipitation.10(t=1)+precipitation.11(t=1)'
'd ttprec'
'q pos'
ycont=ymin
thr.1=0;thr.2=0;thr.3=0;thr.4=0;thr.5=0;thr.6=0;thr.7=0;thr.8=0;thr.9=0
thr.10=0;thr.11=0;thr.12=0;thr.13=0;thr.14=0;thr.15=0;thr.16=0;thr.17=0;thr.18=0;thr.19=0
thr.20=0;thr.21=0;thr.22=0;thr.23=0;thr.24=0;thr.25=0;thr.26=0;thr.27=0;thr.28=0;thr.29=0
thr.30=0;thr.31=0;thr.32=0;thr.33=0;thr.34=0;thr.35=0;thr.36=0;thr.37=0;thr.38=0;thr.39=0
thr.40=0;thr.41=0;thr.42=0;thr.43=0;thr.44=0;thr.45=0;thr.46=0;thr.47=0;thr.48=0;thr.49=0
thr.50=0;thr.51=0;thr.52=0;thr.53=0;thr.54=0;thr.55=0;thr.56=0;thr.57=0;thr.58=0;thr.59=0
thr.60=0
while (ycont <= ymax)
  'set  y 'ycont
  xcont=xmin
  while (xcont <= xmax)
    'set x 'xcont  
    'd ttprec'
    say result
    precval=subwrd(result,4)
    if (precval>=10) & (precval<20);thr.1=thr.1+1 ; endif
    if (precval>=20) & (precval<30);thr.2=thr.2+1 ; endif
    if (precval>=30) & (precval<40);thr.3=thr.3+1 ; endif
    if (precval>=40) & (precval<50);thr.4=thr.4+1 ; endif
    if (precval>=50) & (precval<60);thr.5=thr.5+1 ; endif
    if (precval>=60) & (precval<70);thr.6=thr.6+1 ; endif
    if (precval>=70) & (precval<80);thr.7=thr.7+1 ; endif
    if (precval>=80) & (precval<90);thr.8=thr.8+1 ; endif
    if (precval>=100) & (precval<110);thr.9=thr.9+1 ; endif
    if (precval>=110) & (precval<120);thr.10=thr.10+1 ; endif
    if (precval>=120) & (precval<130);thr.11=thr.11+1 ; endif
    if (precval>=130) & (precval<140);thr.12=thr.12+1 ; endif
    if (precval>=140) & (precval<150);thr.13=thr.13+1 ; endif
    if (precval>=150) & (precval<160);thr.14=thr.14+1 ; endif
    if (precval>=160) & (precval<170);thr.15=thr.15+1 ; endif
    if (precval>=170) & (precval<180);thr.16=thr.16+1 ; endif
    if (precval>=180) & (precval<190);thr.17=thr.17+1 ; endif
    if (precval>=190) & (precval<200);thr.18=thr.18+1 ; endif
    if (precval>=200) & (precval<210);thr.19=thr.19+1 ; endif
    if (precval>=210) & (precval<220);thr.20=thr.20+1 ; endif
    if (precval>=220) & (precval<230);thr.21=thr.21+1 ; endif
    if (precval>=230) & (precval<240);thr.22=thr.22+1 ; endif
    if (precval>=240) & (precval<250);thr.23=thr.23+1 ; endif
    if (precval>=250) & (precval<260);thr.24=thr.24+1 ; endif
    if (precval>=260) & (precval<270);thr.25=thr.25+1 ; endif
    if (precval>=270) & (precval<280);thr.26=thr.26+1 ; endif
    if (precval>=280) & (precval<290);thr.27=thr.27+1 ; endif
    if (precval>=290) & (precval<300);thr.28=thr.28+1 ; endif
    if (precval>=300) & (precval<310);thr.29=thr.29+1 ; endif
    if (precval>=310) & (precval<320);thr.30=thr.30+1 ; endif
    if (precval>=320) & (precval<330);thr.31=thr.31+1 ; endif
    if (precval>=330) & (precval<340);thr.32=thr.32+1 ; endif
    if (precval>=340) & (precval<350);thr.33=thr.33+1 ; endif
    if (precval>=350) & (precval<360);thr.34=thr.34+1 ; endif
    if (precval>=360) & (precval<370);thr.35=thr.35+1 ; endif
    if (precval>=370) & (precval<380);thr.36=thr.36+1 ; endif
    if (precval>=380) & (precval<390);thr.37=thr.37+1 ; endif
    if (precval>=390) & (precval<400);thr.38=thr.38+1 ; endif
    if (precval>=400) & (precval<410);thr.39=thr.39+1 ; endif
    if (precval>=410) & (precval<420);thr.40=thr.40+1 ; endif
    if (precval>=420) & (precval<430);thr.41=thr.41+1 ; endif
    if (precval>=430) & (precval<440);thr.42=thr.42+1 ; endif
    if (precval>=440) & (precval<450);thr.43=thr.43+1 ; endif
    if (precval>=450) & (precval<460);thr.44=thr.44+1 ; endif
    if (precval>=460) & (precval<470);thr.45=thr.45+1 ; endif
    if (precval>=470) & (precval<480);thr.46=thr.46+1 ; endif
    if (precval>=480) & (precval<490);thr.47=thr.47+1 ; endif
    if (precval>=490) & (precval<500);thr.48=thr.48+1 ; endif
    if (precval>=500) & (precval<510);thr.49=thr.49+1 ; endif
    if (precval>=510) & (precval<520);thr.50=thr.50+1 ; endif
    if (precval>=520) & (precval<530);thr.51=thr.51+1 ; endif
    if (precval>=530) & (precval<540);thr.52=thr.52+1 ; endif
    if (precval>=540) & (precval<550);thr.53=thr.53+1 ; endif
    if (precval>=550) & (precval<560);thr.54=thr.54+1 ; endif
    if (precval>=560) & (precval<570);thr.55=thr.55+1 ; endif
    if (precval>=570) & (precval<580);thr.56=thr.56+1 ; endif
    if (precval>=580) & (precval<590);thr.57=thr.57+1 ; endif
    if (precval>=590) & (precval<500);thr.58=thr.58+1 ; endif
    if (precval>=600);thr.59=thr.59+1 ; endif
    xcont = xcont + 1
  endwhile
  ycont = ycont + 1
endwhile
i=1
while (i<=59)
  say thr.i
  i = i+1
endwhile