mom_diag_manager_wrapper Module Reference

Detailed Description

A simple (very thin) wrapper for register_diag_field to avoid a compiler bug with PGI.

This module simply wraps register_diag_field() from FMS's diag_manager_mod. We used to be able to import register_diag_field and rename it to register_diag_field_fms with a simple "use, only : register_diag_field_fms => register_diag_field" but PGI 16.5 has a bug that refuses to compile this - earlier versions did work.

Data Types
interface	register_diag_field_fms
	A wrapper for register_diag_field_array() More...

Functions/Subroutines
integer function	register_diag_field_array_fms (module_name, field_name, axes, init_time, long_name, units, missing_value, range, mask_variant, standard_name, verbose, do_not_log, err_msg, interp_method, tile_count, area, volume)
	An integer handle for a diagnostic array returned by register_diag_field() More...
integer function	register_diag_field_scalar_fms (module_name, field_name, init_time, long_name, units, missing_value, range, mask_variant, standard_name, verbose, do_not_log, err_msg, interp_method, tile_count, area, volume)
	An integer handle for a diagnostic scalar array returned by register_diag_field() More...

Function/Subroutine Documentation

register_diag_field_array_fms()

integer function mom_diag_manager_wrapper::register_diag_field_array_fms ( character(len=*), intent(in)  module_name, character(len=*), intent(in)  field_name, integer, dimension(:), intent(in)  axes, type(time_type), intent(in)  init_time, character(len=*), intent(in), optional  long_name, character(len=*), intent(in), optional  units, real, intent(in), optional  missing_value, real, dimension(2), intent(in), optional  range, logical, intent(in), optional  mask_variant, character(len=*), intent(in), optional  standard_name, logical, intent(in), optional  verbose, logical, intent(in), optional  do_not_log, character(len=*), intent(out), optional  err_msg, character(len=*), intent(in), optional  interp_method, integer, intent(in), optional  tile_count, integer, intent(in), optional  area, integer, intent(in), optional  volume  )

private

An integer handle for a diagnostic array returned by register_diag_field()

Parameters

[in]	module_name	Name of this module, usually "ocean_model" or "ice_shelf_model"
[in]	field_name	Name of the diagnostic field
[in]	axes	Container w/ up to 3 integer handles that indicates axes for this field
[in]	init_time	Time at which a field is first available?
[in]	long_name	Long name of a field.
[in]	units	Units of a field.
[in]	standard_name	Standardized name associated with a field
[in]	missing_value	A value that indicates missing values.
[in]	range	Valid range of a variable (not used in MOM?)
[in]	mask_variant	If true a logical mask must be provided with post_data calls (not used in MOM?)
[in]	verbose	If true, FMS is verbose (not used in MOM?)
[in]	do_not_log	If true, do not log something (not used in MOM?)
[out]	err_msg	String into which an error message might be placed (not used in MOM?)
[in]	interp_method	If 'none' indicates the field should not be interpolated as a scalar
[in]	tile_count	no clue (not used in MOM?)
[in]	area	The FMS id of cell area
[in]	volume	The FMS id of cell volume

Definition at line 24 of file MOM_diag_manager_wrapper.F90.

  character(len=*), intent(in) :: module_name             !< Name of this module, usually "ocean_model" or
                                                          !! "ice_shelf_model"
  character(len=*), intent(in) :: field_name              !< Name of the diagnostic field
  integer,          intent(in) :: axes(:)                 !< Container w/ up to 3 integer handles that
                                                          !! indicates axes for this field
  type(time_type),  intent(in) :: init_time               !< Time at which a field is first available?
  character(len=*), optional, intent(in) :: long_name     !< Long name of a field.
  character(len=*), optional, intent(in) :: units         !< Units of a field.
  character(len=*), optional, intent(in) :: standard_name !< Standardized name associated with a field
  real,             optional, intent(in) :: missing_value !< A value that indicates missing values.
  real,             optional, intent(in) :: range(2)      !< Valid range of a variable (not used in MOM?)
  logical,          optional, intent(in) :: mask_variant  !< If true a logical mask must be provided with
                                                          !! post_data calls (not used in MOM?)
  logical,          optional, intent(in) :: verbose       !< If true, FMS is verbose (not used in MOM?)
  logical,          optional, intent(in) :: do_not_log    !< If true, do not log something (not used in MOM?)
  character(len=*), optional, intent(out):: err_msg       !< String into which an error message might be
                                                          !! placed (not used in MOM?)
  character(len=*), optional, intent(in) :: interp_method !< If 'none' indicates the field should not be
                                                          !! interpolated as a scalar
  integer,          optional, intent(in) :: tile_count    !< no clue (not used in MOM?)
  integer,          optional, intent(in) :: area          !< The FMS id of cell area
  integer,          optional, intent(in) :: volume        !< The FMS id of cell volume
  ! Local variables
 
  register_diag_field_array_fms = register_diag_field(module_name, field_name, axes,   &
             init_time, long_name=long_name, units=units, missing_value=missing_value, &
             mask_variant=mask_variant, standard_name=standard_name,                   &
             verbose=verbose, do_not_log=do_not_log, err_msg=err_msg,                  &
             area=area, volume=volume, interp_method=interp_method)
 

register_diag_field_scalar_fms()

integer function mom_diag_manager_wrapper::register_diag_field_scalar_fms ( character(len=*), intent(in)  module_name, character(len=*), intent(in)  field_name, type(time_type), intent(in)  init_time, character(len=*), intent(in), optional  long_name, character(len=*), intent(in), optional  units, real, intent(in), optional  missing_value, real, dimension(2), intent(in), optional  range, logical, intent(in), optional  mask_variant, character(len=*), intent(in), optional  standard_name, logical, intent(in), optional  verbose, logical, intent(in), optional  do_not_log, character(len=*), intent(out), optional  err_msg, character(len=*), intent(in), optional  interp_method, integer, intent(in), optional  tile_count, integer, intent(in), optional  area, integer, intent(in), optional  volume  )

private

An integer handle for a diagnostic scalar array returned by register_diag_field()

Parameters

[in]	module_name	Name of this module, usually "ocean_model" or "ice_shelf_model"
[in]	field_name	Name of the diagnostic field
[in]	init_time	Time at which a field is first available?
[in]	long_name	Long name of a field.
[in]	units	Units of a field.
[in]	standard_name	Standardized name associated with a field
[in]	missing_value	A value that indicates missing values.
[in]	range	Valid range of a variable (not used in MOM?)
[in]	mask_variant	If true a logical mask must be provided with post_data calls (not used in MOM?)
[in]	verbose	If true, FMS is verbose (not used in MOM?)
[in]	do_not_log	If true, do not log something (not used in MOM?)
[out]	err_msg	String into which an error message might be placed (not used in MOM?)
[in]	interp_method	If 'none' indicates the field should not be interpolated as a scalar
[in]	tile_count	no clue (not used in MOM?)
[in]	area	The FMS id of cell area (not used for scalars)
[in]	volume	The FMS id of cell volume (not used for scalars)

Definition at line 60 of file MOM_diag_manager_wrapper.F90.

  character(len=*), intent(in) :: module_name             !< Name of this module, usually "ocean_model"
                                                          !! or "ice_shelf_model"
  character(len=*), intent(in) :: field_name              !< Name of the diagnostic field
  type(time_type),  intent(in) :: init_time               !< Time at which a field is first available?
  character(len=*), optional, intent(in) :: long_name     !< Long name of a field.
  character(len=*), optional, intent(in) :: units         !< Units of a field.
  character(len=*), optional, intent(in) :: standard_name !< Standardized name associated with a field
  real,             optional, intent(in) :: missing_value !< A value that indicates missing values.
  real,             optional, intent(in) :: range(2)      !< Valid range of a variable (not used in MOM?)
  logical,          optional, intent(in) :: mask_variant  !< If true a logical mask must be provided with
                                                          !! post_data calls (not used in MOM?)
  logical,          optional, intent(in) :: verbose       !< If true, FMS is verbose (not used in MOM?)
  logical,          optional, intent(in) :: do_not_log    !< If true, do not log something (not used in MOM?)
  character(len=*), optional, intent(out):: err_msg       !< String into which an error message might
                                                          !! be placed (not used in MOM?)
  character(len=*), optional, intent(in) :: interp_method !< If 'none' indicates the field should not
                                                          !! be interpolated as a scalar
  integer,          optional, intent(in) :: tile_count    !< no clue (not used in MOM?)
  integer,          optional, intent(in) :: area          !< The FMS id of cell area (not used for scalars)
  integer,          optional, intent(in) :: volume        !< The FMS id of cell volume (not used for scalars)
  ! Local variables
 
  register_diag_field_scalar_fms = register_diag_field(module_name, field_name,        &
             init_time, long_name=long_name, units=units, missing_value=missing_value, &
             standard_name=standard_name, do_not_log=do_not_log, err_msg=err_msg)