Skip to content

Commit 08d1259

Browse files
sbryngelsonclaude
andcommitted
Fix integer(wp) non-standard kind for loop variables in bubble module
wp is a real kind parameter. integer(wp) is non-standard and may produce wrong-sized integers on strict compilers. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
1 parent 3781b98 commit 08d1259

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

src/simulation/m_bubbles_EE.fpp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -74,7 +74,7 @@ contains
7474
subroutine s_comp_alpha_from_n(q_cons_vf)
7575
type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf
7676
real(wp) :: nR3bar
77-
integer(wp) :: i, j, k, l
77+
integer :: i, j, k, l
7878

7979
$:GPU_PARALLEL_LOOP(private='[i,j,k,l,nR3bar]', collapse=3)
8080
do l = 0, p

0 commit comments

Comments
 (0)