DATE='2020031300'
'open  /lustre_xc50/jorge_gomes/sub-sazonal/worketa/eta/Eta_Atlantico/binctl/BMJ_FER_GFS/'DATE'/Eta_10km_BMJ_FER_GFS_'DATE'.ctl'

'set lat -60 20'
'set lon -85 20'

'set mproj scaled'
'set parea 0.5 8.3 1.2 10.1'
'set mpdset brmap_hires'

rc = RGB()
i=0
while (i<=121)
  'set t 'i+1
  'set display color white'
  'clear'
  fct=i*1
  if (fct<1000 & fct>100)
    fct='0'fct
  else
    if (fct<100 & fct>10)  
      fct='00'fct
    else
      if (fct<10)
        fct='000'fct
      endif
    endif
  endif

  'set gxout stream'
  'set grads off'
  'set strmden -5'
  'set arrscl 0.3 5'
  'set arrowhead 0.2'
  'set clevs 1 2 3 4 5 6 7 8 10 12 14 16 18'
  'set grads off'
  'd u10m;v10m;mag(u10m,v10m)'
  'run xcbar.gs 0.1 8.5 0.2 0.4 -fw 0.1 -fh 0.12 -ft 4 -fo center -dir h -line on -lc 15 -edge triangle'  
  'draw map'

  'set strsiz 0.13'
  'set string 1 c 5'
  'set strsiz .13 .12'
  'draw string 4.4  10.9  Modelo Eta 10km'
  'draw string 4.4  10.6  Previsao 'DATE'+'fct'h'
  'draw string 4.4  10.3  Vento 10m (m/s)'
  'printim V10m_Eta10km_'DATE'+'fct'h.png'

  i=i+1
endwhile
'quit'

function RGB()
'set rgb  16    0    0   74'
'set rgb  17    0    0   90'
'set rgb  18    0    0  122'
'set rgb  19    0    0  150'
'set rgb  20    0    0  175'
'set rgb  21    0    0  200'
'set rgb  22    0    0  225'
'set rgb  23    0   10  255'
'set rgb  24    0   91  255'
'set rgb  25    0  120  255'
'set rgb  26  100  150  255'
'set rgb  27  120  160  255'
'set rgb  28  162  189  255'

'set rgb  30    0   80    0'
'set rgb  31    0  100    0'
'set rgb  32    0  116    0'
'set rgb  33    0  136    0'
'set rgb  34    0  150    0'
'set rgb  35    0  174    0'
'set rgb  36    0  200    0'
'set rgb  37    0  220    0'
'set rgb  38    0  255    0'

'set rgb  58  30     0    0'
'set rgb  59  60     0    0'
'set rgb  60  90     0    0'
'set rgb  61  124    0    0'
'set rgb  62  180    0    0'
'set rgb  63  200    0    0'
'set rgb  64  220   10    0'
'set rgb  65  255   20   0'
'set rgb  66  255   45   15'
'set rgb  68  255   80   30'
'set rgb  75  255  110   60'
'set rgb  77  255  150   75'
'set rgb  78  255  180   99'
'set rgb  79  255  210   99'
'set rgb  80  255  255   80'

*** GRAY ***
'set rgb 81 230 230 230'
'set rgb 82 204 204 204'
'set rgb 83 179 179 179'
'set rgb 84 153 153 153'
'set rgb 85 128 128 128'
return