C================================================
C This subroutine applies masks
C================================================
      SUBROUTINE APPLY_MASKS
      implicit none
#include "SIZE.h"
#include "SWE.h"
#include "MASKS.h"

      integer i,j
C     Apply masks
      do j=0,ny+1
         do i=0,nx+1
            u(i,j)=maskU(i,j)*u(i,j)
            v(i,j)=maskV(i,j)*v(i,j)
         enddo
      enddo

      end