Skip to content

Commit 7fbabf8

Browse files
authored
Merge pull request #98 from mandli/fix-3d-aux
Change how `aux` arrays are passed through to `rpn3`
2 parents b89c96d + eb9b423 commit 7fbabf8

1 file changed

Lines changed: 1 addition & 3 deletions

File tree

src/3d/flux3.f90

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -203,7 +203,7 @@ subroutine flux3(ixyz,maxm,num_eqn,num_waves,num_ghost,mx, &
203203
! # aux2(1-num_ghost,1,2) is the start of a 1d array now used by rpn3
204204

205205
call rpn3(ixyz,maxm,num_eqn,num_waves,num_aux,num_ghost,mx,q1d,q1d, &
206-
aux2(1,1-num_ghost,2),aux2(1,1-num_ghost,2), &
206+
aux2(:,1-num_ghost,2),aux2(:,1-num_ghost,2), &
207207
wave,s,amdq,apdq)
208208

209209

@@ -610,5 +610,3 @@ subroutine flux3(ixyz,maxm,num_eqn,num_waves,num_ghost,mx, &
610610

611611
return
612612
end subroutine flux3
613-
614-

0 commit comments

Comments
 (0)