fill_tbdry Subroutine

public subroutine fill_tbdry(state_handle, buf)

Interface temperature T_b (degC) — on the liquidus at S_b.

Arguments

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

Calls

proc~~fill_tbdry~~CallsGraph proc~fill_tbdry fill_tbdry proc~cavity_mask_impl cavity_mask_impl proc~fill_tbdry->proc~cavity_mask_impl

Source Code

   subroutine fill_tbdry(state_handle, buf)
      !! Interface temperature `T_b` (degC) — on the liquidus at `S_b`.
      class(*), intent(in) :: state_handle
      real(wp), intent(inout) :: buf(:, :, :)
      select type (state => state_handle)
      class is (ocean_state_t)
         call cavity_mask_impl(state%cavity_flux%t_b, state%cavity_flux%active, buf)
      end select
   end subroutine fill_tbdry