cavity_m_ice_from_mass Function

public pure function cavity_m_ice_from_mass(const, m_mass) result(m_ice)

Solid-ice thickness rate (m/s) from the canonical mass flux, m_ice = m_mass/rho_i. REPORTING ONLY — this is Jenkins, Nicholls & Corr (2010)’s a_b convention.

Arguments

Type IntentOptional Attributes Name
type(ocean_cavity_const_t), intent(in) :: const

Constants bundle — rho_i.
real(kind=wp), intent(in) :: m_mass

Melt mass flux (kg/m^2/s).

Return Value real(kind=wp)


Source Code

   pure function cavity_m_ice_from_mass(const, m_mass) result(m_ice)
      !! Solid-ice thickness rate (m/s) from the canonical mass flux,
      !! `m_ice = m_mass/rho_i`.  REPORTING ONLY — this is Jenkins,
      !! Nicholls & Corr (2010)'s `a_b` convention.
      !$acc routine seq
      type(ocean_cavity_const_t), intent(in) :: const
         !! Constants bundle — `rho_i`.
      real(wp), intent(in) :: m_mass
         !! Melt mass flux (kg/m^2/s).
      real(wp) :: m_ice
      m_ice = m_mass/const%rho_i
   end function cavity_m_ice_from_mass