get_unit warning now only prints on root_pe (#872)

Co-authored-by: Eric Stofferahn <[email protected]>
NOAA-GFDL · Dec 20, 2021 · 6d179fc · 6d179fc
1 parent 6b12cb5
commit 6d179fc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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