barotropic_state_enter_data_impl Subroutine

private subroutine barotropic_state_enter_data_impl(this)

Arguments

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

Called by

proc~~barotropic_state_enter_data_impl~~CalledByGraph proc~barotropic_state_enter_data_impl barotropic_state_enter_data_impl proc~barotropic_state_enter_data barotropic_state_t%barotropic_state_enter_data proc~barotropic_state_enter_data->proc~barotropic_state_enter_data_impl proc~ocean_state_enter_data ocean_state_enter_data proc~ocean_state_enter_data->proc~barotropic_state_enter_data proc~engine_enter_data engine_enter_data proc~engine_enter_data->proc~ocean_state_enter_data proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_enter_data proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_enter_data proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean proc~rdb_ocean_create_finalize rdb_ocean_create_finalize proc~rdb_ocean_create_finalize->proc~complete_ocean_create proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~complete_ocean_create

Source Code

   subroutine barotropic_state_enter_data_impl(this)
      type(barotropic_state_t), intent(inout) :: this

      !$acc enter data copyin(this%h, this%b, &
      !$acc&                  this%u_face_x, this%hu_face_x, &
      !$acc&                  this%v_face_y, this%hv_face_y, &
      !$acc&                  this%h0, this%u_face_x0, this%v_face_y0)
      !$acc enter data create(this%mass_flux_x, this%mass_flux_y, &
      !$acc&                  this%flux_h)
   end subroutine barotropic_state_enter_data_impl