Write a full 1D array
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | ncid | |||
| integer, | intent(in) | :: | varid | |||
| real(kind=wp), | intent(in) | :: | data(:) | |||
| integer, | intent(out), | optional | :: | ierr |
Non-zero on failure when present; absent behaves as today
( |
subroutine rdb_put_var_1d(ncid, varid, data, ierr) !! Write a full 1D array integer, intent(in) :: ncid integer, intent(in) :: varid real(wp), intent(in) :: data(:) integer, intent(out), optional :: ierr !! Non-zero on failure when present; absent behaves as today !! (`error stop`). call nc_check(nf90_put_var(ncid, varid, data), "writing 1D variable", ierr) end subroutine rdb_put_var_1d