Skip to content

Commit ec4af46

Browse files
committed
Fix Error
1 parent f770f7f commit ec4af46

File tree

1 file changed

+0
-4
lines changed

1 file changed

+0
-4
lines changed

src/simulation/m_rhs.fpp

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -583,10 +583,6 @@ contains
583583
end if
584584
! END: Allocation/Association of qK_cons_n and qK_prim_n
585585

586-
! Allocation of gm_alphaK_n
587-
@:ALLOCATE(gm_alphaL_n(1:num_dims))
588-
@:ALLOCATE(gm_alphaR_n(1:num_dims))
589-
590586
if (alt_soundspeed) then
591587
@:ALLOCATE(blkmod1(0:m, 0:n, 0:p), blkmod2(0:m, 0:n, 0:p), alpha1(0:m, 0:n, 0:p), alpha2(0:m, 0:n, 0:p), Kterm(0:m, 0:n, 0:p))
592588
end if

0 commit comments

Comments
 (0)