fixes some compiler warnings

tests/test_dummy_coupling6_dble.f90

@@ -226,7 +226,6 @@ CONTAINS
     INTEGER, DIMENSION(2), PARAMETER :: nbr_vertices = (/2,3/)
     INTEGER, DIMENSION(2), PARAMETER :: cyclic = (/0,0/)
     INTEGER, DIMENSION(2), PARAMETER :: nbr_cells = (/1,2/)
-    INTEGER, DIMENSION(2), PARAMETER :: nbr_vertices_per_cell = (/3,3/)
     REAL(wp), DIMENSION(2), PARAMETER :: &
       x_vertices = (/-0.5 * YAC_RAD, 0.5 * YAC_RAD/)
     REAL(wp), DIMENSION(3), PARAMETER :: &

tests/test_dummy_coupling6_real.f90

@@ -226,7 +226,6 @@ CONTAINS
     INTEGER, DIMENSION(2), PARAMETER :: nbr_vertices = (/2,3/)
     INTEGER, DIMENSION(2), PARAMETER :: cyclic = (/0,0/)
     INTEGER, DIMENSION(2), PARAMETER :: nbr_cells = (/1,2/)
-    INTEGER, DIMENSION(2), PARAMETER :: nbr_vertices_per_cell = (/3,3/)
     REAL(wp), DIMENSION(2), PARAMETER :: &
       x_vertices = (/-0.5 * YAC_RAD, 0.5 * YAC_RAD/)
     REAL(wp), DIMENSION(3), PARAMETER :: &

tests/test_restart_dble.f90

@@ -69,17 +69,18 @@
 !
 
 MODULE field_data
-  DOUBLE PRECISION, ALLOCATABLE :: field_out_data(:,:)
-  DOUBLE PRECISION, ALLOCATABLE :: field_in_data(:,:)
-  INTEGER :: field_data_size
-  INTEGER :: point_id
+  IMPLICIT NONE
+  DOUBLE PRECISION, ALLOCATABLE, PUBLIC :: field_out_data(:,:)
+  DOUBLE PRECISION, ALLOCATABLE, PUBLIC :: field_in_data(:,:)
+  INTEGER, PUBLIC :: field_data_size
+  INTEGER, PUBLIC :: point_id = HUGE(0)
 END MODULE
 
 PROGRAM main
 
   USE utest
   USE mo_yac_finterface
-  USE field_data
+  USE field_data, ONLY: field_out_data, field_in_data, field_data_size, point_id
 
   IMPLICIT NONE
 
@@ -88,8 +89,6 @@ PROGRAM main
 
   CALL start_test('dummy_restart_dble')
 
-  point_id = HUGE(point_id)
-
   ! run the models multiple time to check whether yac can be restarted
 
   ! coupling only in one direction
@@ -210,7 +209,7 @@ END PROGRAM
 SUBROUTINE generate_icon_grid(comm_rank, comm_size)
 
   USE mo_yac_finterface
-  USE field_data
+  USE field_data, ONLY: field_out_data, field_in_data, field_data_size, point_id
   USE, INTRINSIC :: iso_c_binding, ONLY : c_loc
 
   IMPLICIT NONE
@@ -431,7 +430,7 @@ END SUBROUTINE generate_icon_grid
 SUBROUTINE generate_cube_grid(comm_rank, comm_size)
 
   USE mo_yac_finterface
-  USE field_data
+  USE field_data, ONLY: field_out_data, field_in_data, field_data_size, point_id
   USE, INTRINSIC :: iso_c_binding, ONLY : c_loc
 
   IMPLICIT NONE