check_nc_status Subroutine

public subroutine check_nc_status(status, rc)

Uses

    • netcdf
  • proc~~check_nc_status~~UsesGraph proc~check_nc_status check_nc_status netcdf netcdf proc~check_nc_status->netcdf

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: status
integer, intent(out), optional :: rc

Calls

proc~~check_nc_status~~CallsGraph proc~check_nc_status check_nc_status interface~mapl_assert MAPL_Assert proc~check_nc_status->interface~mapl_assert nf90_strerror nf90_strerror proc~check_nc_status->nf90_strerror proc~mapl_return MAPL_Return proc~check_nc_status->proc~mapl_return at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Called by

proc~~check_nc_status~~CalledByGraph proc~check_nc_status check_nc_status proc~get_att_char_netcdf get_att_char_netcdf proc~get_att_char_netcdf->proc~check_nc_status proc~get_att_real_netcdf get_att_real_netcdf proc~get_att_real_netcdf->proc~check_nc_status proc~get_attribute_from_group get_attribute_from_group proc~get_attribute_from_group->proc~check_nc_status proc~get_ncfile_dimension get_ncfile_dimension proc~get_ncfile_dimension->proc~check_nc_status proc~get_v1d_netcdf_r8 get_v1d_netcdf_R8 proc~get_v1d_netcdf_r8->proc~check_nc_status proc~get_v1d_netcdf_r8_complete get_v1d_netcdf_R8_complete proc~get_v1d_netcdf_r8_complete->proc~check_nc_status proc~get_v2d_netcdf_r4 get_v2d_netcdf_R4 proc~get_v2d_netcdf_r4->proc~check_nc_status proc~get_v2d_netcdf_r8 get_v2d_netcdf_R8 proc~get_v2d_netcdf_r8->proc~check_nc_status proc~get_var_from_name_w_group get_var_from_name_w_group proc~get_var_from_name_w_group->proc~check_nc_status interface~get_v2d_netcdf get_v2d_netcdf interface~get_v2d_netcdf->proc~get_v2d_netcdf_r4 interface~get_v2d_netcdf->proc~get_v2d_netcdf_r8 proc~read_m_files_4_swath read_M_files_4_swath proc~read_m_files_4_swath->proc~get_ncfile_dimension proc~read_m_files_4_swath->proc~get_var_from_name_w_group

Source Code

  subroutine check_nc_status(status, rc)
    use netcdf
    implicit none
    integer, intent(in) :: status
    integer, intent(out), optional :: rc

    _ASSERT(status == nf90_noerr, 'netCDF error: '//trim(nf90_strerror(status)))
    _RETURN(_SUCCESS)

  end subroutine check_nc_status