save_conntec Subroutine

public subroutine save_conntec(qunit, igrid, igonlevel)

Uses

  • proc~~save_conntec~~UsesGraph proc~save_conntec save_conntec module~mod_global_parameters mod_global_parameters proc~save_conntec->module~mod_global_parameters module~mod_basic_types mod_basic_types module~mod_global_parameters->module~mod_basic_types module~mod_connectivity mod_connectivity module~mod_global_parameters->module~mod_connectivity module~mod_constants mod_constants module~mod_global_parameters->module~mod_constants module~mod_physicaldata mod_physicaldata module~mod_global_parameters->module~mod_physicaldata module~mod_variables mod_variables module~mod_global_parameters->module~mod_variables mpi mpi module~mod_global_parameters->mpi module~mod_variables->module~mod_basic_types

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: qunit
integer, intent(in) :: igrid
integer, intent(in) :: igonlevel

Calls

proc~~save_conntec~~CallsGraph proc~save_conntec save_conntec proc~nodenumbertec3d nodenumbertec3D proc~save_conntec->proc~nodenumbertec3d proc~mpistop mpistop proc~nodenumbertec3d->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort

Called by

proc~~save_conntec~~CalledByGraph proc~save_conntec save_conntec proc~tecplot tecplot proc~tecplot->proc~save_conntec proc~tecplot_mpi tecplot_mpi proc~tecplot_mpi->proc~save_conntec proc~generate_plotfile generate_plotfile proc~generate_plotfile->proc~tecplot proc~generate_plotfile->proc~tecplot_mpi proc~main main proc~main->proc~generate_plotfile proc~timeintegration timeintegration proc~main->proc~timeintegration proc~saveamrfile saveamrfile proc~saveamrfile->proc~generate_plotfile proc~timeintegration->proc~saveamrfile program~agile agile program~agile->proc~main

Source Code

  subroutine save_conntec(qunit,igrid,igonlevel)

    ! this saves the basic line, quad and brick connectivity,
    ! as used by TECPLOT file outputs for unstructured grid
    use mod_global_parameters

    integer, intent(in) :: qunit, igrid, igonlevel

    integer :: nx1,nx2,nx3, nxC1,nxC2,nxC3, ix1,ix2,ix3

    nx1=ixMhi1-ixMlo1+1;nx2=ixMhi2-ixMlo2+1;nx3=ixMhi3-ixMlo3+1;
    nxC1=nx1+1;nxC2=nx2+1;nxC3=nx3+1;

    ! connectivity list
    do ix3=1,nx3
    do ix2=1,nx2
    do ix1=1,nx1

       ! basic brick connectivity
       write(qunit,'(8(i7,1x))') nodenumbertec3D(ix1,  ix2-1,ix3-1,nxC1,nxC2,&
          nxC3,igonlevel,igrid),nodenumbertec3D(ix1+1,ix2-1,ix3-1,nxC1,nxC2,&
          nxC3,igonlevel,igrid),nodenumbertec3D(ix1+1,ix2  ,ix3-1,nxC1,nxC2,&
          nxC3,igonlevel,igrid),nodenumbertec3D(ix1  ,ix2  ,ix3-1,nxC1,nxC2,&
          nxC3,igonlevel,igrid),nodenumbertec3D(ix1  ,ix2-1,ix3  ,nxC1,nxC2,&
          nxC3,igonlevel,igrid),nodenumbertec3D(ix1+1,ix2-1,ix3  ,nxC1,nxC2,&
          nxC3,igonlevel,igrid),nodenumbertec3D(ix1+1,ix2  ,ix3  ,nxC1,nxC2,&
          nxC3,igonlevel,igrid),nodenumbertec3D(ix1  ,ix2  ,ix3  ,nxC1,nxC2,&
          nxC3,igonlevel,igrid)



    end do
    end do
    end do

  end subroutine save_conntec