ocean_vmix_enter_data_impl Subroutine

private subroutine ocean_vmix_enter_data_impl(this)

Arguments

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

Called by

proc~~ocean_vmix_enter_data_impl~~CalledByGraph proc~ocean_vmix_enter_data_impl ocean_vmix_enter_data_impl proc~ocean_vmix_enter_data ocean_vmix_t%ocean_vmix_enter_data proc~ocean_vmix_enter_data->proc~ocean_vmix_enter_data_impl

Source Code

   subroutine ocean_vmix_enter_data_impl(this)
      type(ocean_vmix_t), intent(inout) :: this
      if (allocated(this%kv)) then
         !$acc enter data copyin(this%kv)
      end if
      if (allocated(this%kt)) then
         !$acc enter data copyin(this%kt)
      end if
      if (allocated(this%ks)) then
         !$acc enter data copyin(this%ks)
      end if
      if (allocated(this%smooth_scratch)) then
         !$acc enter data copyin(this%smooth_scratch)
      end if
      if (allocated(this%bl_depth)) then
         !$acc enter data copyin(this%bl_depth)
      end if
      if (allocated(this%b0)) then
         !$acc enter data copyin(this%b0)
      end if
      if (allocated(this%gamma_t)) then
         !$acc enter data copyin(this%gamma_t)
      end if
      if (allocated(this%gamma_s)) then
         !$acc enter data copyin(this%gamma_s)
      end if
      if (allocated(this%kd_bg)) then
         !$acc enter data copyin(this%kd_bg)
      end if
   end subroutine ocean_vmix_enter_data_impl