VTM_WRF_XML Function

  1. mod_vtk.f90
  2. VTK
  3. VTM_WRF_XML

public function VTM_WRF_XML(wrf_dir, vtk_xml_file_list) result(E_IO)

The VTM_WRF_XML function is used for saving the list of VTK XML wrapped files by the actual block of the mutliblock VTM file.

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in), optional :: wrf_dir
character(len=*), intent(in) :: vtk_xml_file_list(:)

Return Value integer(kind=I4P)


Contents

Source Code

VTM_WRF_XML

Source Code

  function VTM_WRF_XML(wrf_dir,vtk_xml_file_list) result(E_IO)
  !---------------------------------------------------------------------------------------------------------------------------------
  !!The VTM_WRF_XML function is used for saving the list of VTK XML wrapped files by the actual block of the mutliblock VTM file.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  implicit none
  character(*), intent(IN), optional:: wrf_dir              ! directory into which wrapped VTK XML are (optional)
  character(*), intent(IN)::           vtk_xml_file_list(:) ! list of VTK XML wrapped files
  integer(I4P)::                       E_IO                 ! Input/Output inquiring flag: 0 if IO is done, > 0 if IO is not done
  integer(I4P)::                       f                    ! file counter
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  if (present(wrf_dir)) then
    do f=1,size(vtk_xml_file_list)
      write(unit=Unit_VTM,fmt='(A,I3.3,A)',iostat=E_IO)repeat(' ',vtm_indent)//                                      &
                                                       '<DataSet index="',f-1,'" file="'//                           &
                                                       adjustl(trim(wrf_dir))//adjustl(trim(vtk_xml_file_list(f)))// &
                                                       '"></DataSet>'
    enddo
  else
    do f=1,size(vtk_xml_file_list)
      write(unit=Unit_VTM,fmt='(A,I3.3,A)',iostat=E_IO)repeat(' ',vtm_indent)//              &
                                                       '<DataSet index="',f-1,'" file="'//   &
                                                       adjustl(trim(vtk_xml_file_list(f)))// &
                                                       '"></DataSet>'
    enddo
  endif
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction VTM_WRF_XML