Skip to content

Commit

Permalink
Merge pull request #178 from scrasmussen/enhancement/one-line-assignm…
Browse files Browse the repository at this point in the history
…ent-refactor

Enhancement: single line array assignment refactor

Reduces the number of small coarray sends to streamline linear winds LUT generation
  • Loading branch information
gutmann committed Jan 23, 2024
2 parents 63e3564 + e0cf472 commit 3a0061a
Showing 1 changed file with 1 addition and 4 deletions.
5 changes: 1 addition & 4 deletions src/physics/linear_winds.f90
Original file line number Diff line number Diff line change
Expand Up @@ -597,10 +597,7 @@ subroutine copy_data_to_remote(wind, grids, LUT, LUT_co, LUT_index_co, i, j, k,
)
LUT_co(1:ime-ims+1, 1:jme-jms+1, this_image())[img] = wind(ims:ime,jms:jme)

LUT_index_co(this_image(), 1)[img] = i
LUT_index_co(this_image(), 2)[img] = j
LUT_index_co(this_image(), 3)[img] = k
LUT_index_co(this_image(), 4)[img] = z
LUT_index_co(this_image(), :)[img] = [i, j, k, z]
end associate
enddo

Expand Down

0 comments on commit 3a0061a

Please sign in to comment.