Changeset 2620 for XIOS3/trunk/src/interface/fortran_attr/iexpand_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/iexpand_domain_attr.F90 (modified) (5 diffs)

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

@@ -8 +8 @@
   USE iexpand_domain
   USE expand_domain_interface_attr
+  USE LOGICAL_BOOL_CONVERSION
 
 CONTAINS
@@ -62 +63 @@
       IF (PRESENT(i_periodic_)) THEN
         i_periodic__tmp = i_periodic_
+        CALL xios_logical_to_bool_0d(i_periodic__tmp)
         CALL cxios_set_expand_domain_i_periodic &
       (expand_domain_hdl%daddr, i_periodic__tmp)
@@ -68 +70 @@
       IF (PRESENT(j_periodic_)) THEN
         j_periodic__tmp = j_periodic_
+        CALL xios_logical_to_bool_0d(j_periodic__tmp)
         CALL cxios_set_expand_domain_j_periodic &
       (expand_domain_hdl%daddr, j_periodic__tmp)
@@ -136 +139 @@
         CALL cxios_get_expand_domain_i_periodic &
       (expand_domain_hdl%daddr, i_periodic__tmp)
+        CALL xios_bool_to_logical_0d(i_periodic__tmp)
         i_periodic_ = i_periodic__tmp
       ENDIF
@@ -142 +146 @@
         CALL cxios_get_expand_domain_j_periodic &
       (expand_domain_hdl%daddr, j_periodic__tmp)
+        CALL xios_bool_to_logical_0d(j_periodic__tmp)
         j_periodic_ = j_periodic__tmp
       ENDIF