From 5d404d4d65f7cc51c2750b87989323a9cc8f687f Mon Sep 17 00:00:00 2001 From: Wolfgang Hayek Date: Sun, 15 Feb 2026 19:46:48 +0000 Subject: [PATCH 1/2] Replace short-circuit evaluation --- .../algorithm/core_dynamics/intermesh_mappings_alg_mod.x90 | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/science/gungho/source/algorithm/core_dynamics/intermesh_mappings_alg_mod.x90 b/science/gungho/source/algorithm/core_dynamics/intermesh_mappings_alg_mod.x90 index 19f953a48..12e8ac5e3 100644 --- a/science/gungho/source/algorithm/core_dynamics/intermesh_mappings_alg_mod.x90 +++ b/science/gungho/source/algorithm/core_dynamics/intermesh_mappings_alg_mod.x90 @@ -341,10 +341,9 @@ contains end if else - if ( present(lowest_order_flag) .and. lowest_order_flag ) then - recovery_order_arg = recovery_order_constant - else - recovery_order_arg = recovery_order + recovery_order_arg = recovery_order + if (present(lowest_order_flag)) then + if (lowest_order_flag) recovery_order_arg = recovery_order_constant end if if (ndata > 1) then if (present(source_mask)) then From 787dbf27600fc50789c14e8cd8639b9433aaded6 Mon Sep 17 00:00:00 2001 From: Wolfgang Hayek Date: Mon, 16 Feb 2026 03:35:13 +0000 Subject: [PATCH 2/2] Add details to contributors list --- CONTRIBUTORS.md | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/CONTRIBUTORS.md b/CONTRIBUTORS.md index d6d4268cb..cbfcc3f0f 100644 --- a/CONTRIBUTORS.md +++ b/CONTRIBUTORS.md @@ -29,4 +29,5 @@ | cjohnson-pi | Christine Johnson | Met Office | 2026-01-19 | | t00sa | Sam Clarke-Green | Met Office | 2026-01-20 | | ukmo-juan-castillo | Juan M. Castillo | Met Office | 2026-01-23 | -| thomasmelvin | Thomas Melvin | Met Office | 2026-01-15 | \ No newline at end of file +| thomasmelvin | Thomas Melvin | Met Office | 2026-01-15 | +| tinyendian | Wolfgang Hayek | Earth Sciences New Zealand | 2026-01-16 | \ No newline at end of file