cavity_m_weq_from_mass Function

public pure function cavity_m_weq_from_mass(const, m_mass) result(m_weq)

Freshwater-equivalent thickness rate (m/s) from the canonical mass flux, m_weq = m_mass/rho_fw. REPORTING ONLY — this is ISOMIP+’s m_w (Asay-Davis et al. (2016) eq. (24) p. 2485), the number their figures are in.

Arguments

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

Constants bundle — rho_fw.
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_weq_from_mass(const, m_mass) result(m_weq)
      !! Freshwater-equivalent thickness rate (m/s) from the canonical
      !! mass flux, `m_weq = m_mass/rho_fw`.  REPORTING ONLY — this is
      !! ISOMIP+'s `m_w` (Asay-Davis et al. (2016) eq. (24) p. 2485), the
      !! number their figures are in.
      !$acc routine seq
      type(ocean_cavity_const_t), intent(in) :: const
         !! Constants bundle — `rho_fw`.
      real(wp), intent(in) :: m_mass
         !! Melt mass flux (kg/m^2/s).
      real(wp) :: m_weq
      m_weq = m_mass/const%rho_fw
   end function cavity_m_weq_from_mass