fill_z_draft Subroutine

public subroutine fill_z_draft(state_handle, buf)

Ice-shelf draft (m, POSITIVE DOWN from the geoid) — geometry, so it needs only &ocean_cavity_dyn_nml and is masked by cover_frac rather than by the melt slot’s active. Beyond the calving front there is no draft, which is missing data, not a draft of zero.

Arguments

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

Calls

proc~~fill_z_draft~~CallsGraph proc~fill_z_draft fill_z_draft proc~cavity_mask_impl cavity_mask_impl proc~fill_z_draft->proc~cavity_mask_impl

Source Code

   subroutine fill_z_draft(state_handle, buf)
      !! Ice-shelf draft (m, POSITIVE DOWN from the geoid) — geometry,
      !! so it needs only `&ocean_cavity_dyn_nml` and is masked by
      !! `cover_frac` rather than by the melt slot's `active`.  Beyond
      !! the calving front there is no draft, which is missing data, not
      !! a draft of zero.
      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%metrics%z_draft, state%metrics%cover_frac, buf)
      end select
   end subroutine fill_z_draft