Skip to content

Commit 30e32d6

Browse files
committed
fix
1 parent 929a2fc commit 30e32d6

File tree

1 file changed

+7
-12
lines changed

1 file changed

+7
-12
lines changed

src/simulation/m_data_output.fpp

Lines changed: 7 additions & 12 deletions
Original file line numberDiff line numberDiff 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

0 commit comments

Comments
 (0)