Arrays-only attach. The parent ocean_state_t is mapped by the
orchestrator BEFORE this runs.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(ocean_metrics_t), | intent(inout) | :: | this |
subroutine ocean_metrics_enter_data_impl(this) !! Arrays-only attach. The parent `ocean_state_t` is mapped by the !! orchestrator BEFORE this runs. type(ocean_metrics_t), intent(inout) :: this !$acc enter data copyin(this%dxT, this%dyT, this%dxCu, this%dyCu) !$acc enter data copyin(this%dxCv, this%dyCv, this%dxBu, this%dyBu) !$acc enter data copyin(this%dy_cu, this%dx_cv) !$acc enter data copyin(this%dy_cu_bt, this%dx_cv_bt) !$acc enter data copyin(this%por_bed) !$acc enter data copyin(this%por_dmin_u, this%por_dmax_u, this%por_davg_u) !$acc enter data copyin(this%por_dmin_v, this%por_dmax_v, this%por_davg_v) !$acc enter data copyin(this%por_face_area_u, this%por_face_area_v) !$acc enter data copyin(this%open_u, this%open_v) !$acc enter data copyin(this%z_draft, this%cover_frac, this%p_ice_ref) !$acc enter data copyin(this%wet_T, this%wet_u, this%wet_v, this%wet_q) !$acc enter data copyin(this%areaT, this%areaCu, this%areaCv, this%areaBu) !$acc enter data copyin(this%idxT, this%idyT, this%idxCu, this%idyCu) !$acc enter data copyin(this%idxCv, this%idyCv) !$acc enter data copyin(this%iareaT, this%iareaBu, this%iareaCu, this%iareaCv) !$acc enter data copyin(this%geolatT, this%geolonT, this%geolatBu, this%geolonBu) !$acc enter data copyin(this%angle_dx) !$acc enter data copyin(this%dy_dxT, this%dx_dyT, this%dy_dxBu, this%dx_dyBu) !$acc enter data copyin(this%dx2h, this%dy2h, this%dx2q, this%dy2q) end subroutine ocean_metrics_enter_data_impl