ocean_cavity_flux_enter_data_impl Subroutine

private subroutine ocean_cavity_flux_enter_data_impl(this)

copyin (not create) throughout: f_cor carries a configure-time host fill that MUST reach the device, and the rest carry the zero init promised on both toolchains.

Arguments

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

Called by

proc~~ocean_cavity_flux_enter_data_impl~~CalledByGraph proc~ocean_cavity_flux_enter_data_impl ocean_cavity_flux_enter_data_impl proc~ocean_cavity_flux_enter_data ocean_cavity_flux_t%ocean_cavity_flux_enter_data proc~ocean_cavity_flux_enter_data->proc~ocean_cavity_flux_enter_data_impl

Source Code

   subroutine ocean_cavity_flux_enter_data_impl(this)
      !! `copyin` (not `create`) throughout: `f_cor` carries a
      !! configure-time host fill that MUST reach the device, and the
      !! rest carry the zero `init` promised on both toolchains.
      type(ocean_cavity_flux_t), intent(inout) :: this
      !$acc enter data copyin(this%f_cor, this%active, this%t_far, this%s_far, &
      !$acc&                  this%u_far, this%v_far, this%ustar, this%t_b, &
      !$acc&                  this%s_b, this%melt, this%q_ocean, this%gamma_t, &
      !$acc&                  this%gamma_s, this%status, this%comp_scale)
      !$acc update device(this%f_cor, this%active, this%t_far, this%s_far, &
      !$acc&              this%u_far, this%v_far, this%ustar, this%t_b, &
      !$acc&              this%s_b, this%melt, this%q_ocean, this%gamma_t, &
      !$acc&              this%gamma_s, this%status, this%comp_scale)
   end subroutine ocean_cavity_flux_enter_data_impl