nchandle_error Subroutine

public subroutine nchandle_error(status)

Uses

    • netcdf
  • proc~~nchandle_error~~UsesGraph proc~nchandle_error nchandle_error netcdf netcdf proc~nchandle_error->netcdf

Arguments

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

Calls

proc~~nchandle_error~~CallsGraph proc~nchandle_error nchandle_error nf90_strerror nf90_strerror proc~nchandle_error->nf90_strerror

Called by

proc~~nchandle_error~~CalledByGraph proc~nchandle_error nchandle_error proc~define_nc define_nc proc~define_nc->proc~nchandle_error proc~exitstat_nc exitstat_nc proc~exitstat_nc->proc~nchandle_error proc~exitfielddump exitfielddump proc~exitfielddump->proc~exitstat_nc proc~initeb initEB proc~initeb->proc~define_nc proc~initfielddump initfielddump proc~initfielddump->proc~define_nc proc~initibm initibm proc~initibm->proc~define_nc proc~initstatsdump initstatsdump proc~initstatsdump->proc~define_nc program~dalesurban DALESURBAN program~dalesurban->proc~exitfielddump program~dalesurban->proc~initeb program~dalesurban->proc~initfielddump program~dalesurban->proc~initibm program~dalesurban->proc~initstatsdump

Source Code

  subroutine nchandle_error(status)
    use netcdf
    implicit none

    integer, intent(in) :: status

    if(status /= nf90_noerr) then
      write(0, *) trim(nf90_strerror(status))
      write(0, *) 'ERROR: status',  status
      stop 1
    end if

  end subroutine nchandle_error