Changeset 2617 for XIOS3/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.F90

Timestamp:

03/19/24 15:21:33 (4 months ago)

Author:

jderouillat

Message:

Fix the field's attribute name conversion_by_NetCDF removing upper-case letters

File:

• XIOS3/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.F90 (modified) (1 diff)

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

@@ -231 +231 @@
 
 
-    SUBROUTINE cxios_set_fieldgroup_conversion_by_NetCDF(fieldgroup_hdl, conversion_by_NetCDF) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
-      LOGICAL (KIND=C_BOOL)      , VALUE :: conversion_by_NetCDF
-    END SUBROUTINE cxios_set_fieldgroup_conversion_by_NetCDF
-
-    SUBROUTINE cxios_get_fieldgroup_conversion_by_NetCDF(fieldgroup_hdl, conversion_by_NetCDF) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
-      LOGICAL (KIND=C_BOOL)             :: conversion_by_NetCDF
-    END SUBROUTINE cxios_get_fieldgroup_conversion_by_NetCDF
-
-    FUNCTION cxios_is_defined_fieldgroup_conversion_by_NetCDF(fieldgroup_hdl) BIND(C)
-      USE ISO_C_BINDING
-      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_conversion_by_NetCDF
-      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
-    END FUNCTION cxios_is_defined_fieldgroup_conversion_by_NetCDF
+    SUBROUTINE cxios_set_fieldgroup_conversion_by_netcdf(fieldgroup_hdl, conversion_by_netcdf) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
+      LOGICAL (KIND=C_BOOL)      , VALUE :: conversion_by_netcdf
+    END SUBROUTINE cxios_set_fieldgroup_conversion_by_netcdf
+
+    SUBROUTINE cxios_get_fieldgroup_conversion_by_netcdf(fieldgroup_hdl, conversion_by_netcdf) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
+      LOGICAL (KIND=C_BOOL)             :: conversion_by_netcdf
+    END SUBROUTINE cxios_get_fieldgroup_conversion_by_netcdf
+
+    FUNCTION cxios_is_defined_fieldgroup_conversion_by_netcdf(fieldgroup_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_conversion_by_netcdf
+      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
+    END FUNCTION cxios_is_defined_fieldgroup_conversion_by_netcdf