write_grid Subroutine

  1. write_output_tec_node.f90
  2. write_output_tec_node
  3. write_grid

private subroutine write_grid(nodes)

Write 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~~CallsGraph proc~write_grid write_grid debugcall debugcall proc~write_grid->debugcall

Called by

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

Contents

Source Code

write_grid

Source Code

    subroutine write_grid(nodes)
      !< Write 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_output_tec_node: write_grid')
      write(OUT_FILE_UNIT, format) (((nodes(i, j, k)%x,i=1,imx), j=1,jmx), k=1,kmx-1)
      write(OUT_FILE_UNIT, format) (((nodes(i, j, k)%y,i=1,imx), j=1,jmx), k=1,kmx-1)
      write(OUT_FILE_UNIT, format) (((nodes(i, j, k)%z,i=1,imx), j=1,jmx), k=1,kmx-1)

    end subroutine write_grid