da_mini_info_print.inc
References to this file elsewhere.
1 subroutine da_mini_info_print(print_unit, oi_each, re_each, gr_each, k)
2
3 !-----------------------------------------------------------------------
4 ! Purpose: TBD
5 !-----------------------------------------------------------------------
6
7 implicit none
8
9 type (each_level_type), intent(in) :: oi_each
10 type (residual_type), intent(in) :: re_each, gr_each
11 integer, intent(in) :: print_unit, k
12
13 if (trace_use) call da_trace_entry("da_mini_info_print")
14
15 write(unit=print_unit, fmt='(a,i3,8e12.4)') &
16 ' oi ', k, &
17 oi_each%u%inv, oi_each%v%inv, &
18 oi_each%t%inv, oi_each%p%inv, oi_each%q%inv
19
20 write(unit=print_unit, fmt='(a,i3,8e12.4)') &
21 ' re ', k, &
22 re_each%u, re_each%v, re_each%t, re_each%p, re_each%q
23
24 write(unit=print_unit, fmt='(a,i3,8e12.4)') &
25 ' grad ', k, &
26 gr_each%u, gr_each%v, gr_each%t, gr_each%p, gr_each%q
27
28 if (trace_use) call da_trace_exit("da_mini_info_print")
29
30 end subroutine da_mini_info_print
31
32