求助世界时转北京时不成功

德州气象

'reinit'
'open /home/ubuntu/arw/ARWpost/forecast.ctl'
'set lat 37'
'set lon 116'
'set t 1 24'
'query time'
  res=subwrd(result,3)
  year=substr(res,11,2)
  month=substr(res,6,3)
  day=substr(res,4,2)
  hour=substr(res,1,2)
  if(month='JAN'); month='01'; mtype='big'; endif
  if(month='FEB'); month='02'; mtype='feb'; endif
  if(month='MAR'); month='03'; mtype='big'; endif
  if(month='APR'); month='04'; mtype='sma'; endif
  if(month='MAY'); month='05'; mtype='big'; endif
  if(month='JUN'); month='06'; mtype='sma'; endif
  if(month='JUL'); month='07'; mtype='big'; endif
  if(month='AUG'); month='08'; mtype='big'; endif
  if(month='SEP'); month='09'; mtype='sma'; endif
  if(month='OCT'); month='10'; mtype='big'; endif
  if(month='NOV'); month='11'; mtype='sma'; endif
  if(month='DEC'); month='12'; mtype='big'; endif
  endmonth=FALSE
  if(hour<16)
    hour=hour+8
  else
    hour=hour+8-24
    if((mtype='big' & day=31) | (mtype='sma' & day=30))
      month=month+1de
      if(month<10); month='0'%month; endif
      if(month=13); month='01'; endif
      endmonth=TRUE
    endif
    if(mtype='feb' & day=28)
      month='03'
      endmonth=TRUE
    endif
    if(endmonth=FALSE)
      day=day+1
      if(day<10); day='0'%day; endif
    else
      day='01'
    endif
  endif
  if(hour<10); hour='0'%hour; endif
'define x1=(T2-273.15)*5.77'
'define x2=PSFC*3.7'
'define x3=RAINNC*75.92'
'define x4=rh*(-0.524)'
'define x5=sqrt(U10*U10+V10*V10)*(-0.823)'
'define y=x1+x2+x3+x4+x5-1581.98'
'set ccolor 2'
'set cstyle 2'
'set cmark 1'
'd y'
'enable print elec.png'
'print'
'printim elec.png white'
'disable print'