Check for and add missing error code handling for PIO calls

Author: cacraigucar

src/dynamics/se/dyn_comp.F90

@@ -1995,6 +1995,9 @@ subroutine set_phis(dyn_in)
          call endrun(subname//': dimension ncol not found in bnd_topo file')
       end if
       ierr = pio_inq_dimlen(fh_topo, ncol_did, ncol_size)
+      if (ierr /= PIO_NOERR) then
+         call endrun(subname//': dimension ncol does not have a value in bnd_topo file')
+      end if
       if (ncol_size /= dyn_cols) then
          if (masterproc) then
             write(iulog,*) subname//': ncol_size=', ncol_size, ' : dyn_cols=', dyn_cols

src/utils/cam_pio_utils.F90

@@ -940,6 +940,7 @@ subroutine cam_pio_get_var_2d_r8(varname, File, field, start, kount, found)
             strt = 1     ! cnt set by cam_pio_var_info
             exists = use_scam_limits(File, strt, cnt,filedims)
          end if
+         ! Internal PIO error handling is in effect, so need to check return codes
          if (ndims == 3) then
             ierr = pio_inq_dimname(File, dimids(3), tmpname)
             if (trim(tmpname) /= 'time') then