Merge pull request #1944 from billsacks/fix_default_mode

Fix default value of mode for PIO_openfile
Resolves #1943. See that issue for details.

Author: jedwards4b

src/flib/piolib_mod.F90

@@ -1423,11 +1423,12 @@ integer(C_INT) function PIOc_openfile(iosysid, fh, iotype, fname,mode) &
          integer(c_int), value :: mode
        end function PIOc_openfile
     end interface
-    integer :: imode=0, i, nl
+    integer :: imode, i, nl
     character, allocatable :: cfname(:)
 #ifdef TIMING
     call t_startf("PIO:openfile")
 #endif
+    imode = 0
     if(present(mode)) imode = mode
     nl = len_trim(fname)
     allocate(cfname(nl+1))