where的用法求助！！！

大气CYX

我用shp文件只做了一个mask的nc文件，在shp里面值为1，不在shp里面为取缺省值，然后想用where函数制作一个数组新tp，使得在shp里面是H1数据，shp外面是Q_2数据，但是发现shp外是缺省值，没有被Q_2覆盖。。请问是怎么回事？？？？
程序在这里：
tp=new((/12,121,401/),"float")
  do i=0,11
    tp(i,:,:)=where(base_mask1(i,:,:).eq.1, Q_2(i,:,:), H1(i,:,:))
  end do

Q_2和H1都是12*121*401的数组
画出图是这样的：