da_mini_info_print.inc

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    write(unit=print_unit, fmt='(a,i3,8e12.4)') &
14         '  oi  ', k, &
15         oi_each%u%inv, oi_each%v%inv, &
16         oi_each%t%inv, oi_each%p%inv, oi_each%q%inv
17 
18    write(unit=print_unit, fmt='(a,i3,8e12.4)') &
19         '  re  ', k, &
20         re_each%u, re_each%v, re_each%t, re_each%p, re_each%q
21 
22    write(unit=print_unit, fmt='(a,i3,8e12.4)') &
23         ' grad ', k, &
24         gr_each%u, gr_each%v, gr_each%t, gr_each%p, gr_each%q
25 
26 end subroutine da_mini_info_print
27 
28