From e0cf472e452bc545168130629e2ea5b5e75e4343 Mon Sep 17 00:00:00 2001 From: Soren Rasmussen Date: Tue, 23 Jan 2024 10:48:36 -0700 Subject: [PATCH] Small refactor into a single line array assignment --- src/physics/linear_winds.f90 | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/src/physics/linear_winds.f90 b/src/physics/linear_winds.f90 index 478caa8d..a991404e 100644 --- a/src/physics/linear_winds.f90 +++ b/src/physics/linear_winds.f90 @@ -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