Philippe 22/05/2023: minor: REMAP_SXP1_YP2_Z_SX_YP2_ZP1_ll: remove MPPDB_CHECK

src/LIB/SURCOUCHE/src/mode_splittingz_ll.f90

@@ -1072,8 +1072,6 @@ CONTAINS
 #endif
     USE MODD_VAR_ll     , ONLY : TCRRT_COMDATA
     USE MODD_CONFZ      , ONLY : NZ_SPLITTING ! for debug IZ=1=flat_inv;  IZ=2=flat_invz ;  IZ=1+2=the two
-
-    USE MODE_MPPDB
     !
     IMPLICIT NONE
     !
@@ -1088,12 +1086,6 @@ CONTAINS
     !
     !-------------------------------------------------------------------------------
 
-    IF (MPPDB_INITIALIZED) THEN
-      !Check all INOUT arrays
-      CALL MPPDB_CHECK( PFIELDIN,  "REMAP_SXP1_YP2_Z_SX_YP2_ZP1_ll beg:PFIELDIN" )
-      CALL MPPDB_CHECK( PFIELDOUT, "REMAP_SXP1_YP2_Z_SX_YP2_ZP1_ll beg:PFIELDOUT" )
-    END IF
-
 !$acc data present( PFIELDIN, PFIELDOUT )
     !
     !*       1.     UPDATE THE ZONES NOT SENT OR RECEIVED BY THE PROCESSOR ITSELF 
@@ -1128,12 +1120,6 @@ CONTAINS
     ENDIF
 
 !$acc end data
-    IF (MPPDB_INITIALIZED) THEN
-      !Check all INOUT arrays
-      CALL MPPDB_CHECK( PFIELDIN,  "REMAP_SXP1_YP2_Z_SX_YP2_ZP1_ll end:PFIELDIN" )
-      CALL MPPDB_CHECK( PFIELDOUT, "REMAP_SXP1_YP2_Z_SX_YP2_ZP1_ll end:PFIELDOUT" )
-    END IF
-
     !
   END SUBROUTINE REMAP_SXP1_YP2_Z_SX_YP2_ZP1_ll