ocean_varmix_enter_data_impl Subroutine

private subroutine ocean_varmix_enter_data_impl(this)

Arguments

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

Called by

proc~~ocean_varmix_enter_data_impl~~CalledByGraph proc~ocean_varmix_enter_data_impl ocean_varmix_enter_data_impl proc~ocean_varmix_enter_data ocean_varmix_t%ocean_varmix_enter_data proc~ocean_varmix_enter_data->proc~ocean_varmix_enter_data_impl

Source Code

   subroutine ocean_varmix_enter_data_impl(this)
      type(ocean_varmix_t), intent(inout) :: this
      if (.not. this%is_init) return
      !$acc enter data copyin(this%f2_dx2_u, this%f2_dx2_v)
      !$acc enter data copyin(this%beta_dx2_u, this%beta_dx2_v)
      !$acc enter data copyin(this%l2_u, this%l2_v)
      !$acc enter data copyin(this%res_fn_u, this%res_fn_v)
      !$acc enter data copyin(this%sn_u, this%sn_v)
      !$acc enter data copyin(this%khth_u, this%khth_v)
      !$acc enter data copyin(this%khtr_u, this%khtr_v)
   end subroutine ocean_varmix_enter_data_impl