Skip to content
Snippets Groups Projects
Commit e0881e7a authored by Juan Escobar's avatar Juan Escobar
Browse files

Juan 14/09/2012: replice udapte border => update all , mush better for the moment

parent 63c2652f
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 9 additions and 20 deletions
MNH/get_halo.f90
+ 9
− 20
View file @ e0881e7a
...@@ -100,20 +100,9 @@ INTEGER :: IERROR ! error return code ...@@ -100,20 +100,9 @@ INTEGER :: IERROR ! error return code
! !
NULLIFY( TZ_PSRC_ll) 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 ADD3DFIELD_ll(TZ_PSRC_ll,PSRC)
CALL UPDATE_HALO_ll(TZ_PSRC_ll,IERROR, HDIR=HDIR ) CALL UPDATE_HALO_ll(TZ_PSRC_ll,IERROR, HDIR=HDIR )
CALL CLEANLIST_ll(TZ_PSRC_ll) 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 END SUBROUTINE GET_HALO
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
...@@ -142,20 +131,20 @@ NULLIFY( TZ_PSRC_ll) ...@@ -142,20 +131,20 @@ NULLIFY( TZ_PSRC_ll)
CALL GET_INDICE_ll(IIB,IJB,IIE,IJE) CALL GET_INDICE_ll(IIB,IJB,IIE,IJE)
! !
!$acc update host (PSRC) !$acc update host (PSRC)
! acc update host (PSRC( : , IJB:IJB , : )) ! acc update host (PSRC( : , :IJB , : ))
! acc update host (PSRC( : , IJE:IJE , : )) ! acc update host (PSRC( : , IJE: , : ))
! acc update host (PSRC( IIB:IIB , IJB:IJE , : )) ! acc update host (PSRC( :IIB , IJB:IJE , : ))
! acc update host (PSRC( IIE:IIE , IJB:IJE , : )) ! acc update host (PSRC( IIE: , IJB:IJE , : ))
CALL ADD3DFIELD_ll(TZ_PSRC_ll,PSRC) CALL ADD3DFIELD_ll(TZ_PSRC_ll,PSRC)
CALL UPDATE_HALO_ll(TZ_PSRC_ll,IERROR, HDIR=HDIR ) CALL UPDATE_HALO_ll(TZ_PSRC_ll,IERROR, HDIR=HDIR )
CALL CLEANLIST_ll(TZ_PSRC_ll) CALL CLEANLIST_ll(TZ_PSRC_ll)
! acc update device (PSRC) !$acc update device (PSRC)
!$acc update device (PSRC( : , : IJB-1 , : )) ! acc update device (PSRC( : , : IJB-1 , : ))
!$acc update device (PSRC( : , IJE+1: , : )) ! acc update device (PSRC( : , IJE+1: , : ))
!$acc update device (PSRC( :IIB-1 , : , : )) ! acc update device (PSRC( :IIB-1 , : , : ))
!$acc update device (PSRC( IIE+1: , : , : )) ! acc update device (PSRC( IIE+1: , : , : ))
! !
END SUBROUTINE GET_HALO_D END SUBROUTINE GET_HALO_D
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme