write_scalar Subroutine

  1. write_output_tec.f90
  2. write_output_tec
  3. write_scalar

private subroutine write_scalar(var, name, index)

Write the scalar variable in the output file

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in), dimension(index:imx-index,index:jmx-index,index:kmx-index):: var
character(len=*), intent(in) :: name
integer, intent(in) :: index

Calls

proc~~write_scalar~3~~CallsGraph proc~write_scalar~3 write_scalar debugcall debugcall proc~write_scalar~3->debugcall

Called by

proc~~write_scalar~3~~CalledByGraph proc~write_scalar~3 write_scalar proc~write_file~3 write_file proc~write_file~3->proc~write_scalar~3

Contents

Source Code

write_scalar

Source Code

    subroutine write_scalar(var, name, index)
      !< Write the scalar variable in the output file
      implicit none
      integer, intent(in) :: index
      real(wp), dimension(index:imx-index,index:jmx-index,index:kmx-index), intent(in) :: var
      character(len=*),       intent(in):: name

      DebugCall("write_scalar: "//trim(name))

      write(OUT_FILE_UNIT, format) (((var(i, j, k),i=1,imx-1), j=1,jmx-1), k=1,kmx-1)

    end subroutine write_scalar