Changeset 2620 for XIOS3/trunk/src/interface/fortran/izoom_domain.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/izoom_domain.F90 (modified) (2 diffs)

XIOS3/trunk/src/interface/fortran/izoom_domain.F90

@@ -4 +4 @@
    USE, INTRINSIC :: ISO_C_BINDING
    USE ZOOM_DOMAIN_INTERFACE
+   USE LOGICAL_BOOL_CONVERSION
 
    TYPE txios(zoom_domain)
@@ -24 +25 @@
 
       CALL cxios_zoom_domain_valid_id(val, idt, len(idt))
+      CALL xios_bool_to_logical_0d(val)
       xios(is_valid_zoom_domain) = val