ncfile_handle_error Subroutine

public subroutine ncfile_handle_error(sf, errmsg)

netcdf error handling via sf%ioError variable

Type Bound

t_ncfile

Arguments

Type IntentOptional Attributes Name
class(t_ncfile), intent(inout) :: sf

self
character(len=*), intent(in) :: errmsg

Calls

proc~~ncfile_handle_error~~CallsGraph proc~ncfile_handle_error t_ncfile%ncfile_handle_error nf90_strerror nf90_strerror proc~ncfile_handle_error->nf90_strerror proc~mpi_check_single_access mpi_check_single_access proc~ncfile_handle_error->proc~mpi_check_single_access

Called by

proc~~ncfile_handle_error~~CalledByGraph proc~ncfile_handle_error t_ncfile%ncfile_handle_error proc~ncfile_closefile t_ncfile%ncfile_closefile proc~ncfile_closefile->proc~ncfile_handle_error proc~ncfile_def_dim t_ncfile%ncfile_def_dim proc~ncfile_def_dim->proc~ncfile_handle_error proc~ncfile_end_def_mode t_ncfile%ncfile_end_def_mode proc~ncfile_end_def_mode->proc~ncfile_handle_error proc~ncfile_get_array t_ncfile%ncfile_get_array proc~ncfile_get_array->proc~ncfile_handle_error proc~ncfile_enter_groups t_ncfile%ncfile_enter_groups proc~ncfile_get_array->proc~ncfile_enter_groups proc~ncfile_get_scalar t_ncfile%ncfile_get_scalar proc~ncfile_get_scalar->proc~ncfile_handle_error proc~ncfile_get_scalar->proc~ncfile_enter_groups proc~ncfile_get_var_dims t_ncfile%ncfile_get_var_dims proc~ncfile_get_var_dims->proc~ncfile_handle_error proc~ncfile_get_var_dims->proc~ncfile_enter_groups proc~ncfile_get_var_ndims t_ncfile%ncfile_get_var_ndims proc~ncfile_get_var_ndims->proc~ncfile_handle_error proc~ncfile_get_var_ndims->proc~ncfile_enter_groups proc~ncfile_openfile t_ncfile%ncfile_openfile proc~ncfile_openfile->proc~ncfile_handle_error proc~ncfile_put_array t_ncfile%ncfile_put_array proc~ncfile_put_array->proc~ncfile_handle_error proc~ncfile_put_array->proc~ncfile_openfile proc~ncfile_put_attributes_char t_ncfile%ncfile_put_attributes_char proc~ncfile_put_attributes_char->proc~ncfile_handle_error proc~ncfile_put_char t_ncfile%ncfile_put_char proc~ncfile_put_char->proc~ncfile_handle_error proc~ncfile_put_scalar t_ncfile%ncfile_put_scalar proc~ncfile_put_scalar->proc~ncfile_handle_error proc~ncfile_enter_groups->proc~ncfile_openfile proc~ncfile_free t_ncfile%ncfile_free proc~ncfile_free->proc~ncfile_closefile proc~ncfile_init ncfile_init proc~ncfile_init->proc~ncfile_openfile proc~readnetcdf ReadNETCDF proc~readnetcdf->proc~ncfile_closefile proc~readnetcdf->proc~ncfile_get_array proc~readnetcdf->proc~ncfile_get_scalar proc~readnetcdf~2 ReadNETCDF proc~readnetcdf~2->proc~ncfile_closefile proc~readnetcdf~2->proc~ncfile_get_array proc~readnetcdf~2->proc~ncfile_get_scalar proc~ncfile_var_exists t_ncfile%ncfile_var_exists proc~readnetcdf~2->proc~ncfile_var_exists proc~writedatatonetcdf WriteDataToNETCDF proc~writedatatonetcdf->proc~ncfile_def_dim proc~writedatatonetcdf->proc~ncfile_end_def_mode proc~writedatatonetcdf->proc~ncfile_put_array proc~writedatatonetcdf->proc~ncfile_put_attributes_char proc~writedatatonetcdf->proc~ncfile_put_char proc~writedatatonetcdf->proc~ncfile_init proc~bff_init t_boundaryFromFile%bff_init proc~bff_init->proc~ncfile_init proc~bff_init->proc~readnetcdf~2 proc~hmap_axisnb_init_params hmap_axisNB_init_params proc~hmap_axisnb_init_params->proc~ncfile_init proc~hmap_axisnb_init_params->proc~readnetcdf proc~visu_axisnb Visu_axisNB proc~hmap_axisnb_init_params->proc~visu_axisnb proc~ncfile_var_exists->proc~ncfile_enter_groups proc~visu_axisnb->proc~writedatatonetcdf proc~visufrenet VisuFrenet proc~visufrenet->proc~writedatatonetcdf interface~t_hmap_axisnb t_hmap_axisNB interface~t_hmap_axisnb->proc~hmap_axisnb_init_params proc~hmap_axisnb_init hmap_axisNB_init interface~t_hmap_axisnb->proc~hmap_axisnb_init proc~boundaryfromfile_new boundaryFromFile_new proc~boundaryfromfile_new->proc~bff_init proc~hmap_axisnb_init->proc~hmap_axisnb_init_params proc~hmap_frenet_init_params hmap_frenet_init_params proc~hmap_frenet_init_params->proc~visufrenet interface~t_hmap_frenet t_hmap_frenet interface~t_hmap_frenet->proc~hmap_frenet_init_params proc~hmap_frenet_init hmap_frenet_init interface~t_hmap_frenet->proc~hmap_frenet_init proc~hmap_frenet_init->proc~hmap_frenet_init_params

Source Code

  SUBROUTINE ncfile_handle_error(sf,errmsg)
    ! MODULES
    IMPLICIT NONE
    !-------------------------------------------------------------------------------------------------------------------------------
    ! INPUT VARIABLES
    CHARACTER(LEN=*),INTENT(IN) :: errmsg
    !-------------------------------------------------------------------------------------------------------------------------------
    ! OUTPUT VARIABLES
    CLASS(t_ncfile),INTENT(INOUT)        :: sf !! self
    !===============================================================================================================================
    CALL mpi_check_single_access()
#if NETCDF
    IF (sf%ioError .NE. nf90_NOERR) THEN
       WRITE(UNIT_stdOut,'(6X,A)')"A netCDF error has occurred:  "//TRIM(errmsg)
       CALL abort(__STAMP__,&
                 nf90_STRERROR(sf%ioError))
    END IF
#endif
  END SUBROUTINE ncfile_handle_error