!-----------------------------------------------------------------------
      real(4),pointer::vbm2(:,:),vbm3(:,:),sm(:,:),sice(:,:)
      real(4),pointer::htm(:,:,:),vtm(:,:,:),hbm2(:,:),hbm3(:,:)
      COMMON/MASKS/VBM2,VBM3,SM,SICE,HTM,VTM,HBM2,HBM3
!-----------------------------------------------------------------------