write_ocean_obs.F90

1! This file is part of MOM6, the Modular Ocean Model version 6.
2! See the LICENSE file for licensing information.
3! SPDX-License-Identifier: Apache-2.0
4
5!> Dummy interfaces for writing ODA data
7
9use mom_time_manager, only : time_type, get_time, set_date
10
11implicit none ; private
12
14
15contains
16
17!> Open a profile file
18integer function open_profile_file(name, nvar, grid_lon, grid_lat, thread, fset)
19 character(len=*), intent(in) :: name !< File name
20 integer, intent(in), optional :: nvar !< Number of variables
21 real, dimension(:), optional, intent(in) :: grid_lon !< Longitude [degreeE]
22 real, dimension(:), optional, intent(in) :: grid_lat !< Latitude [degreeN]
23 integer, optional, intent(in) :: thread !< Thread number
24 integer, optional, intent(in) :: fset !< File set
25
27end function open_profile_file
28
29!> Write a profile
30subroutine write_profile(unit,profile)
31 integer, intent(in) :: unit !< File unit
32 type(ocean_profile_type), intent(in) :: profile !< Profile to write
33
34 return
35end subroutine write_profile
36
37!> Close a profile file
38subroutine close_profile_file(unit)
39 integer, intent(in) :: unit !< File unit
40
41 return
42end subroutine close_profile_file
43
44!> Initialize write_ocean_obs module
45subroutine write_ocean_obs_init()
46
47 return
48end subroutine write_ocean_obs_init
49
50end module write_ocean_obs_mod