input_nc_check_error Subroutine

public subroutine input_nc_check_error(status)

Uses

    • netcdf
  • proc~~input_nc_check_error~~UsesGraph proc~input_nc_check_error input_nc_check_error netcdf netcdf proc~input_nc_check_error->netcdf

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: status

Calls

proc~~input_nc_check_error~~CallsGraph proc~input_nc_check_error input_nc_check_error nf90_strerror nf90_strerror proc~input_nc_check_error->nf90_strerror proc~log_error log_error proc~input_nc_check_error->proc~log_error proc~log_message log_message proc~log_error->proc~log_message proc~log_write log_write proc~log_message->proc~log_write proc~log_format_message log_format_message proc~log_message->proc~log_format_message proc~to_string to_string proc~log_write->proc~to_string proc~date_time_str date_time_str proc~log_format_message->proc~date_time_str proc~colourise colourise proc~log_format_message->proc~colourise proc~string_index string_index proc~colourise->proc~string_index

Called by

proc~~input_nc_check_error~~CalledByGraph proc~input_nc_check_error input_nc_check_error proc~input_nc_close input_nc_close proc~input_nc_close->proc~input_nc_check_error proc~input_nc_check_missing input_nc_check_missing proc~input_nc_check_missing->proc~input_nc_check_error proc~input_nc_initialise input_nc_initialise proc~input_nc_initialise->proc~input_nc_check_error proc~input_nc_initialise->proc~input_nc_check_missing proc~input_nc_check_dims input_nc_check_dims proc~input_nc_initialise->proc~input_nc_check_dims proc~input_nc_weighted_mean input_nc_weighted_mean proc~input_nc_weighted_mean->proc~input_nc_check_error proc~input_nc_check_dims->proc~input_nc_check_error proc~input_nc_read_climate input_nc_read_climate proc~input_nc_read_climate->proc~input_nc_weighted_mean proc~initialise initialise proc~initialise->proc~input_nc_initialise proc~terminate terminate proc~terminate->proc~input_nc_close proc~time_process_day time_process_day proc~time_process_day->proc~input_nc_read_climate program~swim swim program~swim->proc~initialise program~swim->proc~terminate proc~time_process_years time_process_years program~swim->proc~time_process_years proc~time_process_month time_process_month proc~time_process_month->proc~time_process_day proc~time_process_years->proc~time_process_month

Contents

Source Code


Source Code

  subroutine input_nc_check_error(status)
    use netcdf, only : nf90_noerr, nf90_strerror

    integer, intent ( in) :: status

    if (status /= nf90_noerr) then
      call log_error('input_nc_check_error', trim(nf90_strerror(status)))
    end if
  end subroutine input_nc_check_error