Changeset 2623 for XIOS2/trunk/src/interface/fortran_attr/idomaingroup_attr.F90

Timestamp:

03/21/24 10:13:06 (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:

• XIOS2/trunk/src/interface/fortran_attr/idomaingroup_attr.F90 (modified) (7 diffs)

XIOS2/trunk/src/interface/fortran_attr/idomaingroup_attr.F90

@@ -8 +8 @@
   USE idomain
   USE domaingroup_interface_attr
+  USE LOGICAL_BOOL_CONVERSION
 
 CONTAINS
@@ -390 +391 @@
         ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
         mask_1d__tmp = mask_1d_
+        CALL xios_logical_to_bool_1d(mask_1d__tmp, SHAPE(mask_1d__tmp))
         CALL cxios_set_domaingroup_mask_1d &
       (domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
@@ -397 +399 @@
         ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
         mask_2d__tmp = mask_2d_
+        CALL xios_logical_to_bool_2d(mask_2d__tmp, SHAPE(mask_2d__tmp))
         CALL cxios_set_domaingroup_mask_2d &
       (domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
@@ -493 +496 @@
       IF (PRESENT(tile_only_)) THEN
         tile_only__tmp = tile_only_
+        CALL xios_logical_to_bool_0d(tile_only__tmp)
         CALL cxios_set_domaingroup_tile_only &
       (domaingroup_hdl%daddr, tile_only__tmp)
@@ -884 +888 @@
         CALL cxios_get_domaingroup_mask_1d &
       (domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
+        CALL xios_bool_to_logical_1d(mask_1d__tmp, SHAPE(mask_1d__tmp))
         mask_1d_ = mask_1d__tmp
       ENDIF
@@ -891 +896 @@
         CALL cxios_get_domaingroup_mask_2d &
       (domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
+        CALL xios_bool_to_logical_2d(mask_2d__tmp, SHAPE(mask_2d__tmp))
         mask_2d_ = mask_2d__tmp
       ENDIF
@@ -987 +993 @@
         CALL cxios_get_domaingroup_tile_only &
       (domaingroup_hdl%daddr, tile_only__tmp)
+        CALL xios_bool_to_logical_0d(tile_only__tmp)
         tile_only_ = tile_only__tmp
       ENDIF