write_grid Subroutine

  1. write_output_tec.f90
  2. write_output_tec
  3. write_grid

private subroutine write_grid(nodes)

Write the grid information in the output file

Arguments

Type IntentOptional AttributesName
type(nodetype), intent(in), dimension(-2:imx+3,-2:jmx+3,-2:kmx+3):: nodes

Calls

proc~~write_grid~3~~CallsGraph proc~write_grid~3 write_grid debugcall debugcall proc~write_grid~3->debugcall

Called by

proc~~write_grid~3~~CalledByGraph proc~write_grid~3 write_grid proc~write_file~3 write_file proc~write_file~3->proc~write_grid~3

Contents

Source Code

write_grid

Source Code

    subroutine write_grid(nodes)
      !< Write the grid information in the output file
      implicit none
      type(nodetype), dimension(-2:imx+3,-2:jmx+3,-2:kmx+3), intent(in) :: nodes 

      ! write grid point coordinates
      DebugCall("write_grid")
      write(OUT_FILE_UNIT, format) (((nodes(i, j, k)%x,i=1,imx), j=1,jmx), k=1,kmx)
      write(OUT_FILE_UNIT, format) (((nodes(i, j, k)%y,i=1,imx), j=1,jmx), k=1,kmx)
      write(OUT_FILE_UNIT, format) (((nodes(i, j, k)%z,i=1,imx), j=1,jmx), k=1,kmx)

    end subroutine write_grid