changes to pioperformance.F90 to support the PIO1 library.

E3SM-Project · Mar 29, 2016 · c3f5a1d · c3f5a1d
1 parent 820aeda
commit c3f5a1d
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/tests/performance/pioperformance.F90 b/tests/performance/pioperformance.F90
@@ -31,6 +31,11 @@ program pioperformance
        nvars, varsize, unlimdimindof
 #ifdef BGQTRY
   external :: print_memusage
+#endif
+#ifdef _PIO1
+  integer, parameter :: PIO_FILL_INT   = 02147483647
+  real, parameter    :: PIO_FILL_FLOAT = 9.969209968E+36
+  double precision, parameter :: PIO_FILL_DOUBLE = 9.969209968E+36
 #endif
   !
   ! Initialize MPI
@@ -167,7 +172,13 @@ subroutine pioperformancetest(filename, piotypes, mype, npe_base, &
     if(trim(filename) .eq. 'ROUNDROBIN' .or. trim(filename).eq.'BLOCK') then
        call init_ideal_dof(filename, mype, npe_base, ndims, gdims, compmap, varsize)
     else
+       ! Changed to support PIO1 as well
+#ifdef _PIO1
+       call pio_readdof(filename, compmap, MPI_COMM_WORLD)
+#else
        call pio_readdof(filename, ndims, gdims, compmap, MPI_COMM_WORLD)
+#endif
+
     endif
     maplen = size(compmap)
 !    color = 0