netcdf_misc.F90

Go to the documentation of this file.

 
module netcdf_misc_mod
  use netcdf, only : nf90_ebaddim, nf90_enotatt, nf90_enotvar, nf90_noerr, nf90_strerror
  use logging_mod, only : log_error, log_log
  implicit none
 
#ifndef TEST_MODE
  private
#endif
 
  public check_netcdf_status
contains
 
  subroutine check_netcdf_status(status, found_flag)
    integer, intent(in) :: status
    logical, intent(out), optional :: found_flag
 
    if (present(found_flag)) then
      found_flag = status /= nf90_ebaddim .and. status /= nf90_enotatt .and. status /= nf90_enotvar
      if (.not. found_flag) return
    end if
 
    if (status /= nf90_noerr) then
      call log_log(log_error, "NetCDF returned error code of "//trim(nf90_strerror(status)))
    end if
  end subroutine check_netcdf_status
end module netcdf_misc_mod