From aa01fa0e3972341b704631fda7914a8c95c257c0 Mon Sep 17 00:00:00 2001 From: Eric Stofferahn Date: Mon, 20 Dec 2021 13:46:41 -0500 Subject: [PATCH] get_unit warning now only prints on root_pe --- mpp/include/mpp_util.inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mpp/include/mpp_util.inc b/mpp/include/mpp_util.inc index 4ec027032c..923191b36b 100644 --- a/mpp/include/mpp_util.inc +++ b/mpp/include/mpp_util.inc @@ -1088,7 +1088,7 @@ end function rarray_to_char integer,save :: i logical :: l_open - call mpp_error(WARNING,'get_unit is deprecated and will be removed in a future release, please use the Fortran intrinsic newunit') + if (pe == root_pe) call mpp_error(WARNING,'get_unit is deprecated and will be removed in a future release, please use the Fortran intrinsic newunit') do i=10,99 inquire(unit=i,opened=l_open) if(.not.l_open)exit