fill_haline_driving Subroutine

public subroutine fill_haline_driving(state_handle, buf)

S* = S_far − S_b (g/kg) — the salinity contrast the haline exchange acts on. Positive under melting (meltwater freshens the interface).

Arguments

Type IntentOptional Attributes Name
class(*), intent(in) :: state_handle
real(kind=wp), intent(inout) :: buf(:,:,:)

Calls

proc~~fill_haline_driving~~CallsGraph proc~fill_haline_driving fill_haline_driving proc~cavity_diff_impl cavity_diff_impl proc~fill_haline_driving->proc~cavity_diff_impl

Source Code

   subroutine fill_haline_driving(state_handle, buf)
      !! `S* = S_far − S_b` (g/kg) — the salinity contrast the haline
      !! exchange acts on.  Positive under melting (meltwater freshens
      !! the interface).
      class(*), intent(in) :: state_handle
      real(wp), intent(inout) :: buf(:, :, :)
      select type (state => state_handle)
      class is (ocean_state_t)
         call cavity_diff_impl(state%cavity_flux%s_far, state%cavity_flux%s_b, &
                               state%cavity_flux%active, buf)
      end select
   end subroutine fill_haline_driving