fixing warnings in piolib_mod.F90

jedwards4b · Jun 25, 2019 · e007308 · e007308
1 parent c287ae7
commit e007308
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/flib/piolib_mod.F90 b/src/flib/piolib_mod.F90
@@ -345,7 +345,7 @@ integer(C_INT) function PIOc_setframe(ncid, varid, frame) &
          integer(C_INT), value :: frame
        end function PIOc_setframe
     end interface
-    iframe = frame-1
+    iframe = int(frame-1)
     ierr = PIOc_setframe(file%fh, vardesc%varid-1, iframe)
   end subroutine setframe
 
@@ -1448,7 +1448,6 @@ integer function PIO_openfile(iosystem, file, iotype, fname,mode) result(ierr)
     integer, intent(in) :: iotype
     character(len=*), intent(in)  :: fname
     integer, optional, intent(in) :: mode
-    integer :: iorank
     interface
        integer(C_INT) function PIOc_openfile(iosysid, fh, iotype, fname,mode) &
             bind(C,NAME='PIOc_openfile')