From e0881e7a939697efb5136243db7a63dc1189f5a2 Mon Sep 17 00:00:00 2001 From: Juan Escobar <escj@aero.obs-mip.fr> Date: Fri, 14 Sep 2012 17:25:12 +0200 Subject: [PATCH] Juan 14/09/2012: replice udapte border => update all , mush better for the moment --- MNH/get_halo.f90 | 29 +++++++++-------------------- 1 file changed, 9 insertions(+), 20 deletions(-) diff --git a/MNH/get_halo.f90 b/MNH/get_halo.f90 index 8cf520eaa..86f1d1dc9 100644 --- a/MNH/get_halo.f90 +++ b/MNH/get_halo.f90 @@ -100,20 +100,9 @@ INTEGER :: IERROR ! error return code ! NULLIFY( TZ_PSRC_ll) ! -! acc update host (PSRC( IIB:IIE , IJB :IJB+JPHEXT , : )) -! acc update host (PSRC( IIB:IIE , IJE-JPHEXT :IJE , : )) -! acc update host (PSRC( IIB:IIB+JPHEXT , IJB+JPHEXT+1:IJE-JPHEXT-1 , : )) -! acc update host (PSRC( IIE-JPHEXT:IIE , IJB+JPHEXT+1:IJE-JPHEXT-1 , : )) - CALL ADD3DFIELD_ll(TZ_PSRC_ll,PSRC) CALL UPDATE_HALO_ll(TZ_PSRC_ll,IERROR, HDIR=HDIR ) CALL CLEANLIST_ll(TZ_PSRC_ll) - -! acc update device (PSRC( IIB:IIE , : IJB-1 , : )) -! acc update device (PSRC( IIB:IIE , IJE+1: , : )) -! acc update device (PSRC( :IIB-1 , IJB :IJE , : )) -! acc update device (PSRC( IIE+1: , IJB :IJE , : )) - ! END SUBROUTINE GET_HALO !----------------------------------------------------------------------- @@ -142,20 +131,20 @@ NULLIFY( TZ_PSRC_ll) CALL GET_INDICE_ll(IIB,IJB,IIE,IJE) ! !$acc update host (PSRC) -! acc update host (PSRC( : , IJB:IJB , : )) -! acc update host (PSRC( : , IJE:IJE , : )) -! acc update host (PSRC( IIB:IIB , IJB:IJE , : )) -! acc update host (PSRC( IIE:IIE , IJB:IJE , : )) +! acc update host (PSRC( : , :IJB , : )) +! acc update host (PSRC( : , IJE: , : )) +! acc update host (PSRC( :IIB , IJB:IJE , : )) +! acc update host (PSRC( IIE: , IJB:IJE , : )) CALL ADD3DFIELD_ll(TZ_PSRC_ll,PSRC) CALL UPDATE_HALO_ll(TZ_PSRC_ll,IERROR, HDIR=HDIR ) CALL CLEANLIST_ll(TZ_PSRC_ll) -! acc update device (PSRC) -!$acc update device (PSRC( : , : IJB-1 , : )) -!$acc update device (PSRC( : , IJE+1: , : )) -!$acc update device (PSRC( :IIB-1 , : , : )) -!$acc update device (PSRC( IIE+1: , : , : )) +!$acc update device (PSRC) +! acc update device (PSRC( : , : IJB-1 , : )) +! acc update device (PSRC( : , IJE+1: , : )) +! acc update device (PSRC( :IIB-1 , : , : )) +! acc update device (PSRC( IIE+1: , : , : )) ! END SUBROUTINE GET_HALO_D -- GitLab