Changeset 2620 for XIOS3/trunk/src/interface/fortran_attr/iredistribute_domain_attr.F90

Timestamp:

03/20/24 14:48:11 (4 months ago)

Author:

jderouillat

Message:

Modify fortran-C interfaces to manage logical-bool conversion, the optimizations of OneAPI could produce bugs regarding the logical-bool encodings.

File:

• XIOS3/trunk/src/interface/fortran_attr/iredistribute_domain_attr.F90 (modified) (3 diffs)

XIOS3/trunk/src/interface/fortran_attr/iredistribute_domain_attr.F90

@@ -8 +8 @@
   USE iredistribute_domain
   USE redistribute_domain_interface_attr
+  USE LOGICAL_BOOL_CONVERSION
 
 CONTAINS
@@ -62 +63 @@
         ALLOCATE(mask__tmp(SIZE(mask_,1)))
         mask__tmp = mask_
+        CALL xios_logical_to_bool_1d(mask__tmp, SHAPE(mask__tmp))
         CALL cxios_set_redistribute_domain_mask &
       (redistribute_domain_hdl%daddr, mask__tmp, SHAPE(mask_))
@@ -125 +127 @@
         CALL cxios_get_redistribute_domain_mask &
       (redistribute_domain_hdl%daddr, mask__tmp, SHAPE(mask_))
+        CALL xios_bool_to_logical_1d(mask__tmp, SHAPE(mask__tmp))
         mask_ = mask__tmp
       ENDIF