From ffb1c0e8050adc9fe617133c494ab0723ce88915 Mon Sep 17 00:00:00 2001 From: rem1776 Date: Wed, 20 Oct 2021 13:29:50 -0400 Subject: [PATCH] Initializes recv array to fix bugs from undefined logical values --- mpp/include/mpp_do_updateV_nonblock.h | 1 + mpp/include/mpp_do_update_nonblock.h | 1 + 2 files changed, 2 insertions(+) diff --git a/mpp/include/mpp_do_updateV_nonblock.h b/mpp/include/mpp_do_updateV_nonblock.h index a1c0ebf8e8..aad3ba5cad 100644 --- a/mpp/include/mpp_do_updateV_nonblock.h +++ b/mpp/include/mpp_do_updateV_nonblock.h @@ -567,6 +567,7 @@ subroutine MPP_COMPLETE_DO_UPDATE_3D_V_(id_update, f_addrsx, f_addrsy, domain, u integer :: tMe, dir update_edge_only = BTEST(flags, EDGEONLY) + recv = .false. recv(1) = BTEST(flags,EAST) recv(3) = BTEST(flags,SOUTH) recv(5) = BTEST(flags,WEST) diff --git a/mpp/include/mpp_do_update_nonblock.h b/mpp/include/mpp_do_update_nonblock.h index 4006aa3383..5ed53f54aa 100644 --- a/mpp/include/mpp_do_update_nonblock.h +++ b/mpp/include/mpp_do_update_nonblock.h @@ -277,6 +277,7 @@ subroutine MPP_COMPLETE_DO_UPDATE_3D_(id_update, f_addrs, domain, update, d_type pointer(ptr_field, field) update_edge_only = BTEST(flags, EDGEONLY) + recv = .false. recv(1) = BTEST(flags,EAST) recv(3) = BTEST(flags,SOUTH) recv(5) = BTEST(flags,WEST)