fill_cavity_melt_status Subroutine

public subroutine fill_cavity_melt_status(state_handle, buf)

Per-column CAVITY_MELT_* status code, as a real. 0 is OK; anything else is a column that took the kernel’s documented zero-melt safe state, and the console’s warning line says how many there were. Masked like the rest, so the plane cannot be read as “everything is fine” over open ocean.

Arguments

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

Calls

proc~~fill_cavity_melt_status~~CallsGraph proc~fill_cavity_melt_status fill_cavity_melt_status proc~cavity_status_impl cavity_status_impl proc~fill_cavity_melt_status->proc~cavity_status_impl

Source Code

   subroutine fill_cavity_melt_status(state_handle, buf)
      !! Per-column `CAVITY_MELT_*` status code, as a real.  `0` is OK;
      !! anything else is a column that took the kernel's documented
      !! zero-melt safe state, and the console's warning line says how
      !! many there were.  Masked like the rest, so the plane cannot be
      !! read as "everything is fine" over open ocean.
      class(*), intent(in) :: state_handle
      real(wp), intent(inout) :: buf(:, :, :)
      select type (state => state_handle)
      class is (ocean_state_t)
         call cavity_status_impl(state%cavity_flux%status, state%cavity_flux%active, buf)
      end select
   end subroutine fill_cavity_melt_status