File tree Expand file tree Collapse file tree 1 file changed +7
-12
lines changed
Expand file tree Collapse file tree 1 file changed +7
-12
lines changed Original file line number Diff line number Diff line change @@ -1588,34 +1588,27 @@ contains
15881588 R(1 ), &
15891589 Rdot(1 )
15901590 else if (elasticity) then
1591- FMT = ' (6X,F12.6,8 ' // FMT_glb// ' )'
1591+ FMT = ' (6X,F12.6,7 ' // FMT_glb// ' )'
15921592 write (i + 30 , FMT) &
15931593 nondim_time, &
15941594 rho, &
15951595 vel(1 ), &
15961596 vel(2 ), &
1597- vel(3 ), &
15981597 pres, &
15991598 tau_e(1 ), &
16001599 tau_e(2 ), &
16011600 tau_e(3 )
16021601 else
1603- FMT = ' (6X,F12.6,11 ' // FMT_glb// ' )'
1602+ FMT = ' (6X,F12.6,4 ' // FMT_glb// ' )'
16041603 write (i + 30 , FMT) &
16051604 nondim_time, &
16061605 rho, &
16071606 vel(1 ), &
16081607 vel(2 ), &
1609- vel(3 ), &
1610- pres, & ! Out of tolerance
1611- gamma, &
1612- pi_inf, &
1613- qv, &
1614- c, &
1615- accel
1608+ pres
16161609 end if
16171610 else
1618- FMT = ' (6X,F12.6,11 ' // FMT_glb// ' )'
1611+ FMT = ' (6X,F12.6,10 ' // FMT_glb// ' )'
16191612 write (i + 30 , FMT) &
16201613 nondim_time, &
16211614 rho, &
@@ -1625,7 +1618,9 @@ contains
16251618 pres, &
16261619 gamma, &
16271620 pi_inf, &
1628- qv
1621+ qv, &
1622+ c, &
1623+ accel
16291624 end if
16301625 end if
16311626 end do
You can’t perform that action at this time.
0 commit comments