write_ocean_obs_mod Module Reference

Detailed Description

Dummy interfaces for writing ODA data.

Functions/Subroutines
integer function, public	open_profile_file (name, nvar, grid_lon, grid_lat, thread, fset)
	Open a profile file. More...
subroutine, public	write_profile (unit, profile)
	Write a profile. More...
subroutine, public	close_profile_file (unit)
	Close a profile file. More...
subroutine, public	write_ocean_obs_init ()
	Initialize write_ocean_obs module.

Function/Subroutine Documentation

close_profile_file()

subroutine, public write_ocean_obs_mod::close_profile_file

(

integer, intent(in)

unit

)

Close a profile file.

Parameters

[in]

unit

File unit

Definition at line 39 of file write_ocean_obs.F90.

  integer, intent(in) :: unit !< File unit

  return

open_profile_file()

integer function, public write_ocean_obs_mod::open_profile_file	(	character(len=*), intent(in)	name,
		integer, intent(in), optional	nvar,
		real, dimension(:), intent(in), optional	grid_lon,
		real, dimension(:), intent(in), optional	grid_lat,
		integer, intent(in), optional	thread,
		integer, intent(in), optional	fset
	)

Open a profile file.

Parameters

[in]	name	File name
[in]	nvar	Number of variables
[in]	grid_lon	Longitude [degreeE]
[in]	grid_lat	Latitude [degreeN]
[in]	thread	Thread number
[in]	fset	File set

Definition at line 19 of file write_ocean_obs.F90.

  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

write_profile()

subroutine, public write_ocean_obs_mod::write_profile	(	integer, intent(in)	unit,
		type(ocean_profile_type), intent(in)	profile
	)

Write a profile.

Parameters

[in]	unit	File unit
[in]	profile	Profile to write

Definition at line 31 of file write_ocean_obs.F90.

  integer, intent(in) :: unit !< File unit
  type(ocean_profile_type), intent(in) :: profile !< Profile to write

  return