var/da/da_obs/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    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