replaced COPY_ARRAY with COPY_FUNC and removed field_data_module

Author: wertysas

Diff for: field_data_module.fypp

@@ -22,7 +22,7 @@ PRIVATE
 #:for ft in fieldTypeList
 #:set ftn = ft.name
 
-PUBLIC :: ${ftn}$_COPY_ARRAY
+PUBLIC :: ${ftn}$_COPY
 PUBLIC :: ${ftn}$_COPY_FUNC
 PUBLIC :: ${ftn}$_COPY_INTF
 
@@ -92,7 +92,7 @@ CONTAINS
 
   END FUNCTION
 
-  SUBROUTINE ${ftn}$_COPY_ARRAY (HST, DEV, MAP_DEVPTR, KDIR, QUEUE)
+  SUBROUTINE ${ftn}$_COPY (HST, DEV, MAP_DEVPTR, KDIR, QUEUE)
 
     USE FIELD_ABORT_MODULE
 

Diff for: src/core/field_RANKSUFF_data_module.fypp

@@ -19,7 +19,6 @@ USE HOST_ALLOC_MODULE
 USE FIELD_BASIC_MODULE
 USE FIELD_CONSTANTS_MODULE
 USE FIELD_DEFAULTS_MODULE
-USE FIELD_DATA_MODULE, ONLY : COPY_ARRAY
 #:if defined('CUDA')
 USE CUDAFOR
 #:endif
@@ -451,7 +450,7 @@ CONTAINS
       CALL FIELD_ABORT("BLOCK DIMENSIONS ARE OUT OF RANGE")
     END IF
     HST_BLK => SELF%PTR(${ft.hst_blk}$)
-    CALL COPY_ARRAY(HST_BLK, SELF%DEVPTR, SELF%MAP_DEVPTR, KDIR, QUEUE)
+    CALL SELF%COPY_FUNC(HST_BLK, SELF%DEVPTR, SELF%MAP_DEVPTR, KDIR, QUEUE)
   END IF
   IF (KDIR == NH2D) THEN
     CALL SELF%STATS%INC_CPU_TO_GPU_TRANSFER(START, FINISH)