write_header Subroutine

  1. write_output_tec.f90
  2. write_output_tec
  3. write_header

private subroutine write_header(control)

Write the header in the output file in the tecplot format

Arguments

Type IntentOptional AttributesName
type(controltype), intent(in) :: control

Calls

proc~~write_header~3~~CallsGraph proc~write_header~3 write_header debugcall debugcall proc~write_header~3->debugcall

Called by

proc~~write_header~3~~CalledByGraph proc~write_header~3 write_header proc~write_file~3 write_file proc~write_file~3->proc~write_header~3

Contents

Source Code

write_header

Source Code

    subroutine write_header(control)
      !< Write the header in the output file in the tecplot format
      implicit none
      type(controltype), intent(in) :: control
      integer :: n
      integer :: total

      DebugCall("write_header")
      write(OUT_FILE_UNIT,'(a)') "variables = x y z "

      total=3
      do n = 1,control%w_count

        select case (trim(control%w_list(n)))
        
          case('Velocity')
            write(OUT_FILE_UNIT, '(a)') " u v w "
            total = total+3

          case('do not write')
            !skip 
            continue

          case Default
            write(OUT_FILE_UNIT, '(a)') trim(control%w_list(n))//" "
            total = total+1

        end select
      end do

      write(OUT_FILE_UNIT, '(a,i4.4,3(a,i5.5),a)') "zone T=block",process_id,"  i=",imx," j=",jmx, " k=",kmx, " Datapacking=Block"

      write(OUT_FILE_UNIT,*) "Varlocation=([1-3]=Nodal)"
      write(OUT_FILE_UNIT,'(a,i2.2,a)') "Varlocation=([4-",total,"]=CELLCENTERED)"
      write(OUT_FILE_UNIT,"(a,i4.4)") "STRANDID=",1
      write(OUT_FILE_UNIT,"(a,i4.4)") "SOLUTIONTIME=",control%checkpoint_iter_count


    end subroutine write_header