fill_exch_vel_t Subroutine

public subroutine fill_exch_vel_t(state_handle, buf)

Thermal exchange velocity gamma_T (m/s) the solve CONVERGED on — not Gamma_T·u* re-derived here. Under hj99/yung25 the two differ by the stratification suppression.

Arguments

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

Calls

proc~~fill_exch_vel_t~~CallsGraph proc~fill_exch_vel_t fill_exch_vel_t proc~cavity_mask_impl cavity_mask_impl proc~fill_exch_vel_t->proc~cavity_mask_impl

Source Code

   subroutine fill_exch_vel_t(state_handle, buf)
      !! Thermal exchange velocity `gamma_T` (m/s) the solve CONVERGED
      !! on — not `Gamma_T·u*` re-derived here.  Under `hj99`/`yung25`
      !! the two differ by the stratification suppression.
      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%gamma_t, state%cavity_flux%active, buf)
      end select
   end subroutine fill_exch_vel_t