sll_m_scalar_field_1d_base.F90

Go to the documentation of this file.

module sll_m_scalar_field_1d_base
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#include "sll_working_precision.h"
 
   implicit none
 
   public :: &
      sll_c_scalar_field_1d_base
 
   private
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
   ! Fundamental field type
   type, abstract :: sll_c_scalar_field_1d_base
   contains
!     procedure(function_get_mesh_1d), deferred, pass :: get_cartesian_mesh
      procedure(function_evaluation_real_1d), deferred, pass :: value_at_point
!     procedure(function_evaluation_integer_1d), deferred, pass :: value_at_indices
      procedure(function_evaluation_real_1d), deferred, pass :: derivative_value_at_point
!     procedure(derivative_evaluation_integer), deferred, pass :: &
!          derivative_value_at_indices
      procedure(set_field_data_subroutine_1d), deferred, pass :: set_field_data
      procedure(field_1d_message_pass), deferred, pass :: update_interpolation_coefficients
!     procedure(field_1d_file_output), deferred, pass :: write_to_file
      procedure(field_1d_subroutine), deferred, pass :: delete
!     ! here we can continue with derivatives or whatever else that might
      ! be desired.
   end type sll_c_scalar_field_1d_base
 
!  type sll_scalar_field_1d_base_ptr
!     type(sll_c_scalar_field_1d_base), pointer :: base
!  end type sll_scalar_field_1d_base_ptr
 
   abstract interface
      subroutine set_field_data_subroutine_1d(field, values)
         use sll_m_working_precision
         import sll_c_scalar_field_1d_base
         class(sll_c_scalar_field_1d_base), intent(inout) :: field
         sll_real64, dimension(:), intent(in) :: values
      end subroutine set_field_data_subroutine_1d
   end interface
 
!
!  abstract interface
!     function function_get_mesh_1d(field) result(res)
!       use sll_m_cartesian_meshes
!       import sll_c_scalar_field_1d_base
!       class(sll_c_scalar_field_1d_base), intent(in) :: field
!       type(sll_t_cartesian_mesh_1d), pointer :: res  ! a implementer
!     end function function_get_mesh_1d
!  end interface
!
!
   abstract interface
      subroutine field_1d_message_pass(field)
         import sll_c_scalar_field_1d_base
         class(sll_c_scalar_field_1d_base), intent(inout) :: field
      end subroutine field_1d_message_pass
   end interface
 
   abstract interface
      function function_evaluation_real_1d(field, eta) result(res)
         use sll_m_working_precision
         import sll_c_scalar_field_1d_base
         class(sll_c_scalar_field_1d_base), intent(inout) :: field
         sll_real64, intent(in) :: eta
         sll_real64             :: res
      end function function_evaluation_real_1d
   end interface
!
!  abstract interface
!     function function_evaluation_integer_1d( field, i ) result(res)
!       use sll_m_working_precision
!       import sll_c_scalar_field_1d_base
!       class(sll_c_scalar_field_1d_base), intent(inout) :: field
!       sll_int32, intent(in)  :: i
!       sll_real64             :: res
!     end function function_evaluation_integer_1d
!  end interface
!
!  abstract interface
!     function derivative_evaluation_real( field, eta ) result(res)
!       use sll_m_working_precision
!       import sll_c_scalar_field_1d_base
!       class(sll_c_scalar_field_1d_base), intent(inout) :: field
!       sll_real64, intent(in) :: eta
!       sll_real64             :: res
!     end function derivative_evaluation_real
!  end interface
 
!  abstract interface
!     function derivative_evaluation_integer( field, i) result(res)
!       use sll_m_working_precision
!       import sll_c_scalar_field_1d_base
!       class(sll_c_scalar_field_1d_base), intent(inout) :: field
!       sll_int32, intent(in)  :: i
!       sll_real64             :: res
!     end function derivative_evaluation_integer
!  end interface
!
!
!
!!  abstract interface
!!     function return_integer( field ) result(res)
!!       use sll_m_working_precision
!!       import sll_c_scalar_field_1d_base
!!       class(sll_c_scalar_field_1d_base), intent(in) :: field
!!       sll_int32             :: res
!!     end function return_integer
!!  end interface
!
!  abstract interface
!     subroutine field_1d_file_output( field, tag )
!       use sll_m_working_precision
!       import sll_c_scalar_field_1d_base
!       class(sll_c_scalar_field_1d_base), intent(inout) :: field
!       sll_int32, intent(in)                       :: tag
!     end subroutine field_1d_file_output
!  end interface
!
   abstract interface
      subroutine field_1d_subroutine(field)
         import sll_c_scalar_field_1d_base
         class(sll_c_scalar_field_1d_base), intent(inout) :: field
      end subroutine field_1d_subroutine
   end interface
!
end module sll_m_scalar_field_1d_base