decomp_local_to_global Subroutine

public pure subroutine decomp_local_to_global(d, il, jl, ig, jg)

Public only for the unit-test suite (no production module imports it); ignore when developing production code in other modules. Convert local physical indices to global physical indices

Arguments

Type IntentOptional Attributes Name
type(decomp_t), intent(in) :: d
integer, intent(in) :: il

Local i-index (1-based, physical cells)

integer, intent(in) :: jl

Local j-index (1-based, physical cells)

integer, intent(out) :: ig

Global i-index (1-based, physical cells)

integer, intent(out) :: jg

Global j-index (1-based, physical cells)


Source Code

   pure subroutine decomp_local_to_global(d, il, jl, ig, jg)
      !! Public only for the unit-test suite (no production module imports it);
      !! ignore when developing production code in other modules.
      !! Convert local physical indices to global physical indices
      type(decomp_t), intent(in) :: d
      integer, intent(in) :: il
         !! Local i-index (1-based, physical cells)
      integer, intent(in) :: jl
         !! Local j-index (1-based, physical cells)
      integer, intent(out) :: ig
         !! Global i-index (1-based, physical cells)
      integer, intent(out) :: jg
         !! Global j-index (1-based, physical cells)

      ig = il + d%i_start - 1
      jg = jl + d%j_start - 1

   end subroutine decomp_local_to_global