风矢量颜色问题

taxueyueming

手上有实况和预报场的风场资料，现在对应点做对比，如果预报大于实况，则预报场风场用红色，如果小于用蓝色，如果等于用黑色，我的想法是:
do i=...
     do j=...
          if (fore_wspd(i,j).gt.now_wspd(i,j)) then
              res@vcWindBarbColor = "red"
          end if
          if ... end if
          if ... end if
     end do
end do

plot = gsn_csm_vector_map(wks,fore_u,fore_v,res)
但出来的结果只有最后使用的那个颜色，求大神教我，谢谢