nc_put_var_4d_slice_r4 Subroutine

public subroutine nc_put_var_4d_slice_r4(ncid, varid, data, time_index, ierr)

Write a 32-bit 3D slice into a 4D variable at a given time index. The real32 twin of nc_put_var_4d_slice.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
integer, intent(in) :: varid
real(kind=real32), intent(in) :: data(:,:,:)
integer, intent(in) :: time_index
integer, intent(out), optional :: ierr

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

Calls

proc~~nc_put_var_4d_slice_r4~~CallsGraph proc~nc_put_var_4d_slice_r4 nc_put_var_4d_slice_r4 nf90_put_var nf90_put_var proc~nc_put_var_4d_slice_r4->nf90_put_var proc~nc_check nc_check proc~nc_put_var_4d_slice_r4->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

Called by

proc~~nc_put_var_4d_slice_r4~~CalledByGraph proc~nc_put_var_4d_slice_r4 nc_put_var_4d_slice_r4 proc~nc_emit_post_fire nc_emit_post_fire proc~nc_emit_post_fire->proc~nc_put_var_4d_slice_r4

Source Code

   subroutine nc_put_var_4d_slice_r4(ncid, varid, data, time_index, ierr)
      !! Write a 32-bit 3D slice into a 4D variable at a given time index.
      !! The real32 twin of `nc_put_var_4d_slice`.
      integer, intent(in) :: ncid
      integer, intent(in) :: varid
      real(real32), intent(in) :: data(:, :, :)
      integer, intent(in) :: time_index
      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, &
                                 start=[1, 1, 1, time_index], &
                                 count=[size(data, 1), size(data, 2), size(data, 3), 1]), &
                    "writing 4D slice (real32)", ierr)

   end subroutine nc_put_var_4d_slice_r4