write_on_scratch_dataarray6_rank3_R8P Function

private function write_on_scratch_dataarray6_rank3_R8P(self, u, v, w, x, y, z) result(n_byte)

Arguments

TypeIntentOptionalAttributesName
class(xml_writer_appended), intent(inout) :: self
real(kind=R8P), intent(in) :: u(1:,1:,1:)
real(kind=R8P), intent(in) :: v(1:,1:,1:)
real(kind=R8P), intent(in) :: w(1:,1:,1:)
real(kind=R8P), intent(in) :: x(1:,1:,1:)
real(kind=R8P), intent(in) :: y(1:,1:,1:)
real(kind=R8P), intent(in) :: z(1:,1:,1:)

Return Value integer(kind=I4P)


Contents


Source Code

  function write_on_scratch_dataarray6_rank3_R8P(self, u, v, w, x, y, z) result(n_byte)
  !< Write a dataarray with 6 components of rank 3 (R8P).
  class(xml_writer_appended), intent(inout) :: self        !< Writer.
  real(R8P),                  intent(in)    :: u(1:,1:,1:) !< U component.
  real(R8P),                  intent(in)    :: v(1:,1:,1:) !< V component.
  real(R8P),                  intent(in)    :: w(1:,1:,1:) !< W component.
  real(R8P),                  intent(in)    :: x(1:,1:,1:) !< X component.
  real(R8P),                  intent(in)    :: y(1:,1:,1:) !< Y component.
  real(R8P),                  intent(in)    :: z(1:,1:,1:) !< Z component.
  integer(I4P)                              :: n_byte      !< Number of bytes
  integer(I4P)                              :: n1          !< Counter.
  integer(I4P)                              :: n2          !< Counter.
  integer(I4P)                              :: n3          !< Counter.

  n_byte = self%write_on_scratch_dataarray(x=[(((u(n1,n2,n3), v(n1,n2,n3), w(n1,n2,n3), &
                                                  x(n1,n2,n3), y(n1,n2,n3), z(n1,n2,n3), &
                                           n1=1,size(x, dim=1)),n2=1,size(x, dim=2)),n3=1,size(x, dim=3))])
  endfunction write_on_scratch_dataarray6_rank3_R8P