Polish

Common/read_field_indices.f90

@@ -19,8 +19,7 @@ contains
 
     if (rank == 0) then
        call dbf_get_field_index_03(hshp%extremum, "ssh", hshp%extr_ssh)
-       call dbf_get_field_index_03(hshp%extremum, "days_1950", &
-            hshp%extr_date)
+       call dbf_get_field_index_03(hshp%extremum, "days_1950", hshp%extr_date)
        call dbf_get_field_index_03(hshp%extremum, "eddy_index", &
             hshp%extr_eddy_index)
        call dbf_get_field_index_03(hshp%extremum, "interpolat", &
@@ -31,8 +30,7 @@ contains
        call dbf_get_field_index_03(hshp%outermost, "r_eq_area", &
             hshp%out_r_eq_area)
        call dbf_get_field_index_03(hshp%outermost, "ssh", hshp%out_ssh)
-       call dbf_get_field_index_03(hshp%outermost, "radius4", &
-            hshp%out_radius4)
+       call dbf_get_field_index_03(hshp%outermost, "radius4", hshp%out_radius4)
 
        call dbf_get_field_index_03(hshp%max_speed, "r_eq_area", &
             hshp%max_speed_r_eq_area)

Overlap/Tests/test_overlap.f90

@@ -78,8 +78,7 @@ program test_overlap
   corner = corner_deg * deg_to_rad
   step = step_deg * deg_to_rad
   allocate(flow(max_delta + 1))
-  call read_column(ishape_last, &
-       file = trim(shpc_dir) // "/ishape_last.txt")
+  call read_column(ishape_last, file = trim(shpc_dir) // "/ishape_last.txt")
   call shpc_open(hshp, trim(shpc_dir), rank = 0)
   call dbf_read_attribute_03(k1, hshp%extremum, hshp%extr_date, ishape = 0)
   call read_snapshot(flow(1), k_test_1, hshp, corner, step, nlon, nlat, copy, &