@@ -113,9 +113,9 @@ contains
113113 num_ts = 2
114114 end if
115115
116- if (probe_wrt) then
117- num_probe_ts = 2
118- end if
116+ if (probe_wrt) then
117+ num_probe_ts = 2
118+ end if
119119
120120 ! Allocating the cell- average conservative variables
121121 @:ALLOCATE(q_cons_ts(1 :num_ts))
@@ -239,7 +239,7 @@ contains
239239 idwbuff(2 )%beg:idwbuff(2 )%end, &
240240 idwbuff(3 )%beg:idwbuff(3 )%end))
241241 end do
242- @:ACC_SETUP_VFs(q_prim_ts1(i))
242+ @:ACC_SETUP_VFs(q_prim_ts1(i))
243243 end do
244244
245245 @:ALLOCATE(q_prim_ts2(1 :num_probe_ts))
@@ -254,7 +254,7 @@ contains
254254 idwbuff(2 )%beg:idwbuff(2 )%end, &
255255 idwbuff(3 )%beg:idwbuff(3 )%end))
256256 end do
257- @:ACC_SETUP_VFs(q_prim_ts2(i))
257+ @:ACC_SETUP_VFs(q_prim_ts2(i))
258258 end do
259259 end if
260260
@@ -552,7 +552,7 @@ contains
552552 q_cons_ts(stor)%vf(i)%sf(j, k, l) = &
553553 q_cons_ts(1 )%vf(i)%sf(j, k, l)
554554 end if
555- if (igr) then
555+ if (igr) then
556556 q_cons_ts(1 )%vf(i)%sf(j, k, l) = &
557557 (rk_coef(s, 1 )* q_cons_ts(1 )%vf(i)%sf(j, k, l) &
558558 + rk_coef(s, 2 )* q_cons_ts(stor)%vf(i)%sf(j, k, l) &
0 commit comments