@@ -427,13 +427,13 @@ contains
427427
428428 integer :: i
429429 integer :: lower_bound, upper_bound
430-
430+
431431 #:for X, M in [(' x' , ' m' ), (' y' , ' n' ), (' z' , ' p' )]
432432
433433 if (${M}$ == 0) return ! Early return for y or z if simulation is 1D or 2D
434434
435435 lower_bound = -offset_${X}$%beg
436- upper_bound = ${M}$ + offset_${X}$%end
436+ upper_bound = ${M}$+ offset_${X}$%end
437437
438438 do i = lower_bound, upper_bound
439439 if (${X}$_cc(i) > ${X}$_output%beg) then
@@ -549,10 +549,10 @@ contains
549549 ! data as well as the total number of flow variable(s) that will
550550 ! eventually be stored in it
551551 if (output_partial_domain) then
552- write (dbfile) x_output_idx%end - x_output_idx%beg, &
553- y_output_idx%end - y_output_idx%beg, &
554- z_output_idx%end - z_output_idx%beg, &
555- dbvars
552+ write (dbfile) x_output_idx%end - x_output_idx%beg, &
553+ y_output_idx%end - y_output_idx%beg, &
554+ z_output_idx%end - z_output_idx%beg, &
555+ dbvars
556556 else
557557 write (dbfile) m, n, p, dbvars
558558 end if
@@ -575,7 +575,7 @@ contains
575575 end if
576576
577577 if (output_partial_domain) then
578- write (dbroot) x_output_idx%end- x_output_idx%beg, 0, 0, dbvars
578+ write (dbroot) x_output_idx%end - x_output_idx%beg, 0, 0, dbvars
579579 else
580580 write (dbroot) m_root, 0, 0, dbvars
581581 end if
@@ -769,9 +769,9 @@ contains
769769 real(z_cb, sp)
770770 else
771771 if (output_partial_domain) then
772- write (dbfile) x_cb( x_output_idx%beg-1 : x_output_idx%end ), &
773- y_cb( y_output_idx%beg-1 : y_output_idx%end ), &
774- z_cb( z_output_idx%beg-1 : z_output_idx%end )
772+ write (dbfile) x_cb(x_output_idx%beg - 1: x_output_idx%end), &
773+ y_cb(y_output_idx%beg - 1: y_output_idx%end), &
774+ z_cb(z_output_idx%beg - 1: z_output_idx%end)
775775 else
776776 write (dbfile) x_cb, y_cb, z_cb
777777 end if
@@ -783,8 +783,8 @@ contains
783783 real(y_cb, sp)
784784 else
785785 if (output_partial_domain) then
786- write (dbfile) x_cb( x_output_idx%beg-1 : x_output_idx%end ), &
787- y_cb( y_output_idx%beg-1 : y_output_idx%end )
786+ write (dbfile) x_cb(x_output_idx%beg - 1: x_output_idx%end), &
787+ y_cb(y_output_idx%beg - 1: y_output_idx%end)
788788 else
789789 write (dbfile) x_cb, y_cb
790790 end if
@@ -799,7 +799,7 @@ contains
799799 write (dbfile) real(x_cb, sp)
800800 else
801801 if (output_partial_domain) then
802- write (dbfile) x_cb( x_output_idx%beg-1 : x_output_idx%end )
802+ write (dbfile) x_cb(x_output_idx%beg - 1: x_output_idx%end)
803803 else
804804 write (dbfile) x_cb
805805 end if
@@ -816,7 +816,7 @@ contains
816816 write (dbroot) real(x_root_cb, wp)
817817 else
818818 if (output_partial_domain) then
819- write (dbroot) x_root_cb( x_output_idx%beg-1 : x_output_idx%end )
819+ write (dbroot) x_root_cb(x_output_idx%beg - 1: x_output_idx%end)
820820 else
821821 write (dbroot) x_root_cb
822822 end if
0 commit comments