Write a full 2D 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 nc_put_var_2d(ncid, varid, data, ierr) !! Write a full 2D 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 2D variable", ierr) end subroutine nc_put_var_2d