Skip to content

Commit 08a7da9

Browse files
rem1776rem1776
authored andcommitted
fix typo and white space
1 parent c0ab0dc commit 08a7da9

1 file changed

Lines changed: 3 additions & 2 deletions

File tree

offloading/metadata_transfer.F90

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -122,7 +122,7 @@ subroutine fms_metadata_transfer_init(this, dtype)
122122
displacements(1) = displacements(0) + sizeof(0) ! attribute_length start address
123123
displacements(2) = displacements(1) + sizeof(0) ! attribute_name start adress
124124
displacements(3) = displacements(2) + sizeof(' ')*ATTR_NAME_MAX_LENGTH ! get_attribute_name() start address
125-
displacements(4) = displacements(3) + sizeof(' ')*ATTR_NAME_MAX_LENGTH ! attribute_value start address
125+
displacements(4) = displacements(3) + sizeof(' ')*ATTR_NAME_MAX_LENGTH ! attribute_value start address
126126

127127
select case(dtype)
128128
case(real8_type)
@@ -304,7 +304,8 @@ subroutine set_attribute_str_value(this, val)
304304
!> Getter for attribute_name (for all metadata types)
305305
function get_attribute_name(this) result(val)
306306
class(metadata_class), intent(inout) :: this
307-
character(len=ATTR_NAME_MAX_LENGTH) :: val val = trim(this%attribute_name)
307+
character(len=ATTR_NAME_MAX_LENGTH) :: val
308+
val = trim(this%attribute_name)
308309
end function
309310

310311
!> Setter for attribute_name (for all metadata types)

0 commit comments

Comments
 (0)