ocean_redi_enter_data_impl Subroutine

private subroutine ocean_redi_enter_data_impl(this)

Arguments

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

Called by

proc~~ocean_redi_enter_data_impl~~CalledByGraph proc~ocean_redi_enter_data_impl ocean_redi_enter_data_impl proc~ocean_redi_enter_data ocean_redi_t%ocean_redi_enter_data proc~ocean_redi_enter_data->proc~ocean_redi_enter_data_impl

Source Code

   subroutine ocean_redi_enter_data_impl(this)
      type(ocean_redi_t), intent(inout) :: this
      if (.not. this%is_init) return
      !$acc enter data copyin(this%uPoL, this%uPoR, this%uKoL, this%uKoR, this%uhEff)
      !$acc enter data copyin(this%vPoL, this%vPoR, this%vKoL, this%vKoR, this%vhEff)
      !$acc enter data copyin(this%uKb, this%uKt, this%vKb, this%vKt)
      !$acc enter data copyin(this%khtr_u, this%khtr_v)
      !$acc enter data copyin(this%tr_snap)
   end subroutine ocean_redi_enter_data_impl