Philippe 25/07/2023: OpenACC: adv_boundaries: remove data transfers not necessary anymore

src/MNH/adv_boundaries.f90

-!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
 !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
 !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
 !MNH_LIC for details. version 1.
@@ -126,10 +126,6 @@ IJU=SIZE(PFIELD,2)
   PFIELD  (:,:,IKE+1)   = PFIELD  (:,:,IKE)
 !$acc end kernels
 !
-!Not enough? !$acc update self(PFIELD(:,:,IKB-1))
-!Not enough? !$acc update self(PFIELD(:,:,IKE+1))
-!$acc update self(PFIELD(:,:,:))
-!
 CALL MPPDB_CHECK(PFIELD,"ADV_BOUNDARIES end:PFIELD")
 !
 !$acc end data
@@ -231,26 +227,6 @@ GNORTH = ( HLBCY(2) == 'OPEN' .AND. LNORTH_ll() )
   END IF
 !$acc end kernels
 !
-#if 0
-!Not enough?
-  !$acc update self(PFIELD(:,:,IKB-1))
-  !$acc update self(PFIELD(:,:,IKE+1))
-  IF ( GWEST ) THEN
-    !$acc update self(PFIELD(1,:,:))
-  END IF
-  IF ( GEAST ) THEN
-    !$acc update self(PFIELD(IIU,:,:))
-  END IF
-  IF ( GSOUTH ) THEN
-    !$acc update self(PFIELD(:,1,:))
-  END IF
-  IF ( GNORTH ) THEN
-    !$acc update self(PFIELD(:,IJU,:))
-  END IF
-#else
-!$acc update self(PFIELD(:,:,:))
-#endif
-!
 CALL MPPDB_CHECK(PFIELD,"ADV_BOUNDARIES end:PFIELD")
 !
 !$acc end data
@@ -376,27 +352,6 @@ END SELECT
   IF (IFLAG==3) PFIELD(:,:,IKE+1) = 0. !IF HFIELD=='W'
 !$acc end kernels
 !
-#if 0
-!Not enough?
-!add also if hfield =u or v
-  !$acc update self(PFIELD(:,:,IKB-1))
-  !$acc update self(PFIELD(:,:,IKE+1))
-  IF ( GWEST ) THEN
-    !$acc update self(PFIELD(1,:,:))
-  END IF
-  IF ( GEAST ) THEN
-    !$acc update self(PFIELD(IIU,:,:))
-  END IF
-  IF ( GSOUTH ) THEN
-    !$acc update self(PFIELD(:,1,:))
-  END IF
-  IF ( GNORTH ) THEN
-    !$acc update self(PFIELD(:,IJU,:))
-  END IF
-#else
-!$acc update self(PFIELD(:,:,:))
-#endif
-!
 CALL MPPDB_CHECK(PFIELD,"ADV_BOUNDARIES end:PFIELD")
 !
 

src/MNH/advection_metsv.f90

@@ -809,7 +809,6 @@ END DO
 DO JSV = 1, KSV
   CALL ADV_BOUNDARIES_DEVICE (HLBCX, HLBCY, ZRSVS_OTHER(:,:,:,JSV))
 END DO
-!Already done in ADV_BOUNDARIES_DEVICE !$acc update self(ZRTHS_OTHER,ZRTKES_OTHER,ZRRS_OTHER(:,:,:,1:KRR),ZRSVS_OTHER(:,:,:,1:KSV))
 #else
 CALL ADV_BOUNDARIES (HLBCX, HLBCY, ZRTHS_OTHER)
 IF (GTKE) CALL ADV_BOUNDARIES (HLBCX, HLBCY, ZRTKES_OTHER)
@@ -1002,7 +1001,6 @@ DO JSPL=1,KSPLIT
    DO JSV = 1, KSV
      CALL ADV_BOUNDARIES_DEVICE (HLBCX, HLBCY, ZSV(:,:,:,JSV), PSVT(:,:,:,JSV))
    END DO
-!Already done in ADV_BOUNDARIES_DEVICE !$acc update self(ZTH,ZTKE,ZR,ZSV)
 #endif
 
    IF(LBLOWSNOW) THEN ! Advection of Canopy mass at the 1st atmospheric level