From 803c585843b95d54a0a3fe824a85bf2b2c72258a Mon Sep 17 00:00:00 2001
From: Ed Hartnett <edwardjameshartnett@gmail.com>
Date: Wed, 26 Jun 2019 10:12:51 -0600
Subject: [PATCH] fixed warnings in piolib_mod.F90

---
 src/flib/piolib_mod.F90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/flib/piolib_mod.F90 b/src/flib/piolib_mod.F90
index 6dabe835e98..e8473713e7f 100644
--- a/src/flib/piolib_mod.F90
+++ b/src/flib/piolib_mod.F90
@@ -1023,6 +1023,9 @@ integer(c_int) function PIOc_Init_Intracomm_from_F90(f90_comp_comm, num_iotasks,
        end function PIOc_Init_Intracomm_from_F90
     end interface
 
+    if (comp_rank /= 0) continue ! to suppress warning
+    if (num_aggregator /= 0) continue ! to suppress warning
+
 #ifdef TIMING
     call t_startf("PIO:init")
 #endif