Juan 8/04/2019: test initialisation des corner <=> apparement inutile et deja fait au dessus

tensorproductmultigrid_Source/communication.f90

@@ -457,6 +457,21 @@ contains
     if ( iy_max == n ) then
        a%s(:,a%icompy_max+1,:) = a%s(:,a%icompy_max,:)
     endif
+    !
+    ! corner ( inutile , deja réalisé au dessus )
+    !
+!!$    if ( ( ix_min == 1 ) .and. ( iy_min == 1 ) ) then
+!!$       a%s(:,0,0) = a%s(:,1,1) 
+!!$    endif
+!!$    if ( ( ix_min == 1 ) .and. ( iy_max == n ) ) then
+!!$       a%s(:,a%icompy_max+1,0) = a%s(:,a%icompy_max,1)
+!!$    end if
+!!$    if ( ( ix_max == n ) .and. ( iy_min == 1 ) ) then
+!!$       a%s(:,0,a%icompx_max+1) = a%s(:,1,a%icompx_max)
+!!$    end if
+!!$    if ( ( ix_max == n ) .and. ( iy_max == n ) ) then
+!!$     a%s(:,a%icompy_max+1,a%icompx_max+1) = a%s(:,a%icompy_max,a%icompx_max)
+!!$    end if
   end subroutine boundary_mnh
 !==================================================================
 !  Initiate asynchronous halo exchange