barotropic_state_exit_data_impl Subroutine

private subroutine barotropic_state_exit_data_impl(this)

Arguments

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

Called by

proc~~barotropic_state_exit_data_impl~~CalledByGraph proc~barotropic_state_exit_data_impl barotropic_state_exit_data_impl proc~barotropic_state_exit_data barotropic_state_t%barotropic_state_exit_data proc~barotropic_state_exit_data->proc~barotropic_state_exit_data_impl

Source Code

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

      !$acc exit data copyout(this%h, this%u_face_x, this%v_face_y, &
      !$acc&                  this%hu_face_x, this%hv_face_y)
      !$acc exit data delete(this%b, this%h0, this%u_face_x0, this%v_face_y0, &
      !$acc&                 this%mass_flux_x, this%mass_flux_y, this%flux_h)
   end subroutine barotropic_state_exit_data_impl