Changeset 2620 for XIOS3/trunk/src/interface/fortran_attr/igridgroup_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/igridgroup_attr.F90 (modified) (17 diffs)

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

@@ -8 +8 @@
   USE igrid
   USE gridgroup_interface_attr
+  USE LOGICAL_BOOL_CONVERSION
 
 CONTAINS
@@ -125 +126 @@
         ALLOCATE(mask_0d__tmp(SIZE(mask_0d_,1)))
         mask_0d__tmp = mask_0d_
+        CALL xios_logical_to_bool_1d(mask_0d__tmp, SHAPE(mask_0d__tmp))
         CALL cxios_set_gridgroup_mask_0d &
       (gridgroup_hdl%daddr, mask_0d__tmp, SHAPE(mask_0d_))
@@ -132 +134 @@
         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_gridgroup_mask_1d &
       (gridgroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
@@ -139 +142 @@
         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_gridgroup_mask_2d &
       (gridgroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
@@ -146 +150 @@
         ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3)))
         mask_3d__tmp = mask_3d_
+        CALL xios_logical_to_bool_3d(mask_3d__tmp, SHAPE(mask_3d__tmp))
         CALL cxios_set_gridgroup_mask_3d &
       (gridgroup_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_))
@@ -154 +159 @@
        SIZE(mask_4d_,4)))
         mask_4d__tmp = mask_4d_
+        CALL xios_logical_to_bool_4d(mask_4d__tmp, SHAPE(mask_4d__tmp))
         CALL cxios_set_gridgroup_mask_4d &
       (gridgroup_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_))
@@ -162 +168 @@
        SIZE(mask_5d_,4), SIZE(mask_5d_,5)))
         mask_5d__tmp = mask_5d_
+        CALL xios_logical_to_bool_5d(mask_5d__tmp, SHAPE(mask_5d__tmp))
         CALL cxios_set_gridgroup_mask_5d &
       (gridgroup_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_))
@@ -170 +177 @@
        SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6)))
         mask_6d__tmp = mask_6d_
+        CALL xios_logical_to_bool_6d(mask_6d__tmp, SHAPE(mask_6d__tmp))
         CALL cxios_set_gridgroup_mask_6d &
       (gridgroup_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_))
@@ -179 +187 @@
        SIZE(mask_7d_,7)))
         mask_7d__tmp = mask_7d_
+        CALL xios_logical_to_bool_7d(mask_7d__tmp, SHAPE(mask_7d__tmp))
         CALL cxios_set_gridgroup_mask_7d &
       (gridgroup_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_))
@@ -305 +314 @@
         CALL cxios_get_gridgroup_mask_0d &
       (gridgroup_hdl%daddr, mask_0d__tmp, SHAPE(mask_0d_))
+        CALL xios_bool_to_logical_1d(mask_0d__tmp, SHAPE(mask_0d__tmp))
         mask_0d_ = mask_0d__tmp
       ENDIF
@@ -312 +322 @@
         CALL cxios_get_gridgroup_mask_1d &
       (gridgroup_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
@@ -319 +330 @@
         CALL cxios_get_gridgroup_mask_2d &
       (gridgroup_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
@@ -326 +338 @@
         CALL cxios_get_gridgroup_mask_3d &
       (gridgroup_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_))
+        CALL xios_bool_to_logical_3d(mask_3d__tmp, SHAPE(mask_3d__tmp))
         mask_3d_ = mask_3d__tmp
       ENDIF
@@ -334 +347 @@
         CALL cxios_get_gridgroup_mask_4d &
       (gridgroup_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_))
+        CALL xios_bool_to_logical_4d(mask_4d__tmp, SHAPE(mask_4d__tmp))
         mask_4d_ = mask_4d__tmp
       ENDIF
@@ -342 +356 @@
         CALL cxios_get_gridgroup_mask_5d &
       (gridgroup_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_))
+        CALL xios_bool_to_logical_5d(mask_5d__tmp, SHAPE(mask_5d__tmp))
         mask_5d_ = mask_5d__tmp
       ENDIF
@@ -350 +365 @@
         CALL cxios_get_gridgroup_mask_6d &
       (gridgroup_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_))
+        CALL xios_bool_to_logical_6d(mask_6d__tmp, SHAPE(mask_6d__tmp))
         mask_6d_ = mask_6d__tmp
       ENDIF
@@ -359 +375 @@
         CALL cxios_get_gridgroup_mask_7d &
       (gridgroup_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_))
+        CALL xios_bool_to_logical_7d(mask_7d__tmp, SHAPE(mask_7d__tmp))
         mask_7d_ = mask_7d__tmp
       ENDIF