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 | Intent | Optional | 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) |
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