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 modstat_nc::exitstat_nc nf90_close nf90_close proc~exitstat_nc->nf90_close proc~nchandle_error modstat_nc::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 modstat_nc::exitstat_nc proc~exitfielddump modfielddump::exitfielddump proc~exitfielddump->proc~exitstat_nc program~dalesurban DALESURBAN program~dalesurban->proc~exitfielddump

Contents

Source Code


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