ocean_da_core.F90

!> A set of dummy interfaces for compiling the MOM6 DA driver code.
module ocean_da_core_mod
  ! MOM modules
  use mom_domains, only : mom_domain_type, domain2d
  use mom_time_manager, only : time_type, set_time, get_date
  ! ODA_tools modules
  use ocean_da_types_mod, only : ocean_profile_type, grid_type
  use kdtree, only : kd_root
 
  implicit none
  private
  public :: ocean_da_core_init
  public :: get_profiles
 
contains
 
  !> Initializes the MOM6 DA driver code.
  subroutine ocean_da_core_init(Domain, global_grid, Profiles, model_time)
    type(domain2d), pointer, intent(in) :: domain !< A MOM domain type
    type(grid_type), pointer, intent(in) :: global_grid !< The global ODA horizontal grid type
    type(ocean_profile_type), pointer :: profiles  !< This is an unstructured recursive list of profiles
                                          !! which are either within the localized domain corresponding
                                          !! to the Domain argument, or the global profile list (type).
    type(time_type), intent(in) :: model_time !< The current model time type.
 
 
 
    profiles=>null()
    return
  end subroutine ocean_da_core_init
 
 
  !> Get profiles obs within the current analysis interval
  subroutine get_profiles(model_time, Profiles, Current_profiles)
    type(time_type), intent(in) :: model_time !< The current analysis time.
    type(ocean_profile_type), pointer :: profiles !< The full recursive list of profiles.
    type(ocean_profile_type), pointer :: current_profiles !< A returned list of profiles for the
                                                          !! current analysis step.
 
    profiles=>null()
    current_profiles=>null()
 
    return
  end subroutine get_profiles
 
 
end module ocean_da_core_mod