ocean_pressure_force_enter_data_impl Subroutine

private subroutine ocean_pressure_force_enter_data_impl(this)

Arguments

Type IntentOptional Attributes Name
type(ocean_pressure_force_t), intent(inout) :: this

Calls

proc~~ocean_pressure_force_enter_data_impl~~CallsGraph proc~ocean_pressure_force_enter_data_impl ocean_pressure_force_enter_data_impl proc~scratch_3d_buffer_enter_data_impl scratch_3d_buffer_enter_data_impl proc~ocean_pressure_force_enter_data_impl->proc~scratch_3d_buffer_enter_data_impl

Called by

proc~~ocean_pressure_force_enter_data_impl~~CalledByGraph proc~ocean_pressure_force_enter_data_impl ocean_pressure_force_enter_data_impl proc~ocean_pressure_force_enter_data ocean_pressure_force_t%ocean_pressure_force_enter_data proc~ocean_pressure_force_enter_data->proc~ocean_pressure_force_enter_data_impl

Source Code

   subroutine ocean_pressure_force_enter_data_impl(this)
      type(ocean_pressure_force_t), intent(inout) :: this
      call scratch_3d_buffer_enter_data_impl(this%p_edge)
      call scratch_3d_buffer_enter_data_impl(this%z_centre)
      call scratch_3d_buffer_enter_data_impl(this%mont_M)
      call scratch_3d_buffer_enter_data_impl(this%rho_insitu)
      call scratch_3d_buffer_enter_data_impl(this%dpdx_face)
      call scratch_3d_buffer_enter_data_impl(this%dpdy_face)
      call scratch_3d_buffer_enter_data_impl(this%e_face)
      call scratch_3d_buffer_enter_data_impl(this%pa)
      call scratch_3d_buffer_enter_data_impl(this%intz_dpa)
      call scratch_3d_buffer_enter_data_impl(this%intx_pa)
      call scratch_3d_buffer_enter_data_impl(this%inty_pa)
      call scratch_3d_buffer_enter_data_impl(this%intx_dpa)
      call scratch_3d_buffer_enter_data_impl(this%inty_dpa)
      call scratch_3d_buffer_enter_data_impl(this%conc_T)
      call scratch_3d_buffer_enter_data_impl(this%conc_S)
      call scratch_3d_buffer_enter_data_impl(this%recon_T_t)
      call scratch_3d_buffer_enter_data_impl(this%recon_T_b)
      call scratch_3d_buffer_enter_data_impl(this%recon_S_t)
      call scratch_3d_buffer_enter_data_impl(this%recon_S_b)
      !$acc enter data copyin(this%b)
   end subroutine ocean_pressure_force_enter_data_impl