fixed warnings in piolib_mod.F90

jedwards4b · Jun 26, 2019 · 803c585 · 803c585
1 parent 7ba85bd
commit 803c585
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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