fixes line count

NOAA-GFDL · Aug 14, 2023 · 83cb6e1 · 83cb6e1
1 parent bdb79b8
commit 83cb6e1
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/diag_manager/fms_diag_axis_object.F90 b/diag_manager/fms_diag_axis_object.F90
@@ -376,7 +376,8 @@ subroutine write_axis_metadata(this, fms2io_fileobj, edges_in_file, parent_axis)
       call register_variable_attribute(fms2io_fileobj, axis_name, "axis", diag_axis%cart_name, str_len=1)
 
     if (trim(diag_axis%units) .NE. "none") &
-      call register_variable_attribute(fms2io_fileobj, axis_name, "units", diag_axis%units, str_len=len_trim(diag_axis%units))
+      call register_variable_attribute(fms2io_fileobj, axis_name, "units", &
+           diag_axis%units, str_len=len_trim(diag_axis%units))
 
     select case (diag_axis%direction)
     case (direction_up)
@@ -388,15 +389,15 @@ subroutine write_axis_metadata(this, fms2io_fileobj, edges_in_file, parent_axis)
     !< Ignore the edges attribute, if the edges are already in the file or if it is subaxis
     if (.not. edges_in_file .and. allocated(diag_axis%edges_name) .and. .not. is_subaxis) then
       call register_variable_attribute(fms2io_fileobj, axis_name, "edges", diag_axis%edges_name, &
-        str_len=len_trim(diag_axis%edges_name))
+            str_len=len_trim(diag_axis%edges_name))
     endif
 
     if(allocated(diag_axis%attributes)) then
       do i = 1, diag_axis%num_attributes
         select type (att_value => diag_axis%attributes(i)%att_value)
         type is (character(len=*))
-          call register_variable_attribute(fms2io_fileobj, axis_name, diag_axis%attributes(i)%att_name, trim(att_value(1)), &
-                                           str_len=len_trim(att_value(1)))
+          call register_variable_attribute(fms2io_fileobj, axis_name, diag_axis%attributes(i)%att_name, &
+                trim(att_value(1)), str_len=len_trim(att_value(1)))
         class default
           call register_variable_attribute(fms2io_fileobj, axis_name, diag_axis%attributes(i)%att_name, att_value)
         end select