Skip to content

Commit 6b4ce43

Browse files
committed
clean up import statements that aren't part of abstract interfaces
1 parent 71c689d commit 6b4ce43

File tree

3 files changed

+0
-7
lines changed

3 files changed

+0
-7
lines changed

src/common/m_phase_change.fpp

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -57,7 +57,6 @@ contains
5757
!! some parameter. It replaces the procedure pointer, which CCE
5858
!! is breaking on.
5959
subroutine s_relaxation_solver(q_cons_vf)
60-
import :: scalar_field, sys_size
6160
type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf
6261
! This is empty because in current master the procedure pointer
6362
! was never assigned

src/simulation/m_data_output.fpp

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -48,7 +48,6 @@ module m_data_output
4848
s_close_probe_files, &
4949
s_finalize_data_output_module
5050

51-
5251
real(kind(0d0)), allocatable, dimension(:, :, :) :: icfl_sf !< ICFL stability criterion
5352
real(kind(0d0)), allocatable, dimension(:, :, :) :: vcfl_sf !< VCFL stability criterion
5453
real(kind(0d0)), allocatable, dimension(:, :, :) :: ccfl_sf !< CCFL stability criterion
@@ -77,8 +76,6 @@ contains
7776
!! @param t_step Current time step
7877
subroutine s_write_data_files(q_cons_vf, q_prim_vf, t_step)
7978

80-
import :: scalar_field, sys_size, pres_field
81-
8279
type(scalar_field), &
8380
dimension(sys_size), &
8481
intent(in) :: q_cons_vf
@@ -1626,7 +1623,6 @@ contains
16261623
@:DEALLOCATE_GLOBAL(vcfl_sf, Rc_sf)
16271624
end if
16281625

1629-
16301626
end subroutine s_finalize_data_output_module
16311627

16321628
end module m_data_output

src/simulation/m_riemann_solvers.fpp

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -154,8 +154,6 @@ contains
154154
flux_gsrc_vf, &
155155
norm_dir, ix, iy, iz)
156156

157-
import :: scalar_field, int_bounds_info, sys_size, startx, starty, startz
158-
159157
real(kind(0d0)), dimension(startx:, starty:, startz:, 1:), intent(INOUT) :: qL_prim_rsx_vf, qL_prim_rsy_vf, qL_prim_rsz_vf, qR_prim_rsx_vf, qR_prim_rsy_vf, qR_prim_rsz_vf
160158
type(scalar_field), dimension(sys_size), intent(IN) :: q_prim_vf
161159

0 commit comments

Comments
 (0)