Use default value INIT_MAP_DEVPTR in OWNER constructor

ecmwf-ifs · Jan 24, 2024 · c2da9dd · c2da9dd
1 parent 670f3f1
commit c2da9dd
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/field_RANKSUFF_module.fypp b/field_RANKSUFF_module.fypp
@@ -168,7 +168,7 @@ CONTAINS
     ENDIF
 #:if not defined('CUDA')
     IF(.NOT. SELF%MAP_DEVPTR)THEN
-       CALL FIELD_ABORT ("${ftn}$_OWNER_INIT: CUDA backend needed to disable host-mapped device-pointer")
+       CALL FIELD_ABORT ("${ftn}$_WRAPPER_INIT: CUDA backend needed to disable host-mapped device-pointer")
     ENDIF
 #:endif
 
@@ -212,6 +212,7 @@ CONTAINS
       SELF%PINNED = PINNED
     ENDIF
 
+    SELF%MAP_DEVPTR = INIT_MAP_DEVPTR
     IF(PRESENT(MAP_DEVPTR))THEN
       SELF%MAP_DEVPTR = MAP_DEVPTR
     ENDIF