nc_put_att_real_r4 Subroutine

public subroutine nc_put_att_real_r4(ncid, varid, name, value, ierr)

Write a 32-bit real attribute to a variable. NetCDF rejects a _FillValue whose type differs from the variable’s, so a variable defined with NC_R4 must have its _FillValue / missing_value written through here, not through nc_put_att_real (real64).

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
integer, intent(in) :: varid
character(len=*), intent(in) :: name
real(kind=real32), intent(in) :: value
integer, intent(out), optional :: ierr

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

Calls

proc~~nc_put_att_real_r4~~CallsGraph proc~nc_put_att_real_r4 nc_put_att_real_r4 nf90_put_att nf90_put_att proc~nc_put_att_real_r4->nf90_put_att proc~nc_check nc_check proc~nc_put_att_real_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_att_real_r4~~CalledByGraph proc~nc_put_att_real_r4 nc_put_att_real_r4 proc~open_stream open_stream proc~open_stream->proc~nc_put_att_real_r4 proc~engine_configure_diag engine_configure_diag proc~engine_configure_diag->proc~open_stream proc~engine_setup engine_setup proc~engine_setup->proc~engine_configure_diag proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_setup proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean proc~rdb_ocean_create_finalize rdb_ocean_create_finalize proc~rdb_ocean_create_finalize->proc~complete_ocean_create proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~complete_ocean_create

Source Code

   subroutine nc_put_att_real_r4(ncid, varid, name, value, ierr)
      !! Write a 32-bit real attribute to a variable.  NetCDF rejects a
      !! `_FillValue` whose type differs from the variable's, so a variable
      !! defined with `NC_R4` must have its `_FillValue` / `missing_value`
      !! written through here, not through `nc_put_att_real` (real64).
      integer, intent(in) :: ncid
      integer, intent(in) :: varid
      character(len=*), intent(in) :: name
      real(real32), intent(in) :: value
      integer, intent(out), optional :: ierr
         !! Non-zero on failure when present; absent behaves as today
         !! (`error stop`).

      call nc_check(nf90_put_att(ncid, varid, name, value), &
                    "writing real32 attribute "//trim(name), ierr)

   end subroutine nc_put_att_real_r4