ocean_mle_enter_data_impl Subroutine

private subroutine ocean_mle_enter_data_impl(this)

Arguments

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

Called by

proc~~ocean_mle_enter_data_impl~~CalledByGraph proc~ocean_mle_enter_data_impl ocean_mle_enter_data_impl proc~ocean_mle_enter_data ocean_mle_t%ocean_mle_enter_data proc~ocean_mle_enter_data->proc~ocean_mle_enter_data_impl

Source Code

   subroutine ocean_mle_enter_data_impl(this)
      type(ocean_mle_t), intent(inout) :: this
      if (.not. this%is_init) return
      !$acc enter data copyin(this%b_ml, this%htot_ml, this%mld_filtered)
      !$acc enter data copyin(this%uhml, this%vhml)
   end subroutine ocean_mle_enter_data_impl