write_ocean_obs.F90

!> Dummy interfaces for writing ODA data
module write_ocean_obs_mod


 use ocean_da_types_mod, only : ocean_profile_type
 use mom_time_manager, only : time_type, get_time, set_date

 implicit none

 private

 public :: open_profile_file, write_profile, close_profile_file, &
            write_ocean_obs_init

contains

!> Open a profile file
integer function open_profile_file(name, nvar, grid_lon, grid_lat, thread, fset)
  character(len=*), intent(in) :: name !< File name
  integer, intent(in), optional :: nvar !< Number of variables
  real, dimension(:), optional, intent(in) :: grid_lon !< Longitude [degreeE]
  real, dimension(:), optional, intent(in) :: grid_lat !< Latitude [degreeN]
  integer, optional, intent(in) :: thread !< Thread number
  integer, optional, intent(in) :: fset !< File set

  open_profile_file=-1
end function open_profile_file

!> Write a profile
subroutine write_profile(unit,profile)
  integer, intent(in) :: unit !< File unit
  type(ocean_profile_type), intent(in) :: profile !< Profile to write

  return
end subroutine write_profile

!> Close a profile file
subroutine close_profile_file(unit)
  integer, intent(in) :: unit !< File unit

  return
end subroutine close_profile_file

!> Initialize write_ocean_obs module
subroutine write_ocean_obs_init()

  return
end subroutine write_ocean_obs_init

end module write_ocean_obs_mod