emit_row Subroutine

private subroutine emit_row(t_value, t_unit, stage_tag, region_tag, ke, eta_min, eta_max, usurf, ubed, vsurf, vbed, p_pgf, p_cor, p_hv, p_bd, p_ss)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: t_value
character(len=*), intent(in) :: t_unit
character(len=*), intent(in) :: stage_tag
character(len=*), intent(in) :: region_tag
real(kind=wp), intent(in) :: ke
real(kind=wp), intent(in) :: eta_min
real(kind=wp), intent(in) :: eta_max
real(kind=wp), intent(in) :: usurf
real(kind=wp), intent(in) :: ubed
real(kind=wp), intent(in) :: vsurf
real(kind=wp), intent(in) :: vbed
real(kind=wp), intent(in) :: p_pgf
real(kind=wp), intent(in) :: p_cor
real(kind=wp), intent(in) :: p_hv
real(kind=wp), intent(in) :: p_bd
real(kind=wp), intent(in) :: p_ss

Called by

proc~~emit_row~~CalledByGraph proc~emit_row emit_row proc~print_bt_budget print_bt_budget proc~print_bt_budget->proc~emit_row proc~run_stage_split run_stage_split proc~run_stage_split->proc~print_bt_budget proc~ocean_dyn_step_split ocean_dyn_step_split proc~ocean_dyn_step_split->proc~run_stage_split proc~engine_step engine_step proc~engine_step->proc~ocean_dyn_step_split proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_step proc~rdb_ocean_step rdb_ocean_step proc~rdb_ocean_step->proc~engine_step

Source Code

   subroutine emit_row(t_value, t_unit, stage_tag, region_tag, ke, &
                       eta_min, eta_max, usurf, ubed, vsurf, vbed, &
                       p_pgf, p_cor, p_hv, p_bd, p_ss)
      real(wp), intent(in) :: t_value, ke, eta_min, eta_max
      real(wp), intent(in) :: usurf, ubed, vsurf, vbed
      real(wp), intent(in) :: p_pgf, p_cor, p_hv, p_bd, p_ss
      character(len=*), intent(in) :: t_unit, stage_tag, region_tag
      write (*, "(a, f9.4, 1x, a, 1x, a, 1x, a, 13(1x, es12.4))") &
         "BT_BUDGET ", t_value, trim(t_unit), trim(stage_tag), trim(region_tag), &
         ke, eta_min, eta_max, usurf, ubed, vsurf, vbed, &
         p_pgf, p_cor, p_hv, p_bd, p_ss
   end subroutine emit_row