exitstat_nc Subroutine

public subroutine exitstat_nc(ncid)

Arguments

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

Calls

proc~~exitstat_nc~~CallsGraph proc~exitstat_nc exitstat_nc nf90_close nf90_close proc~exitstat_nc->nf90_close proc~nchandle_error nchandle_error proc~exitstat_nc->proc~nchandle_error nf90_strerror nf90_strerror proc~nchandle_error->nf90_strerror

Called by

proc~~exitstat_nc~~CalledByGraph proc~exitstat_nc exitstat_nc proc~exitfielddump exitfielddump proc~exitfielddump->proc~exitstat_nc program~dalesurban DALESURBAN program~dalesurban->proc~exitfielddump

Source Code

  subroutine exitstat_nc(ncid)

   implicit none
   integer, intent(in) :: ncid
   integer status

   status = nf90_close(ncid)
   if (status /= nf90_noerr) call nchandle_error(status)
 end subroutine exitstat_nc