hotface_row Subroutine

private subroutine hotface_row(label, stage, step, comp, i, j, k, val, h_left, h_right, rem, h_dn, h_up)

One HOTFACE row (see chksum_hotface docstring for columns).

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: label
integer, intent(in) :: stage
integer, intent(in) :: step
character(len=*), intent(in) :: comp
integer, intent(in) :: i
integer, intent(in) :: j
integer, intent(in) :: k
real(kind=wp), intent(in) :: val
real(kind=wp), intent(in) :: h_left
real(kind=wp), intent(in) :: h_right
real(kind=wp), intent(in) :: rem
real(kind=wp), intent(in) :: h_dn
real(kind=wp), intent(in) :: h_up

Called by

proc~~hotface_row~~CalledByGraph proc~hotface_row hotface_row proc~chksum_hotface chksum_hotface proc~chksum_hotface->proc~hotface_row proc~run_stage_split run_stage_split proc~run_stage_split->proc~chksum_hotface 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 hotface_row(label, stage, step, comp, i, j, k, val, &
                          h_left, h_right, rem, h_dn, h_up)
      !! One HOTFACE row (see chksum_hotface docstring for columns).
      character(len=*), intent(in) :: label, comp
      integer, intent(in) :: stage, step, i, j, k
      real(wp), intent(in) :: val, h_left, h_right, rem, h_dn, h_up

      write (*, "(a,1x,i6,1x,a,i1,1x,a16,1x,a1,' (',i4,',',i4,',',i3,')',6(1x,es13.5))") &
         "HOTFACE", step, "s", stage, adjustl(label), comp, i, j, k, &
         val, h_left, h_right, rem, h_dn, h_up
   end subroutine hotface_row