fixes #3201

CHANGELOG.md

@@ -13,6 +13,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ### Fixed
 
+- Fixed bug where c null character is not removed from end of string when reading netcdf attribute in NetCDF4\_FileFormatter.F90
+
 ### Removed
 
 ### Deprecated

pfio/NetCDF4_FileFormatter.F90

@@ -20,6 +20,7 @@ module pFIO_NetCDF4_FileFormatterMod
    use pfio_NetCDF_Supplement
    use netcdf
    use mpi
+   use, intrinsic :: iso_c_binding, only: C_NULL_CHAR
    implicit none
    private
 
@@ -992,6 +993,7 @@ subroutine inq_attributes(this, cf, varid, unusable, rc)
             status = nf90_get_att(this%ncid, varid, trim(attr_name), str)
             !$omp end critical
             _VERIFY(status)
+            if (str(len:len) == C_NULL_CHAR) str = str(1:len-1)
             call cf%add_attribute(trim(attr_name), str)
             deallocate(str)
          case (NF90_STRING)
@@ -1088,6 +1090,7 @@ subroutine inq_var_attributes(this, var, varid, unusable, rc)
             status = nf90_get_att(this%ncid, varid, trim(attr_name), str)
             !$omp end critical
             _VERIFY(status)
+            if (str(len:len) == C_NULL_CHAR) str = str(1:len-1)
             call var%add_attribute(trim(attr_name), str)
             deallocate(str)
          case (NF90_STRING)