mom_eos::calculate_tfreeze Interface Reference

Detailed Description

Calculates the freezing point of sea water from T, S and P.

Definition at line 81 of file MOM_EOS.F90.

Private functions
subroutine	calculate_tfreeze_scalar (S, pressure, T_fr, EOS)
	Calls the appropriate subroutine to calculate the freezing point for scalar inputs. More...
subroutine	calculate_tfreeze_array (S, pressure, T_fr, start, npts, EOS)
	Calls the appropriate subroutine to calculate the freezing point for a 1-D array. More...

Functions and subroutines

calculate_tfreeze_array()

subroutine mom_eos::calculate_tfreeze::calculate_tfreeze_array ( real, dimension(:), intent(in)  S, real, dimension(:), intent(in)  pressure, real, dimension(:), intent(out)  T_fr, integer, intent(in)  start, integer, intent(in)  npts, type(eos_type), pointer  EOS  )

private

Calls the appropriate subroutine to calculate the freezing point for a 1-D array.

Parameters

[in]	s	Salinity [ppt]
[in]	pressure	Pressure [Pa]
[out]	t_fr	Freezing point potential temperature referenced to the surface [degC]
[in]	start	Starting index within the array
[in]	npts	The number of values to calculate
	eos	Equation of state structure

Definition at line 339 of file MOM_EOS.F90.

  real, dimension(:), intent(in)  :: S !< Salinity [ppt]
  real, dimension(:), intent(in)  :: pressure !< Pressure [Pa]
  real, dimension(:), intent(out) :: T_fr !< Freezing point potential temperature referenced
                                          !! to the surface [degC]
  integer,            intent(in)  :: start !< Starting index within the array
  integer,            intent(in)  :: npts !< The number of values to calculate
  type(EOS_type),     pointer     :: EOS !< Equation of state structure
 
  if (.not.associated(eos)) call mom_error(fatal, &
    "calculate_TFreeze_scalar called with an unassociated EOS_type EOS.")
 
  select case (eos%form_of_TFreeze)
    case (tfreeze_linear)
      call calculate_tfreeze_linear(s, pressure, t_fr, start, npts, &
                                    eos%TFr_S0_P0, eos%dTFr_dS, eos%dTFr_dp)
    case (tfreeze_millero)
      call calculate_tfreeze_millero(s, pressure, t_fr, start, npts)
    case (tfreeze_teos10)
      call calculate_tfreeze_teos10(s, pressure, t_fr, start, npts)
    case default
      call mom_error(fatal, &
           "calculate_TFreeze_scalar: form_of_TFreeze is not valid.")
  end select
 

calculate_tfreeze_scalar()

subroutine mom_eos::calculate_tfreeze::calculate_tfreeze_scalar ( real, intent(in)  S, real, intent(in)  pressure, real, intent(out)  T_fr, type(eos_type), pointer  EOS  )

private

Calls the appropriate subroutine to calculate the freezing point for scalar inputs.

Parameters

[in]	s	Salinity [ppt]
[in]	pressure	Pressure [Pa]
[out]	t_fr	Freezing point potential temperature referenced to the surface [degC]
	eos	Equation of state structure

Definition at line 313 of file MOM_EOS.F90.

  real,           intent(in)  :: S !< Salinity [ppt]
  real,           intent(in)  :: pressure !< Pressure [Pa]
  real,           intent(out) :: T_fr !< Freezing point potential temperature referenced
                                      !! to the surface [degC]
  type(EOS_type), pointer     :: EOS !< Equation of state structure
 
  if (.not.associated(eos)) call mom_error(fatal, &
    "calculate_TFreeze_scalar called with an unassociated EOS_type EOS.")
 
  select case (eos%form_of_TFreeze)
    case (tfreeze_linear)
      call calculate_tfreeze_linear(s, pressure, t_fr, eos%TFr_S0_P0, &
                                    eos%dTFr_dS, eos%dTFr_dp)
    case (tfreeze_millero)
      call calculate_tfreeze_millero(s, pressure, t_fr)
    case (tfreeze_teos10)
      call calculate_tfreeze_teos10(s, pressure, t_fr)
    case default
      call mom_error(fatal, &
           "calculate_TFreeze_scalar: form_of_TFreeze is not valid.")
  end select
 

---

The documentation for this interface was generated from the following file:

• /glade/work/altuntas/cesm.sandboxes/cesm2_2_alpha_X_mom/components/mom/MOM6/src/equation_of_state/MOM_EOS.F90