none_manipulation.F90

Go to the documentation of this file.

module none_time_manipulation_mod
  use datadefn_mod, only : default_precision, string_length
  use collections_mod, only : hashmap_type, c_put_real, c_get_real, c_contains
  use conversions_mod, only : conv_single_real_to_double
  use forthread_mod, only : forthread_mutex_init, forthread_mutex_lock, forthread_mutex_unlock, forthread_mutex_destroy
  use threadpool_mod, only : check_thread_status 
  use configuration_parser_mod, only : data_values_type
  implicit none

#ifndef TEST_MODE
  private
#endif

  public perform_none_time_manipulation, is_none_time_manipulation_ready_to_write
contains

  logical function is_none_time_manipulation_ready_to_write(latest_time, output_frequency, write_time, &
       latest_timestep, write_timestep)
    real, intent(in) :: latest_time, output_frequency, write_time
    integer, intent(in) :: latest_timestep, write_timestep

    is_none_time_manipulation_ready_to_write=latest_timestep .ge. write_timestep
  end function is_none_time_manipulation_ready_to_write  

  type(data_values_type) function perform_none_time_manipulation(instant_values, output_frequency, &
       field_name, timestep, time)
    real(kind=DEFAULT_PRECISION), dimension(:), intent(in) :: instant_values
    real, intent(in) :: output_frequency
    real(kind=DEFAULT_PRECISION), intent(in) :: time
    character(len=*), intent(in) :: field_name
    integer, intent(in) :: timestep

    allocate(perform_none_time_manipulation%values(size(instant_values)))
    perform_none_time_manipulation%values=instant_values
  end function perform_none_time_manipulation 
end module none_time_manipulation_mod