nc_open_write Subroutine

public subroutine nc_open_write(filename, ncid, ierr)

Open an existing NetCDF file for writing

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
integer, intent(out) :: ncid
integer, intent(out), optional :: ierr

Non-zero on failure when present; absent behaves as today (error stop).

Calls

proc~~nc_open_write~~CallsGraph proc~nc_open_write nc_open_write nf90_open nf90_open proc~nc_open_write->nf90_open proc~nc_check nc_check proc~nc_open_write->proc~nc_check nf90_strerror nf90_strerror proc~nc_check->nf90_strerror proc~fail fail proc~nc_check->proc~fail error error proc~fail->error proc~error_ring_push error_ring_push proc~fail->proc~error_ring_push

Source Code

   subroutine nc_open_write(filename, ncid, ierr)
      !! Open an existing NetCDF file for writing
      character(len=*), intent(in) :: filename
      integer, intent(out) :: ncid
      integer, intent(out), optional :: ierr
         !! Non-zero on failure when present; absent behaves as today
         !! (`error stop`).

      call nc_check(nf90_open(trim(filename), nf90_write, ncid), &
                    "opening for write "//trim(filename), ierr)

   end subroutine nc_open_write