File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff 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)
You can’t perform that action at this time.
0 commit comments