Only call MPI if `HAVE_MPI`

Motivation: we want to call `open_shpc` and `read_field_indices` from
program `inst_eddies` without making it an MPI program for one process only.

Common/read_field_indices.F90

@@ -7,13 +7,15 @@ contains
   subroutine read_field_indices(hshp, rank)
 
     ! Libraries:
+#ifdef HAVE_MPI
     use ezmpi, only: ezmpi_bcast
+#endif
     use shapelib_03, only: dbf_get_field_index_03
 
     use derived_types, only: shpc
 
     TYPE(shpc), intent(inout):: hshp
-    integer, intent(in):: rank
+    integer, intent(in):: rank ! should be 0 if not in MPI program
 
     !---------------------------------------------------------------------
 
@@ -35,6 +37,7 @@ contains
        call dbf_get_field_index_03(hshp%max_speed, "ssh", hshp%max_speed_ssh)
     end if
 
+#ifdef HAVE_MPI
     call ezmpi_bcast(hshp%extr_ssh, root = 0)
     call ezmpi_bcast(hshp%extr_date, root = 0)
     call ezmpi_bcast(hshp%extr_eddy_index, root = 0)
@@ -45,6 +48,7 @@ contains
     call ezmpi_bcast(hshp%out_radius4, root = 0)
     call ezmpi_bcast(hshp%max_speed_r_eq_area, root = 0)
     call ezmpi_bcast(hshp%max_speed_ssh, root = 0)
+#endif
 
   end subroutine read_field_indices
 

Common/shpc_open.F90

@@ -7,7 +7,9 @@ contains
   subroutine shpc_open(hshp, shpc_dir, rank)
 
     ! Libraries:
+#ifdef HAVE_MPI
     use ezmpi, only: ezmpi_bcast
+#endif
     USE jumble, only: new_unit
     use shapelib_03, only: shp_open_03
 
@@ -16,7 +18,7 @@ contains
 
     TYPE(shpc), intent(out):: hshp
     character(len = *), intent(in):: shpc_dir
-    integer, intent(in):: rank
+    integer, intent(in):: rank ! should be 0 if not in MPI program
 
     ! Local:
     integer unit
@@ -41,7 +43,9 @@ contains
        hshp%cyclone = trim(adjustl(orientation)) == "cyclones"
     end if
 
+#ifdef HAVE_MPI
     call ezmpi_bcast(hshp%cyclone, root = 0)
+#endif
 
   end subroutine shpc_open