Polish

Inst_eddies/CMakeLists.txt

@@ -17,6 +17,7 @@ file(COPY inst_eddies_Aviso.py DESTINATION . FILE_PERMISSIONS
   WORLD_EXECUTE)
 
 # Tests:
+
 add_subdirectory(Tests)
 target_sources(test_get_1_outerm PRIVATE get_1_outerm.f90 good_contour.f90
   config.f90 input_ssh.f90 get_var.f90 shpc_create.f90 write_eddy.f90

Overlap/Tests/test_send_recv.f90

@@ -54,13 +54,8 @@ program test_send_recv
        pszaccess = "rb")
   call dbf_read_attribute_03(ssm%d0, hshp%extremum, hshp%extr_date, ishape = 0)
   call read_opcol(ssm%ishape_last, hshp%unit, my_lbound = ssm%d0)
-
-  if (rank == 0) then
-     n_dates = size(ssm%ishape_last)
-  end if
-
+  if (rank == 0) n_dates = size(ssm%ishape_last)
   call ezmpi_bcast(n_dates, root = 0)
-
   if (rank == 1) call read_snapshot(s, [hshp], [ssm], k = ssm%d0, copy = copy)
   CALL shpc_close(hshp)