Changeset 2623 for XIOS2/trunk/src/interface/fortran/igrid.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/igrid.F90 (modified) (3 diffs)

XIOS2/trunk/src/interface/fortran/igrid.F90

@@ -7 +7 @@
 !   USE IGRID_ATTR
 !   USE IGRIDGROUP_ATTR
+   USE LOGICAL_BOOL_CONVERSION
    
    TYPE txios(grid)
@@ -43 +44 @@
 
       CALL cxios_grid_valid_id(val, idt, len(idt));
+      CALL xios_bool_to_logical_0d(val)
       xios(is_valid_grid) = val
 
@@ -53 +55 @@
 
       CALL cxios_gridgroup_valid_id(val, idt, len(idt));
+      CALL xios_bool_to_logical_0d(val)
       xios(is_valid_gridgroup) = val