MOM6
ocean_da_core_mod Module Reference

Detailed Description

A set of dummy interfaces for compiling the MOM6 DA driver code.

Functions/Subroutines

subroutine, public ocean_da_core_init (Domain, global_grid, Profiles, model_time)
 Initializes the MOM6 DA driver code. More...
 
subroutine, public get_profiles (model_time, Profiles, Current_profiles)
 Get profiles obs within the current analysis interval. More...
 

Function/Subroutine Documentation

◆ get_profiles()

subroutine, public ocean_da_core_mod::get_profiles ( type(time_type), intent(in)  model_time,
type(ocean_profile_type), pointer  Profiles,
type(ocean_profile_type), pointer  Current_profiles 
)

Get profiles obs within the current analysis interval.

Parameters
[in]model_timeThe current analysis time.
profilesThe full recursive list of profiles.
current_profilesA returned list of profiles for the current analysis step.

Definition at line 35 of file ocean_da_core.F90.

35  type(time_type), intent(in) :: model_time !< The current analysis time.
36  type(ocean_profile_type), pointer :: Profiles !< The full recursive list of profiles.
37  type(ocean_profile_type), pointer :: Current_profiles !< A returned list of profiles for the
38  !! current analysis step.
39 
40  profiles=>null()
41  current_profiles=>null()
42 
43  return

◆ ocean_da_core_init()

subroutine, public ocean_da_core_mod::ocean_da_core_init ( type(domain2d), intent(in), pointer  Domain,
type(grid_type), intent(in), pointer  global_grid,
type(ocean_profile_type), pointer  Profiles,
type(time_type), intent(in)  model_time 
)

Initializes the MOM6 DA driver code.

Parameters
[in]domainA MOM domain type
[in]global_gridThe global ODA horizontal grid type
profilesThis 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).
[in]model_timeThe current model time type.

Definition at line 19 of file ocean_da_core.F90.

19  type(domain2D), pointer, intent(in) :: Domain !< A MOM domain type
20  type(grid_type), pointer, intent(in) :: global_grid !< The global ODA horizontal grid type
21  type(ocean_profile_type), pointer :: Profiles !< This is an unstructured recursive list of profiles
22  !! which are either within the localized domain corresponding
23  !! to the Domain argument, or the global profile list (type).
24  type(time_type), intent(in) :: model_time !< The current model time type.
25 
26 
27 
28  profiles=>null()
29  return