Skip to content
Snippets Groups Projects
Commit 5e76c0ba authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 16/06/2016: OpenACC: get_halo_d: added a mppdb_check3d to allow cross-checks with get_halo

parent f7d3e2df
No related branches found
No related tags found
No related merge requests found
......@@ -139,6 +139,7 @@ USE MODE_MNH_ZWORK, ONLY : GWEST , GEAST, GSOUTH , GNORTH
!
USE MODD_CONF, ONLY : NHALO
USE MODE_DEVICE
USE MODE_MPPDB
!
IMPLICIT NONE
!
......@@ -288,6 +289,9 @@ IF (LX .OR. LY) THEN
CALL ADD3DFIELD_ll(TZ_PSRC_ll,PSRC)
CALL UPDATE_HALO_ll(TZ_PSRC_ll,IERROR, HDIR=HDIR )
CALL CLEANLIST_ll(TZ_PSRC_ll)
ELSE
!Necessary to allow comparisons/checks with standard GET_HALO
CALL MPPDB_CHECK3D(PSRC,"UPDATE_HALO_ll",PRECISION)
ENDIF
!Copy the halo on the host PSRC to Zxxxx_OUT and put it in the PSRC copy on the device
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment