nchandle_error Subroutine

public subroutine nchandle_error(status)

Uses

    • netcdf
  • proc~~nchandle_error~~UsesGraph proc~nchandle_error modstat_nc::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 modstat_nc::nchandle_error nf90_strerror nf90_strerror proc~nchandle_error->nf90_strerror

Called by

proc~~nchandle_error~~CalledByGraph proc~nchandle_error modstat_nc::nchandle_error proc~define_nc modstat_nc::define_nc proc~define_nc->proc~nchandle_error proc~exitstat_nc modstat_nc::exitstat_nc proc~exitstat_nc->proc~nchandle_error proc~exitfielddump modfielddump::exitfielddump proc~exitfielddump->proc~exitstat_nc proc~initeb modEB::initEB proc~initeb->proc~define_nc proc~initfielddump modfielddump::initfielddump proc~initfielddump->proc~define_nc proc~initstatsdump modstatsdump::initstatsdump proc~initstatsdump->proc~define_nc program~dalesurban DALESURBAN program~dalesurban->proc~exitfielddump program~dalesurban->proc~initeb program~dalesurban->proc~initfielddump program~dalesurban->proc~initstatsdump

Contents

Source Code

nchandle_error

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