writer_field_manager_mod::provide_field_to_writer_federator Interface Reference

Private Member Functions
subroutine	provide_field_to_writer_federator_rvalues_src (io_configuration, field_name, field_namespace, field_values, timestep, time, frequency, source)
subroutine	provide_field_to_writer_federator_rvalues_nosrc (io_configuration, field_name, field_namespace, field_values, timestep, time, frequency)
subroutine	provide_field_to_writer_federator_src (io_configuration, field_name, field_namespace, field_values, timestep, time, frequency, source, terminated_case)
	Provides a field to the write federator (a collective diagnostic or prognostic) More...
subroutine	provide_field_to_writer_federator_nosrc (io_configuration, field_name, field_namespace, field_values, timestep, time, frequency)
	Provides a field to the write federator with no source (a none collective diagnostic) More...

Detailed Description

Definition at line 43 of file writer_field_manager.F90.

Member Function/Subroutine Documentation

provide_field_to_writer_federator_nosrc()

subroutine writer_field_manager_mod::provide_field_to_writer_federator::provide_field_to_writer_federator_nosrc ( type(io_configuration_type), intent(inout)  io_configuration, character(len=*), intent(in)  field_name, character(len=*), intent(in)  field_namespace, type(data_values_type), intent(inout)  field_values, integer, intent(in)  timestep, real(kind=default_precision), intent(in)  time, integer, intent(in)  frequency  )

private

Provides a field to the write federator with no source (a none collective diagnostic)

Parameters

io_configuration	The IO server configuration
field_name	The field name
field_values	The fields values
timestep	The corresponding model timestep
time	Corresponding MONC model time
frequency	Configured sampling frequency

Definition at line 257 of file writer_field_manager.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
    character(len=*), intent(in) :: field_name, field_namespace
    integer, intent(in) :: timestep, frequency
    type(data_values_type), intent(inout) :: field_values
    real(kind=default_precision), intent(in) :: time
 
    call provide_field_to_writer_federator_src(io_configuration, field_name, field_namespace, &
         field_values, timestep, time, frequency, -1)

provide_field_to_writer_federator_rvalues_nosrc()

subroutine writer_field_manager_mod::provide_field_to_writer_federator::provide_field_to_writer_federator_rvalues_nosrc ( type(io_configuration_type), intent(inout)  io_configuration, character(len=*), intent(in)  field_name, character(len=*), intent(in)  field_namespace, real(kind=default_precision), dimension(:), intent(in)  field_values, integer, intent(in)  timestep, real(kind=default_precision), intent(in)  time, integer, intent(in)  frequency  )

private

Definition at line 238 of file writer_field_manager.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
    character(len=*), intent(in) :: field_name, field_namespace
    integer, intent(in) :: timestep, frequency
    real(kind=default_precision), dimension(:), intent(in) :: field_values
    real(kind=default_precision), intent(in) :: time
 
    call provide_field_to_writer_federator_rvalues_src(io_configuration, field_name, field_namespace, &
         field_values, timestep, time, frequency, -1)

provide_field_to_writer_federator_rvalues_src()

subroutine writer_field_manager_mod::provide_field_to_writer_federator::provide_field_to_writer_federator_rvalues_src ( type(io_configuration_type), intent(inout)  io_configuration, character(len=*), intent(in)  field_name, character(len=*), intent(in)  field_namespace, real(kind=default_precision), dimension(:), intent(in)  field_values, integer, intent(in)  timestep, real(kind=default_precision), intent(in)  time, integer, intent(in)  frequency, integer, intent(in)  source  )

private

Definition at line 221 of file writer_field_manager.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
    character(len=*), intent(in) :: field_name, field_namespace
    integer, intent(in) :: timestep, frequency, source
    real(kind=default_precision), dimension(:), intent(in) :: field_values
    real(kind=default_precision), intent(in) :: time
 
    type(data_values_type) :: packaged_data
    
    allocate(packaged_data%values(size(field_values)))
    packaged_data%values=field_values
    packaged_data%data_type=double_data_type
    call provide_field_to_writer_federator_src(io_configuration, field_name, field_namespace, packaged_data, &
         timestep, time, frequency, source)

provide_field_to_writer_federator_src()

subroutine writer_field_manager_mod::provide_field_to_writer_federator::provide_field_to_writer_federator_src ( type(io_configuration_type), intent(inout)  io_configuration, character(len=*), intent(in)  field_name, character(len=*), intent(in)  field_namespace, type(data_values_type), intent(inout)  field_values, integer, intent(in)  timestep, real(kind=default_precision), intent(in)  time, integer, intent(in)  frequency, integer, intent(in)  source, logical, intent(in), optional  terminated_case  )

private

Provides a field to the write federator (a collective diagnostic or prognostic)

Parameters

io_configuration	The IO server configuration
field_name	The field name
field_values	The fields values
timestep	The corresponding model timestep
time	Corresponding MONC model time
frequency	Configured sampling frequency
source	The MONC source ID

Definition at line 277 of file writer_field_manager.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
    character(len=*), intent(in) :: field_name, field_namespace
    integer, intent(in) :: timestep, frequency, source
    type(data_values_type), intent(inout) :: field_values
    real(kind=default_precision), intent(in) :: time
    logical, intent(in), optional :: terminated_case
 
    type(field_ordering_type), pointer :: field_ordering
    class(*), pointer :: generic
    logical :: this_is_termination
 
    if (present(terminated_case)) then
      this_is_termination=terminated_case
    else
      this_is_termination=.false.
    end if
 
    field_ordering=>get_or_add_field_ordering(field_name, field_namespace, frequency, source)
    call check_thread_status(forthread_mutex_lock(field_ordering%access_mutex))
    if (timestep == field_ordering%last_timestep_access + frequency .or. this_is_termination) then
      if (.not. this_is_termination) field_ordering%last_timestep_access=timestep
      call provide_ordered_field_to_writer_federator(io_configuration, field_name, field_namespace, &
           field_values, timestep, time, source)
      if (allocated(field_values%values)) deallocate(field_values%values)      
    else
      generic=>generate_value_container(field_name, field_namespace, field_values, timestep, time, frequency, source)
      call c_put_generic(field_ordering%timestep_to_value, conv_to_string(timestep), generic, .false.)
    end if
    call process_queued_items(io_configuration, field_ordering)
    call check_thread_status(forthread_mutex_unlock(field_ordering%access_mutex))

---

The documentation for this interface was generated from the following file:

• io/src/writers/writer_field_manager.F90