Move `shpc_close` after `write_aux`

Preparing for using hshpc as argument of `write_aux`.

Inst_eddies/inst_eddies.f90

@@ -204,13 +204,13 @@ program inst_eddies
      end if
   end do
 
-  CALL shpc_close(hshpc_cyclo)
-  CALL shpc_close(hshpc_anti)
-  print *, 'inst_eddies: Created shapefile collections in SHPC_cyclo and ', &
-       'SHPC_anti.'
   call write_aux(corner_deg, step_deg, nlon, nlat, n_cyclo, &
        shpc_dir = "SHPC_cyclo")
   call write_aux(corner_deg, step_deg, nlon, nlat, n_anti, &
        shpc_dir = "SHPC_anti")
+  CALL shpc_close(hshpc_cyclo)
+  CALL shpc_close(hshpc_anti)
+  print *, 'inst_eddies: Created shapefile collections in SHPC_cyclo and ', &
+       'SHPC_anti.'
 
 end program inst_eddies