*IDENT blokinitwmc
*DECLARE BLOKINIT
*D OLA0F404.20,23
C WMC
!       CALL SWAPBOUNDS(WSX_LEADS,IMT,JMT,O_EW_HALO,O_NS_HALO,1)           OLA0F404.20
!       CALL SWAPBOUNDS(WSY_LEADS,IMT,JMT,O_EW_HALO,O_NS_HALO,1)           OLA0F404.21
!       CALL SWAPBOUNDS(ISX,IMT,JMT,O_EW_HALO,O_NS_HALO,1)                 OLA0F404.22
!       CALL SWAPBOUNDS(ISY,IMT,JMT,O_EW_HALO,O_NS_HALO,1)                 OLA0F404.23
        CALL SWAPBOUNDS(WSX_LEADS,IMT,JMTm1,O_EW_HALO,O_NS_HALO,1)     
        CALL SWAPBOUNDS(WSY_LEADS,IMT,JMTm1,O_EW_HALO,O_NS_HALO,1)   
        CALL SWAPBOUNDS(ISX,IMT,JMTm1,O_EW_HALO,O_NS_HALO,1)      
        CALL SWAPBOUNDS(ISY,IMT,JMTm1,O_EW_HALO,O_NS_HALO,1)