gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

STATISTICS: Fix mesh statistic header when MPI=off.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2021-12-10 10:45:33 -03:00
parent bb72ee3a5b
commit 71a0e03114
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
sources/statistics.F90
View File

@ -171,6 +171,8 @@ module statistics
#ifdef MPI #ifdef MPI
write(stmp,"(a,i0,a)") "(", max(1, 10 * toplev - 28), "x,'|',1x,a)" write(stmp,"(a,i0,a)") "(", max(1, 10 * toplev - 28), "x,'|',1x,a)"
write(munit,stmp) "block distribution per process" write(munit,stmp) "block distribution per process"
#else /* MPI */
write(munit,"('')")
#endif /* MPI */ #endif /* MPI */
write(munit,"('#',75x,'|')", advance="no") write(munit,"('#',75x,'|')", advance="no")
do l = 1, toplev do l = 1, toplev